5,386
社区成员
发帖
与我相关
我的任务
分享
SynEdit1.CaretY := 5; // 第5行
SynEdit1.CaretX := 2; //第2列,
SynEdit1.SelLength := 10; //选中10个字符
var
nBlueLine : integer;
procedure TForm1.SynEdit1SpecialLineColors(Sender: TObject; Line: Integer;
var Special: Boolean; var FG, BG: TColor);
begin
if line=nBlueLine then begin //line´Ó1¿ªÊ¼
Special := True;
FG := $FFFFFF; //×Ö·ûÑÕÉ«
BG := $FF0000; //±³¾°ÑÕÉ«
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
nBlueLine := nBlueLine+1;
SynEdit1.Repaint;
end;