Changeset 32 for trunk/Forms/FormTables.lfm

Timestamp:

Jun 29, 2024, 7:58:36 AM (3 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from units names.
• Modified: Use TFormEx for all forms.

File:

• trunk/Forms/FormTables.lfm (moved) (moved from trunk/Forms/UFormTables.lfm ) (5 diffs)

trunk/Forms/FormTables.lfm

@@ -1 +1 @@
 object FormTables: TFormTables
   Left = 731
-  Height = 792
+  Height = 688
   Top = 117
-  Width = 1174
+  Width = 1019
   Caption = 'Tables'
-  ClientHeight = 792
-  ClientWidth = 1174
-  DesignTimePPI = 144
+  ClientHeight = 688
+  ClientWidth = 1019
+  DesignTimePPI = 125
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.2.2.0'
+  LCLVersion = '3.2.0.0'
   object ListViewTables: TListView
-    Left = 5
-    Height = 739
-    Top = 5
-    Width = 1164
+    Left = 4
+    Height = 643
+    Top = 4
+    Width = 1011
     Align = alClient
-    BorderSpacing.Around = 5
+    BorderSpacing.Around = 4
     Columns = <    
       item
         Caption = 'Name'
-        Width = 600
+        Width = 521
       end    
       item
         Caption = 'Records'
-        Width = 549
+        Width = 477
       end>
     OwnerData = True
@@ -40 +40 @@
   object ToolBar1: TToolBar
     Left = 0
-    Height = 43
-    Top = 749
-    Width = 1174
+    Height = 37
+    Top = 651
+    Width = 1019
     Align = alBottom
-    ButtonHeight = 38
-    ButtonWidth = 38
+    ButtonHeight = 33
+    ButtonWidth = 33
     Images = Core.ImageList1
     ParentShowHint = False
@@ -56 +56 @@
     end
     object ToolButton2: TToolButton
-      Left = 39
+      Left = 37
       Top = 2
       Action = AModify
     end
     object ToolButton3: TToolButton
-      Left = 77
+      Left = 73
       Top = 2
       Action = ARemove
     end
     object ToolButton4: TToolButton
-      Left = 115
+      Left = 109
       Top = 2
       Action = AShowRecords
     end
     object ToolButton5: TToolButton
-      Left = 153
+      Left = 145
       Top = 2
       Action = AShowFields
@@ -78 +78 @@
   object ActionList1: TActionList
     Images = Core.ImageList1
-    Left = 368
-    Top = 173
+    Left = 319
+    Top = 150
     object AAdd: TAction
       Caption = 'Add'
@@ -108 +108 @@
   object PopupMenu1: TPopupMenu
     Images = Core.ImageList1
-    Left = 557
-    Top = 173
+    Left = 484
+    Top = 150
     object MenuItem4: TMenuItem
       Action = AShowRecords