aktuelle Zeile in SynEdit einfärben

[Christian Seehase]

Moin Tom,

ich denke ich hab's

Delphi-Quellcode:

var
  iOffset : integer; // globale Variable

procedure TfrmMAIN.SynEdit1SpecialLineColors(Sender: TObject;
  Line: Integer; var Special: Boolean; var FG, BG: TColor);
begin
 if (Line = (SynEdit1.CaretY+iOffset)) then
  begin
    Special := true;
    bg      :=clGreen;
  end;
end;

procedure TfrmMAIN.SynEdit1Click(Sender: TObject);
begin
  SynEdit1.Refresh;
end;

procedure TfrmMAIN.SynEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DOWN then iOffset := 1;
  if (Key = VK_UP) then iOffset := -1;
  if ((SynEdit1.CaretY = 1) and (iOffset = -1)) or ((SynEdit1.CaretY = SynEdit1.Lines.Count) and (iOffset = 1)) then iOffset := 0;
  SynEdit1.Refresh;
end;