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

SynEdit: Fixed Line markup

Browse Source 
git-svn-id: trunk@41435 -
This commit is contained in:
martin 2013-05-27 17:17:36 +00:00
parent 30d5dbff49
commit d05dcdee7e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/syneditmarkupspecialline.pp
View File

@ -52,6 +52,7 @@ type
procedure DoLinesInWindoChanged(OldLinesInWindow : Integer); override;
procedure DoTextChanged(StartLine, EndLine, ACountDiff: Integer); override;
procedure DoMarkupChanged(AMarkup: TSynSelectedColor); override;
function RealEnabled: Boolean; override;
public
constructor Create(ASynEdit: TSynEditBase);
destructor Destroy; override;
@ -121,6 +122,12 @@ begin
InvalidateLineHighlight;
end;
function TSynEditMarkupSpecialLine.RealEnabled: Boolean;
begin
Result := Enabled and
(Assigned(FOnSpecialLineMarkup) or Assigned(FOnSpecialLineColors));
end;
constructor TSynEditMarkupSpecialLine.Create(ASynEdit: TSynEditBase);
begin
inherited Create(ASynEdit);