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

SynEdit:, further enhanced the Color settings for the fold [...]

Browse Source 
git-svn-id: trunk@18178 -
This commit is contained in:
martin 2009-01-06 20:53:01 +00:00
parent 0a91971c12
commit 19ff151b3b
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/synedit/synedit.pp
View File

@ -2979,18 +2979,13 @@ var
if FFoldedLinesView.FoldType[CurLine] = cfCollapsed then
begin
FGfold := Font.Color;
BGfold := colEditorBG;
FFfold := Font.Color;
Sfold := [];
MarkupInfo := fMarkupManager.GetMarkupAttributeAtRowCol(FFoldedLinesView.TextIndex[CurLine]+1, CurPhysPos);
if MarkupInfo <> nil then begin
FGfold := MarkupInfo.Foreground;
BGfold := MarkupInfo.Background;
FFfold := MarkupInfo.FrameColor;
Sfold := MarkupInfo.Style;
end else begin
FGfold := Font.Color;
BGfold := colEditorBG;
FFfold := clNone;
Sfold := [];
end;
if MarkupInfo <> nil then
MarkupInfo.ModifyColors(FGfold, BGfold, FFfold, Sfold);
FoldedCodeInfo := FoldedCodeColor;
If assigned(FoldedCodeInfo) then
FoldedCodeInfo.ModifyColors(FGfold, BGfold, FFfold, Sfold);