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

SynEdit: Make sure selection Markup is not hidden by Syncro (or other plugins)

Browse Source 
git-svn-id: trunk@39039 -
This commit is contained in:
martin 2012-10-10 20:56:31 +00:00
parent 37782db3ff
commit 3ce2f9322e
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -1987,6 +1987,8 @@ begin
fMarkupSelection := TSynEditMarkupSelection.Create(self, FBlockSelection);
fMarkupSpecialChar := TSynEditMarkupSpecialChar.Create(self);
fMarkupSelection.MarkupInfoSeletion.SetAllPriorities(50);
fMarkupManager := TSynEditMarkupManager.Create(self);
fMarkupManager.AddMarkUp(fMarkupSpecialChar);
fMarkupManager.AddMarkUp(fMarkupSpecialLine);

12
components/synedit/syneditmiscclasses.pp
View File

@ -255,6 +255,7 @@ type
function GetModifiedStyle(aStyle: TFontStyles): TFontStyles;
procedure ModifyColors(var AForeground, ABackground, AFrameColor: TColor;
var AStyle: TFontStyles; var AFrameStyle: TSynLineStyle);
procedure SetAllPriorities(ANewPriority: Integer);
property OnChange: TNotifyEvent read fOnChange write fOnChange;
published
property Background default clHighLight;
@ -637,6 +638,17 @@ begin
AStyle := GetModifiedStyle(AStyle);
end;
procedure TSynSelectedColor.SetAllPriorities(ANewPriority: Integer);
var
i: TFontStyle;
begin
BackPriority := ANewPriority;
ForePriority := ANewPriority;
FramePriority := ANewPriority;
for i := low(TFontStyle) to high(TFontStyle) do
StylePriority[i] := ANewPriority;
end;
function TSynSelectedColor.GetFrameSideColors(Side: TLazSynBorderSide): TColor;
begin
if FFrameSidesInitialized