Changeset 362 for trunk/Packages/Common/Forms/FormKeyShortcuts.lfm

Timestamp:

Dec 31, 2024, 1:15:01 PM (8 days ago)

Author:

chronos

Message:

• Added: Close button on more forms for better touch screen devices support.

File:

• trunk/Packages/Common/Forms/FormKeyShortcuts.lfm (modified) (3 diffs)

trunk/Packages/Common/Forms/FormKeyShortcuts.lfm

@@ -1 +1 @@
 object FormKeyShortcuts: TFormKeyShortcuts
   Left = 839
-  Height = 329
+  Height = 274
   Top = 609
-  Width = 704
+  Width = 587
   Caption = 'Key shortcuts'
-  ClientHeight = 329
-  ClientWidth = 704
-  DesignTimePPI = 144
+  ClientHeight = 274
+  ClientWidth = 587
+  DesignTimePPI = 120
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '3.4.0.0'
+  LCLVersion = '3.6.0.0'
   object ListView1: TListView
-    Left = 5
-    Height = 319
-    Top = 5
-    Width = 694
-    Align = alClient
-    BorderSpacing.Around = 5
+    Left = 8
+    Height = 212
+    Top = 8
+    Width = 571
+    Align = alTop
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Around = 8
     Columns = <    
       item
         Caption = 'Action'
-        Width = 240
+        Width = 200
       end    
       item
         Caption = 'Window'
-        Width = 240
+        Width = 200
       end    
       item
         Caption = 'Shortcut'
-        Width = 199
+        Width = 166
       end>
     OwnerData = True
@@ -42 +43 @@
     OnKeyPress = ListView1KeyPress
   end
+  object ButtonClose: TButton
+    Left = 485
+    Height = 31
+    Top = 232
+    Width = 94
+    Anchors = [akRight, akBottom]
+    Caption = 'Close'
+    ModalResult = 11
+    TabOrder = 1
+    OnClick = ButtonCloseClick
+  end
   object PopupMenu1: TPopupMenu
-    Left = 408
-    Top = 144
+    Left = 340
+    Top = 120
     object MenuItem1: TMenuItem
       Caption = 'Execute'
@@ -55 +67 @@
     Column = 0
     Order = soNone
-    Left = 200
-    Top = 160
+    Left = 184
+    Top = 120
   end
 end