Delphi XE - SynMemo - highlight a line and stop the cursor going where you click it

Question

I'm using Delphi XE today (one of four versions I play with :)

I've installed SynEdit/SynMemo to replace the standard TMemo.

(a) I want to highlight a whole line based on its line number. (b) When I click on the first line, I want the caret to go to the start of the line not appear where I click - more like notepad than a code editor.

Any help much appreciated!

score 2 · Answer 1 · answered Apr 23 '15 at 06:49

To highlight a specific line you need to use OnSpecialLineColors event.

Try this code:

procedure TfrmMain.SynMemo1SQLSpecialLineColors(Sender: TObject; Line: Integer;
  var Special: Boolean; var FG, BG: TColor);
begin
  // Change highlight for the first line.
  if Line = 1 then
  begin
    BG := clBlack;
    FG := clGreen;
  end;
end;

Also, make sure that Highlighter property is not set, otherwise it might override your highlighting.

Delphi XE - SynMemo - highlight a line and stop the cursor going where you click it

1 Answers1