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

DesignerMenu: Use shadow-type "none", change the submenu arrow. Issue #28220, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@49255 -
This commit is contained in:
juha 2015-06-03 17:23:26 +00:00
parent 11612bcf6b
commit da03828c1c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/designermenu.pp
View File

@ -415,9 +415,10 @@ begin
DMenuItem.SubMenuArrow.Name:='SubMenuArrow_' + DMenuItem.ID;
DMenuItem.SubMenuArrow.Parent:=DMenuItem.SelfPanel;
DMenuItem.SubMenuArrow.ArrowType:=atright;
DMenuItem.SubMenuArrow.Width:=20;
DMenuItem.SubMenuArrow.Height:=13;
DMenuItem.SubMenuArrow.ShadowType:=stout;
DMenuItem.SubMenuArrow.ArrowPointerAngle:=90;
DMenuItem.SubMenuArrow.ShadowType:=stNone;
DMenuItem.SubMenuArrow.Width:=14;
DMenuItem.SubMenuArrow.Height:=14;
DMenuItem.SubMenuArrow.Visible:=false;
DMenuItem.SubMenuArrow.OnMouseDown:=@MenuItemMouseDown;
DMenuItem.SubMenuArrow.OnDragOver:=@MenuItemDragOver;