paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 18:17:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: fixed showing active header position in popup menu

Browse Source 
git-svn-id: trunk@26085 -
This commit is contained in:
mattias 2010-06-13 13:51:41 +00:00
parent 873e4a9d6a
commit 105b690553
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
examples/anchordocking/anchordocking.pas
View File

@ -68,6 +68,10 @@
ToDo:
- windows: close button glyph
- windows: caption height for left aligned header
- windows: setting header position does not work
- windows: showing active header position does not work
- use site icon from wrapped form
- popup menu
- shrink side left, top, right, bottom
- fpdoc
@ -3792,12 +3796,17 @@ begin
adrsHeaderPosition, nil);
Item:=DockMaster.AddPopupMenuItem('HeaderPosAutoMenuItem', adrsAutomatically,
@HeaderPositionItemClick, HeaderPosItem);
if Item<>nil then Item.Tag:=ord(adlhpAuto);
if Item<>nil then begin
Item.Tag:=ord(adlhpAuto);
Item.Checked:=HeaderPosition=TADLHeaderPosition(Item.Tag);
end;
for Side:=Low(TAnchorKind) to High(TAnchorKind) do begin
Item:=DockMaster.AddPopupMenuItem('HeaderPos'+AnchorNames[Side]+'MenuItem',
SideCaptions[Side], @HeaderPositionItemClick,
HeaderPosItem);
if Item<>nil then Item.Tag:=ord(Side)+1;
if Item=nil then continue;
Item.Tag:=ord(Side)+1;
Item.Checked:=HeaderPosition=TADLHeaderPosition(Item.Tag);
end;
// enlarge