Changeset 317 for trunk/Forms/FormGameSystems.lfm

Timestamp:

Jun 21, 2024, 12:44:53 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.
• Modified: Use TFormEx for all forms for code simplification.

File:

• trunk/Forms/FormGameSystems.lfm (moved) (moved from trunk/Forms/UFormGameSystems.lfm ) (5 diffs)

trunk/Forms/FormGameSystems.lfm

@@ -1 +1 @@
 object FormGameSystems: TFormGameSystems
-  Left = 779
-  Height = 300
-  Top = 236
-  Width = 400
+  Left = 1080
+  Height = 360
+  Top = 570
+  Width = 480
   Caption = 'Game systems'
-  ClientHeight = 300
-  ClientWidth = 400
-  DesignTimePPI = 120
-  OnClose = FormClose
+  ClientHeight = 360
+  ClientWidth = 480
+  DesignTimePPI = 144
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.0.0.4'
+  LCLVersion = '3.4.0.0'
   object ListView1: TListView
     Left = 0
-    Height = 268
+    Height = 322
     Top = 0
-    Width = 400
+    Width = 480
     Align = alClient
     Columns = <    
       item
         Caption = 'Name'
-        Width = 388
+        Width = 466
       end>
     MultiSelect = True
@@ -39 +38 @@
   object ToolBar1: TToolBar
     Left = 0
-    Top = 268
-    Width = 400
+    Height = 38
+    Top = 322
+    Width = 480
     Align = alBottom
     Images = Core.ImageListSmall
@@ -51 +51 @@
     end
     object ToolButton2: TToolButton
-      Left = 30
+      Left = 36
       Top = 2
       Action = AModify
     end
     object ToolButton3: TToolButton
-      Left = 59
+      Left = 71
       Top = 2
       Action = ARemove
     end
     object ToolButton4: TToolButton
-      Left = 88
+      Left = 106
       Top = 2
       Action = AClone
@@ -68 +68 @@
   object ActionList1: TActionList
     Images = Core.ImageListSmall
-    left = 173
-    top = 136
+    Left = 208
+    Top = 163
     object AAdd: TAction
       Caption = 'Add'
@@ -97 +97 @@
   object PopupMenu1: TPopupMenu
     Images = Core.ImageListSmall
-    left = 293
-    top = 133
+    Left = 352
+    Top = 160
     object MenuItem1: TMenuItem
       Action = AAdd