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

SynEdit: Fold-Gutter: Defer creation of popup menu, until needed; use global image list

Browse Source 
git-svn-id: trunk@32001 -
This commit is contained in:
martin 2011-08-17 13:58:45 +00:00
parent 144a7b6e1c
commit f8ea67f3be
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourcesyneditor.pas
View File

@ -201,7 +201,7 @@ type
procedure PopClickedUnfoldComment(Sender: TObject);
procedure PopClickedFoldComment(Sender: TObject);
procedure PopClickedHideComment(Sender: TObject);
procedure CreatePopUpMenuEntries(APopUp: TPopupMenu; ALine: Integer); override;
procedure CreatePopUpMenuEntries(var APopUp: TPopupMenu; ALine: Integer); override;
end;
implementation
@ -872,7 +872,7 @@ begin
end;
end;
procedure TIDESynGutterCodeFolding.CreatePopUpMenuEntries(APopUp: TPopupMenu; ALine: Integer);
procedure TIDESynGutterCodeFolding.CreatePopUpMenuEntries(var APopUp: TPopupMenu; ALine: Integer);
var
i, j, y1, y2: Integer;
HasFolds, HasHideableComments, HasFoldableComments, HasCollapsedComments: Boolean;