Changeset 27 for branches/topdown/UFormMain.pas

Timestamp:

Aug 22, 2019, 11:32:31 AM (5 years ago)

Author:

chronos

Message:

• Modified: Menu shutdown button with drop down menu and reboot action.
• Fixed: Correct left positioning of main menu.

File:

• branches/topdown/UFormMain.pas (modified) (1 diff)

branches/topdown/UFormMain.pas

@@ -82 +82 @@
   P: TPoint;
 begin
-  P := ClientToScreen(Point(0, PanelTaskBar.Top - PanelTaskBar.Height));
-  FormMenu.BoundsRect := Bounds(0, P.Y - FormMenu.Height,
+  P := PanelTaskBar.ClientToScreen(Point(ButtonMenu.Left, ButtonMenu.Top - PanelTaskBar.Height));
+  FormMenu.BoundsRect := Bounds(P.X, P.Y - FormMenu.Height,
     FormMenu.Width, FormMenu.Height);
   FormMenu.Show;