Changeset 28 for trunk/Forms/UFormRecords.lfm

Timestamp:

Sep 10, 2022, 10:21:48 PM (20 months ago)

Author:

chronos

Message:

• Modified: Do not create all application forms at initialization phase but dynamically.

File:

• trunk/Forms/UFormRecords.lfm (modified) (5 diffs)

trunk/Forms/UFormRecords.lfm

@@ -1 +1 @@
 object FormRecords: TFormRecords
   Left = 621
-  Height = 549
+  Height = 824
   Top = 308
-  Width = 897
+  Width = 1346
   Caption = 'Records'
-  ClientHeight = 549
-  ClientWidth = 897
+  ClientHeight = 824
+  ClientWidth = 1346
+  DesignTimePPI = 144
   OnShow = FormShow
   Position = poMainFormCenter
-  LCLVersion = '1.8.0.4'
-  object ListView1: TListView
-    Left = 4
-    Height = 505
-    Top = 4
-    Width = 889
+  LCLVersion = '2.2.2.0'
+  object ListViewRecords: TListView
+    Left = 6
+    Height = 758
+    Top = 6
+    Width = 1334
     Align = alClient
-    BorderSpacing.Around = 4
+    BorderSpacing.Around = 6
     Columns = <    
       item
         Caption = 'Name'
-        Width = 500
+        Width = 750
       end    
       item
         Caption = 'Records'
-        Width = 453
+        Width = 680
       end>
     OwnerData = True
@@ -32 +33 @@
     TabOrder = 0
     ViewStyle = vsReport
-    OnData = ListView1Data
+    OnData = ListViewRecordsData
     OnDblClick = AModifyExecute
-    OnSelectItem = ListView1SelectItem
+    OnSelectItem = ListViewRecordsSelectItem
   end
   object ToolBar1: TToolBar
     Left = 0
-    Height = 36
-    Top = 513
-    Width = 897
+    Height = 54
+    Top = 770
+    Width = 1346
     Align = alBottom
-    ButtonHeight = 32
-    ButtonWidth = 32
+    ButtonHeight = 48
+    ButtonWidth = 48
     Images = Core.ImageList1
     ParentShowHint = False
@@ -54 +55 @@
     end
     object ToolButton2: TToolButton
-      Left = 37
+      Left = 49
       Top = 2
       Action = AModify
     end
     object ToolButton3: TToolButton
-      Left = 73
+      Left = 97
       Top = 2
       Action = ARemove
@@ -66 +67 @@
   object ActionList1: TActionList
     Images = Core.ImageList1
-    left = 350
-    top = 168
+    Left = 525
+    Top = 252
     object AAdd: TAction
       Caption = 'Add'
@@ -86 +87 @@
   object PopupMenu1: TPopupMenu
     Images = Core.ImageList1
-    left = 492
-    top = 172
+    Left = 738
+    Top = 258
     object MenuItem1: TMenuItem
       Action = AAdd