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

SynEdit, FoldGutter: Always show [+]/[-] in popup menu

Browse Source 
git-svn-id: trunk@27045 -
This commit is contained in:
martin 2010-08-09 23:35:58 +00:00
parent a65d1b9fc1
commit 2012316840
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/synguttercodefolding.pp
View File

@ -204,6 +204,7 @@ procedure TSynGutterCodeFolding.CreatePopUpMenuEntries(APopUp: TPopupMenu;
Result := TMenuItem.Create(APopUp); Result := TMenuItem.Create(APopUp);
Result.OnClick := {$IFDEF FPC}@{$ENDIF}PopClicked; Result.OnClick := {$IFDEF FPC}@{$ENDIF}PopClicked;
Result.Caption := ACaption; Result.Caption := ACaption;
Result.GlyphShowMode := gsmAlways;
if FReversePopMenuOrder then if FReversePopMenuOrder then
APopUp.Items.Add(Result) APopUp.Items.Add(Result)
else else