Changeset 28 for trunk/Forms/UFormConnect.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/UFormConnect.lfm (modified) (7 diffs)

trunk/Forms/UFormConnect.lfm

@@ -4 +4 @@
   Top = 509
   Width = 739
-  Caption = 'Connection parameters:'
+  Caption = 'Connection parameters'
   ClientHeight = 542
   ClientWidth = 739
   DesignTimePPI = 144
-  OnShow = FormShow
+  OnCreate = FormCreate
   LCLVersion = '2.2.2.0'
   object EditName: TEdit
-    Left = 253
+    Left = 256
     Height = 43
     Top = 25
-    Width = 313
+    Width = 310
     TabOrder = 0
   end
   object Label1: TLabel
-    Left = 19
+    Left = 18
     Height = 26
-    Top = 31
+    Top = 32
     Width = 56
     Caption = 'Name:'
@@ -26 +26 @@
   end
   object Label2: TLabel
-    Left = 19
+    Left = 18
     Height = 26
     Top = 80
@@ -33 +33 @@
     ParentColor = False
   end
-  object ComboBox1: TComboBox
+  object ComboBoxDbEngines: TComboBox
     Left = 256
     Height = 42
-    Top = 80
-    Width = 312
+    Top = 72
+    Width = 310
     ItemHeight = 0
-    OnChange = ComboBox1Change
+    OnChange = ComboBoxDbEnginesChange
     Style = csDropDownList
     TabOrder = 1
   end
   object ButtonOk: TButton
-    Left = 552
+    Left = 624
     Height = 30
-    Top = 482
+    Top = 496
     Width = 90
     Anchors = [akRight, akBottom]
@@ -54 +54 @@
   end
   object ButtonCancel: TButton
-    Left = 403
+    Left = 488
     Height = 30
-    Top = 480
+    Top = 496
     Width = 90
     Anchors = [akRight, akBottom]
@@ -65 +65 @@
   object PageControl1: TPageControl
     Left = 18
-    Height = 300
+    Height = 340
     Top = 139
     Width = 703
@@ -74 +74 @@
     TabOrder = 4
     object TabSheetXml: TTabSheet
-      ClientHeight = 296
+      ClientHeight = 336
       ClientWidth = 693
       object Label3: TLabel
@@ -104 +104 @@
     end
     object TabSheetSql: TTabSheet
-      ClientHeight = 296
+      ClientHeight = 336
       ClientWidth = 693
       object Label4: TLabel