Changeset 362 for trunk/Forms/FormUnitMoves.lfm

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Forms/FormUnitMoves.lfm (modified) (2 diffs)

trunk/Forms/FormUnitMoves.lfm

@@ -1 +1 @@
 object FormUnitMoves: TFormUnitMoves
   Left = 879
-  Height = 418
+  Height = 279
   Top = 511
-  Width = 802
+  Width = 660
   Caption = 'Unit moves'
-  ClientHeight = 418
-  ClientWidth = 802
-  DesignTimePPI = 144
+  ClientHeight = 279
+  ClientWidth = 660
+  Constraints.MinHeight = 100
+  Constraints.MinWidth = 100
+  DesignTimePPI = 120
   OnShow = FormShow
-  LCLVersion = '3.4.0.0'
+  LCLVersion = '3.6.0.0'
   object ListView1: TListView
-    Left = 0
-    Height = 418
-    Top = 0
-    Width = 802
-    Align = alClient
+    Left = 8
+    Height = 224
+    Top = 8
+    Width = 644
+    Align = alTop
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Around = 8
     Columns = <    
       item
         Caption = 'From cell'
-        Width = 180
+        Width = 150
       end    
       item
         Caption = 'To cell'
-        Width = 180
+        Width = 150
       end    
       item
         Caption = 'Once count'
-        Width = 180
+        Width = 150
       end    
       item
         Caption = 'Repeat count'
-        Width = 398
+        Width = 332
       end>
     OwnerData = True
@@ -41 +45 @@
     OnData = ListView1Data
   end
+  object ButtonClose: TButton
+    Left = 558
+    Height = 31
+    Top = 240
+    Width = 94
+    Anchors = [akRight, akBottom]
+    Caption = 'Close'
+    ModalResult = 11
+    TabOrder = 1
+    OnClick = ButtonCloseClick
+  end
 end