Changeset 317 for trunk/Forms/FormClient.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/FormClient.lfm (moved) (moved from trunk/Forms/UFormClient.lfm ) (8 diffs)

trunk/Forms/FormClient.lfm

@@ -1 +1 @@
 object FormClient: TFormClient
-  Left = 528
+  Left = 887
   Height = 621
-  Top = 280
+  Top = 404
   Width = 775
   Caption = 'Client'
   ClientHeight = 621
   ClientWidth = 775
-  DesignTimePPI = 120
+  DesignTimePPI = 144
   OnClose = FormClose
   OnCreate = FormCreate
@@ -13 +13 @@
   OnKeyUp = FormKeyUp
   OnShow = FormShow
-  LCLVersion = '2.0.0.4'
+  LCLVersion = '3.4.0.0'
   WindowState = wsMaximized
   object StatusBar1: TStatusBar
@@ -22 +22 @@
     Panels = <    
       item
-        Width = 167
+        Width = 200
       end    
       item
-        Width = 125
+        Width = 150
       end    
       item
-        Width = 83
+        Width = 100
       end>
     ParentFont = False
@@ -37 +37 @@
     Height = 593
     Top = 0
-    Width = 27
+    Width = 32
     Align = alLeft
-    ButtonHeight = 27
-    ButtonWidth = 27
+    ButtonHeight = 32
+    ButtonWidth = 32
     Images = Core.ImageListSmall
     ParentFont = False
@@ -54 +54 @@
     object ToolButton6: TToolButton
       Left = 1
-      Top = 61
+      Top = 71
       Action = AZoomIn
     end
     object ToolButton7: TToolButton
       Left = 1
-      Top = 88
+      Top = 103
       Action = AZoomOut
     end
     object ToolButton8: TToolButton
       Left = 1
-      Top = 115
+      Top = 135
       Action = AZoomAll
     end
     object ToolButton9: TToolButton
       Left = 1
-      Top = 56
-      Width = 27
+      Top = 66
+      Width = 32
       AutoSize = True
       Style = tbsDivider
@@ -76 +76 @@
     object ToolButton1: TToolButton
       Left = 1
-      Top = 29
+      Top = 34
       Action = ASurrender
     end
   end
   object PaintBox1: TPaintBox
-    Left = 27
+    Left = 32
     Height = 593
     Top = 0
-    Width = 748
+    Width = 743
     Align = alClient
     ParentFont = False
@@ -99 +99 @@
     Interval = 20
     OnTimer = Timer1Timer
-    left = 133
-    top = 133
+    Left = 160
+    Top = 160
   end
   object ActionList1: TActionList
     Images = Core.ImageListSmall
-    left = 233
-    top = 127
+    Left = 280
+    Top = 152
     object AZoomIn: TAction
       Caption = 'Zoom in'
@@ -152 +152 @@
   end
   object PopupMenuToolbar: TPopupMenu
-    left = 377
-    top = 82
+    Left = 452
+    Top = 98
     object MenuItem18: TMenuItem
       Action = AToolBarBigIcons