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

anchordocking: comments

Browse Source 
git-svn-id: trunk@46625 -
This commit is contained in:
mattias 2014-10-20 15:33:31 +00:00
parent d65e2f3461
commit 57eef952fa
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/anchordocking/anchordocking.pas
View File

@ -5018,13 +5018,13 @@ begin
SideCaptions[akRight]:=adrsRight;
SideCaptions[akBottom]:=adrsBottom;
// undock, merge
// menu items: undock, merge
DockMaster.AddRemovePopupMenuItem(ParentSite.CanUndock,'UndockMenuItem',
adrsUndock,@UndockButtonClick);
DockMaster.AddRemovePopupMenuItem(ParentSite.CanMerge,'MergeMenuItem',
adrsMerge, @MergeButtonClick);
// header position
// menu items: header position
HeaderPosItem:=DockMaster.AddPopupMenuItem('HeaderPosMenuItem',
adrsHeaderPosition, nil);
Item:=DockMaster.AddPopupMenuItem('HeaderPosAutoMenuItem', adrsAutomatically,
@ -5042,7 +5042,7 @@ begin
Item.Checked:=HeaderPosition=TADLHeaderPosition(Item.Tag);
end;
// enlarge
// menu items: enlarge
for Side:=Low(TAnchorKind) to High(TAnchorKind) do begin
Item:=DockMaster.AddRemovePopupMenuItem(ParentSite.EnlargeSide(Side,true),
'Enlarge'+DbgS(Side)+'MenuItem', Format(adrsEnlargeSide, [
@ -5050,7 +5050,7 @@ begin
if Item<>nil then Item.Tag:=ord(Side);
end;
// close
// menu item: close or quit
ContainsMainForm:=ParentSite.IsParentOf(Application.MainForm);
if ContainsMainForm then
s:=Format(adrsQuit, [Application.Title])