Folgendes habe ich nun bei mir getan, um dem, was ich will nahe zu kommen:
Delphi-Quellcode:
procedure TfrmMAIN.SynEdit1SpecialLineColors(Sender: TObject;
Line: Integer; var Special: Boolean; var FG, BG: TColor);
var
i:integer;
begin
Special := true;
for i:= 1 to SynEdit1.Lines.Count -1 do
begin
if Line = SynEdit1.CaretY then
begin bg:=clgreen; end
else
begin gb:=clwhite; end;
end;
end;
Es funktionier solange gut, wie ich nur die Entertaste und Backspace zum Einsatz bringe. Sobald ich aber per Mouse, oder Pfeil hoch und runter die aktuelle Zeile Verlasse, wird sie nicht neu gezeichnet und somit gibts auch nicht den Effekt, wie ich ihn gern hätte.
Wie komme ich nun endgültig zum Ziel?
Nochmals vielen Dank für die Unterstützung.
Tom