paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-28 12:57:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

synedit: change drawing of [...] folded char a bit

Browse Source 
git-svn-id: trunk@18197 -
This commit is contained in:
paul 2009-01-07 19:24:09 +00:00
parent c0109e8c01
commit 83485fbc51
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -2984,7 +2984,7 @@ var
BGfold := colEditorBG; BGfold := colEditorBG;
FFfold := Font.Color; FFfold := Font.Color;
Sfold := []; Sfold := [];
MarkupInfo := fMarkupManager.GetMarkupAttributeAtRowCol(FFoldedLinesView.TextIndex[CurLine]+1, CurPhysPos); MarkupInfo := fMarkupManager.GetMarkupAttributeAtRowCol(FFoldedLinesView.TextIndex[CurLine]+1, CurPhysPos + 3);
if MarkupInfo <> nil then if MarkupInfo <> nil then
MarkupInfo.ModifyColors(FGfold, BGfold, FFfold, Sfold); MarkupInfo.ModifyColors(FGfold, BGfold, FFfold, Sfold);
FoldedCodeInfo := FoldedCodeColor; FoldedCodeInfo := FoldedCodeColor;
@ -2997,7 +2997,7 @@ var
end; end;
rcToken.Left := ScreenColumnToXValue(CurPhysPos+3); rcToken.Left := ScreenColumnToXValue(CurPhysPos+3);
rcToken.Right := ScreenColumnToXValue(CurPhysPos+8); rcToken.Right := ScreenColumnToXValue(CurPhysPos+6);
FTextDrawer.FrameColor := FFfold; FTextDrawer.FrameColor := FFfold;
FTextDrawer.ForeColor := FGfold; FTextDrawer.ForeColor := FGfold;
@ -3012,7 +3012,7 @@ var
rcToken.Right := Min(rcToken.Right, rcLine.Right); rcToken.Right := Min(rcToken.Right, rcLine.Right);
if rcToken.Right > rcToken.Left then if rcToken.Right > rcToken.Left then
fTextDrawer.ExtTextOut(rcToken.Left, rcToken.Top, ETOOptions-ETO_OPAQUE, fTextDrawer.ExtTextOut(rcToken.Left, rcToken.Top, ETOOptions-ETO_OPAQUE,
rcToken, ' ... ', 5); rcToken, '...', 3);
end; end;
end; end;