paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 23:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: prepare for highlight word under caret

Browse Source 
git-svn-id: trunk@18055 -
This commit is contained in:
martin 2009-01-02 16:35:21 +00:00
parent 3247efea96
commit a86c7b5c9f
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/synedit/synedit.pp
View File

@ -469,6 +469,7 @@ type
function GetCaretY : Integer;
function GetHighlightAllColor : TSynSelectedColor;
function GetHighlightCaretColor: TSynSelectedColor;
function GetHighlightCaretTime: integer;
function GetIncrementColor : TSynSelectedColor;
function GetLineHighlightColor: TSynSelectedColor;
function GetLineNumberColor: TSynSelectedColor;
@ -480,6 +481,7 @@ type
function GetMouseLinkColor : TSynSelectedColor;
procedure SetBracketHighlightStyle(
const AValue: TSynEditBracketHighlightStyle);
procedure SetHighlightCaretTime(const AValue: integer);
procedure SetOnGutterClick(const AValue : TGutterClickEvent);
procedure SetRealLines(const AValue : TStrings);
procedure SetSelectedColor(const AValue : TSynSelectedColor);
@ -937,6 +939,7 @@ type
property IncrementColor: TSynSelectedColor read GetIncrementColor;
property HighlightAllColor: TSynSelectedColor read GetHighlightAllColor;
property HighlightCaretColor: TSynSelectedColor read GetHighlightCaretColor;
property HighlightCaretTime: integer read GetHighlightCaretTime write SetHighlightCaretTime;
property BracketMatchColor: TSynSelectedColor read GetBracketMatchColor;
property MouseLinkColor: TSynSelectedColor read GetMouseLinkColor;
property LineNumberColor: TSynSelectedColor read GetLineNumberColor;
@ -1731,6 +1734,11 @@ begin
result := fMarkupHighCaret.MarkupInfo;
end;
function TCustomSynEdit.GetHighlightCaretTime: integer;
begin
Result := fMarkupHighCaret.WaitTime;
end;
function TCustomSynEdit.GetIncrementColor : TSynSelectedColor;
begin
result := fMarkupSelection.MarkupInfoIncr;
@ -1794,6 +1802,11 @@ begin
fMarkupBracket.HighlightStyle := AValue;
end;
procedure TCustomSynEdit.SetHighlightCaretTime(const AValue: integer);
begin
FMarkupHighCaret.WaitTime := AValue;
end;
procedure TCustomSynEdit.SetOnGutterClick(const AValue : TGutterClickEvent);
begin
fGutter.OnGutterClick := AValue;