Changeset 52 for trunk/Forms

Timestamp:

Dec 20, 2021, 7:47:26 PM (3 years ago)

Author:

chronos

Message:

• Modified: Renamed forms to start their name with Form prefix.
• Fixed: Drawing game scene.

Location:

trunk/Forms

Files:

• UDebugForm.lfm (deleted)
• UDebugForm.lrj (deleted)
• UDebugForm.pas (deleted)
• UFormDebug.lfm (added)
• UFormDebug.lrj (added)
• UFormDebug.pas (added)
• UFormGameResult.lfm (added)
• UFormGameResult.lrj (added)
• UFormGameResult.pas (added)
• UFormMain.lfm (added)
• UFormMain.lrj (added)
• UFormMain.pas (added)
• UFormMap.lfm (added)
• UFormMap.lrj (added)
• UFormMap.pas (added)
• UFormNewGame.lfm (modified) (21 diffs)
• UGameResultForm.lfm (deleted)
• UGameResultForm.lrj (deleted)
• UGameResultForm.pas (deleted)
• UMainForm.lfm (deleted)
• UMainForm.lrj (deleted)
• UMainForm.pas (deleted)
• UMapForm.lfm (deleted)
• UMapForm.lrj (deleted)
• UMapForm.pas (deleted)

trunk/Forms/UFormNewGame.lfm

@@ -1 +1 @@
 object FormNewGame: TFormNewGame
-  Left = 579
-  Height = 542
-  Top = 226
-  Width = 846
+  Left = 479
+  Height = 650
+  Top = 392
+  Width = 1015
   Caption = 'New game'
-  ClientHeight = 542
-  ClientWidth = 846
-  DesignTimePPI = 120
+  ClientHeight = 650
+  ClientWidth = 1015
+  DesignTimePPI = 144
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.0.2.0'
+  LCLVersion = '2.0.12.0'
   object ButtonStart: TButton
-    Left = 740
-    Height = 31
-    Top = 500
-    Width = 94
+    Left = 888
+    Height = 37
+    Top = 600
+    Width = 113
     Anchors = [akRight, akBottom]
     Caption = 'Start'
@@ -24 +24 @@
   end
   object ButtonCancel: TButton
-    Left = 630
-    Height = 31
-    Top = 500
-    Width = 94
+    Left = 756
+    Height = 37
+    Top = 600
+    Width = 113
     Anchors = [akRight, akBottom]
     Caption = 'Cancel'
@@ -35 +35 @@
   end
   object Label1: TLabel
-    Left = 10
-    Height = 20
-    Top = 8
-    Width = 49
+    Left = 12
+    Height = 25
+    Top = 10
+    Width = 59
     Caption = 'Players:'
     ParentColor = False
@@ -44 +44 @@
   end
   object ListView1: TListView
-    Left = 10
-    Height = 460
-    Top = 30
-    Width = 368
+    Left = 12
+    Height = 552
+    Top = 36
+    Width = 442
     Anchors = [akTop, akLeft, akBottom]
     Checkboxes = True
@@ -53 +53 @@
       item
         Caption = 'Name'
-        Width = 188
+        Width = 226
       end    
       item
         Caption = 'Color'
-        Width = 62
+        Width = 74
       end    
       item
         Caption = 'Controls'
-        Width = 189
+        Width = 227
       end>
     OwnerData = True
@@ -75 +75 @@
   end
   object ColorButton1: TColorButton
-    Left = 634
-    Height = 31
-    Top = 112
-    Width = 94
+    Left = 761
+    Height = 37
+    Top = 134
+    Width = 113
     BorderWidth = 2
     ButtonColorSize = 16
@@ -86 +86 @@
   end
   object Label2: TLabel
-    Left = 500
-    Height = 20
-    Top = 116
-    Width = 51
+    Left = 600
+    Height = 25
+    Top = 139
+    Width = 62
     Caption = 'Color 1:'
     ParentColor = False
@@ -95 +95 @@
   end
   object GroupBox1: TGroupBox
-    Left = 490
-    Height = 243
-    Top = 208
-    Width = 340
+    Left = 588
+    Height = 292
+    Top = 250
+    Width = 408
     Caption = 'Control keys'
-    ClientHeight = 218
-    ClientWidth = 336
+    ClientHeight = 262
+    ClientWidth = 404
     ParentFont = False
     TabOrder = 3
     object EditUp: TEdit
-      Left = 108
-      Height = 28
+      Left = 130
+      Height = 33
       Top = 2
-      Width = 100
+      Width = 120
       OnChange = EditUpChange
       OnKeyDown = EditUpKeyDown
@@ -115 +115 @@
     end
     object Label3: TLabel
-      Left = 8
-      Height = 20
-      Top = 12
-      Width = 22
+      Left = 10
+      Height = 25
+      Top = 14
+      Width = 27
       Caption = 'Up:'
       ParentColor = False
@@ -124 +124 @@
     end
     object Label4: TLabel
-      Left = 8
-      Height = 20
-      Top = 52
-      Width = 42
+      Left = 10
+      Height = 25
+      Top = 62
+      Width = 51
       Caption = 'Down:'
       ParentColor = False
@@ -133 +133 @@
     end
     object EditDown: TEdit
-      Left = 108
-      Height = 28
-      Top = 40
-      Width = 100
+      Left = 130
+      Height = 33
+      Top = 48
+      Width = 120
       OnChange = EditDownChange
       OnKeyDown = EditDownKeyDown
@@ -143 +143 @@
     end
     object Label5: TLabel
-      Left = 8
-      Height = 20
-      Top = 92
-      Width = 28
+      Left = 10
+      Height = 25
+      Top = 110
+      Width = 33
       Caption = 'Left:'
       ParentColor = False
@@ -152 +152 @@
     end
     object EditLeft: TEdit
-      Left = 108
-      Height = 28
-      Top = 82
-      Width = 100
+      Left = 130
+      Height = 33
+      Top = 98
+      Width = 120
       OnChange = EditLeftChange
       OnKeyDown = EditLeftKeyDown
@@ -162 +162 @@
     end
     object Label6: TLabel
-      Left = 8
-      Height = 20
-      Top = 132
-      Width = 38
+      Left = 10
+      Height = 25
+      Top = 158
+      Width = 46
       Caption = 'Right:'
       ParentColor = False
@@ -171 +171 @@
     end
     object EditRight: TEdit
-      Left = 108
-      Height = 28
-      Top = 122
-      Width = 100
+      Left = 130
+      Height = 33
+      Top = 146
+      Width = 120
       OnChange = EditRightChange
       OnKeyDown = EditRightKeyDown
@@ -181 +181 @@
     end
     object Label7: TLabel
-      Left = 8
-      Height = 20
-      Top = 172
-      Width = 42
+      Left = 10
+      Height = 25
+      Top = 206
+      Width = 52
       Caption = 'Shoot:'
       ParentColor = False
@@ -190 +190 @@
     end
     object EditShoot: TEdit
-      Left = 108
-      Height = 28
-      Top = 162
-      Width = 100
+      Left = 130
+      Height = 33
+      Top = 194
+      Width = 120
       OnChange = EditShootChange
       OnKeyDown = EditShootKeyDown
@@ -201 +201 @@
   end
   object EditName: TEdit
+    Left = 720
+    Height = 33
+    Top = 36
+    Width = 264
+    OnChange = EditNameChange
+    ParentFont = False
+    TabOrder = 4
+  end
+  object Label8: TLabel
     Left = 600
-    Height = 28
-    Top = 30
-    Width = 220
-    OnChange = EditNameChange
-    ParentFont = False
-    TabOrder = 4
-  end
-  object Label8: TLabel
-    Left = 500
-    Height = 20
-    Top = 40
-    Width = 43
+    Height = 25
+    Top = 48
+    Width = 51
     Caption = 'Name:'
     ParentColor = False
@@ -219 +219 @@
   end
   object Label9: TLabel
-    Left = 500
-    Height = 20
-    Top = 145
-    Width = 51
+    Left = 600
+    Height = 25
+    Top = 174
+    Width = 62
     Caption = 'Color 2:'
     ParentColor = False
@@ -228 +228 @@
   end
   object ColorButton2: TColorButton
-    Left = 634
-    Height = 31
-    Top = 145
-    Width = 94
+    Left = 761
+    Height = 37
+    Top = 174
+    Width = 113
     BorderWidth = 2
     ButtonColorSize = 16
@@ -239 +239 @@
   end
   object CheckBoxEnabled: TCheckBox
-    Left = 504
-    Height = 24
-    Top = 80
-    Width = 78
+    Left = 605
+    Height = 29
+    Top = 96
+    Width = 93
     Caption = 'Enabled'
     OnChange = CheckBoxEnabledChange
+    ParentFont = False
     TabOrder = 5
   end