Changeset 27 for branches/topdown/UFormMenu.lfm

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/UFormMenu.lfm (modified) (2 diffs)

branches/topdown/UFormMenu.lfm

@@ -12 +12 @@
   OnShow = FormShow
   LCLVersion = '2.0.2.0'
-  object ButtonShutDown: TButton
-    Left = 7
-    Height = 31
-    Top = 362
-    Width = 94
-    Anchors = [akLeft, akBottom]
-    Caption = 'Shut down'
-    OnClick = ButtonShutDownClick
-    TabOrder = 0
-  end
   object ListBoxApps: TListBox
     Left = 10
@@ -34 +24 @@
     ItemHeight = 20
     OnClick = ListBoxAppsClick
+    TabOrder = 0
+  end
+  object ToolBar1: TToolBar
+    Left = 164
+    Height = 30
+    Top = 362
+    Width = 90
+    Align = alCustom
+    Anchors = [akTop, akRight]
+    AutoSize = True
+    Caption = 'ToolBar1'
+    EdgeBorders = []
+    Flat = False
+    ShowCaptions = True
     TabOrder = 1
+    object ToolButton1: TToolButton
+      Left = 1
+      Top = 2
+      Caption = 'Shutdown'
+      DropdownMenu = PopupMenu1
+      OnClick = ToolButton1Click
+      Style = tbsDropDown
+    end
   end
-  object ButtonReboot: TButton
-    Left = 112
-    Height = 31
-    Top = 362
-    Width = 94
-    Anchors = [akLeft, akBottom]
-    Caption = 'Reboot'
-    OnClick = ButtonRebootClick
-    TabOrder = 2
+  object PopupMenu1: TPopupMenu
+    left = 111
+    top = 278
+    object MenuItemReboot: TMenuItem
+      Caption = 'Reboot'
+      OnClick = MenuItemRebootClick
+    end
   end
 end