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

SynEdit: Fixed the stored property for TSynHighlighterAttributes.<....>Priority

Browse Source 
git-svn-id: trunk@64245 -
This commit is contained in:
martin 2020-12-20 09:03:39 +00:00
parent 48dfae77e3
commit 06ee066470
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synedithighlighter.pp
View File

@ -1254,23 +1254,23 @@ end;
function TSynHighlighterAttributes.GetBackPriorityStored: Boolean; function TSynHighlighterAttributes.GetBackPriorityStored: Boolean;
begin begin
Result := FBackPriority = 0; Result := FBackPriority <> 0;
end; end;
function TSynHighlighterAttributes.GetForePriorityStored: Boolean; function TSynHighlighterAttributes.GetForePriorityStored: Boolean;
begin begin
Result := FForePriority = 0; Result := FForePriority <> 0;
end; end;
function TSynHighlighterAttributes.GetFramePriorityStored: Boolean; function TSynHighlighterAttributes.GetFramePriorityStored: Boolean;
begin begin
Result := FFramePriority = 0; Result := FFramePriority <> 0;
end; end;
function TSynHighlighterAttributes.GetStylePriorityStored(AIndex: TFontStyle function TSynHighlighterAttributes.GetStylePriorityStored(AIndex: TFontStyle
): Boolean; ): Boolean;
begin begin
Result := FStylePriority[AIndex] = 0; Result := FStylePriority[AIndex] <> 0;
end; end;
procedure TSynHighlighterAttributes.AssignFrom(Src: TLazSynCustomTextAttributes); procedure TSynHighlighterAttributes.AssignFrom(Src: TLazSynCustomTextAttributes);