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

anchordocking: do not clear items on popupmenu closeup

Browse Source 
git-svn-id: trunk@26089 -
This commit is contained in:
mattias 2010-06-13 14:34:30 +00:00
parent c802efbd20
commit 04b038eff5
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/anchordocking/anchordocking.pas
View File

@ -67,7 +67,6 @@
- dnd move page to another pagecontrol
ToDo:
- windows: close button glyph
- windows: caption height for left aligned header
- windows: no menu item work
- use site icon from wrapped form
@ -387,7 +386,6 @@ type
procedure EnableAllAutoSizing;
procedure ClearLayoutProperties(AControl: TControl);
procedure PopupMenuPopup(Sender: TObject);
procedure PopupMenuCloseUp(Sender: TObject);
procedure SetShowHeaderCaptionFloatingControl(const AValue: boolean);
procedure SetSplitterWidth(const AValue: integer);
procedure ChangeLockButtonClick(Sender: TObject);
@ -1378,15 +1376,6 @@ begin
AddPopupMenuItem('OptionsMenuItem', adrsDockingOptions, @OptionsClick);
end;
procedure TAnchorDockMaster.PopupMenuCloseUp(Sender: TObject);
var
Popup: TPopupMenu;
begin
if not (Sender is TPopupMenu) then exit;
Popup:=TPopupMenu(Sender);
Popup.Items.Clear;
end;
procedure TAnchorDockMaster.SetShowHeaderCaptionFloatingControl(
const AValue: boolean);
var
@ -1541,7 +1530,6 @@ begin
if fPopupMenu=nil then begin
fPopupMenu:=TPopupMenu.Create(Self);
fPopupMenu.OnPopup:=@PopupMenuPopup;
fPopupMenu.OnClose:=@PopupMenuCloseUp;
end;
Result:=fPopupMenu;
end;