mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Display tool button menu under the button not under the toolbar in case the toolbar has multiple lines.

Browse source
This commit is contained in:
cobines 2012-04-12 12:11:49 +00:00
commit 19e6bf2a9f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
components/KASToolBar/kastoolbar.pas
View file

@ -607,7 +607,7 @@ begin
FToolPopupMenu := TPopupMenu.Create(Self);
MakeMenu(FToolPopupMenu.Items, ToolButton.ToolItem as TKASMenuItem);
Point.x := ToolButton.Left;
Point.y := ToolButton.Top + Self.Height;
Point.y := ToolButton.Top + ToolButton.Height;
Point := Self.ClientToScreen(Point);
FToolPopupMenu.PopUp(Point.x, Point.y);
end;