Changeset 28 for trunk/Forms/UFormRecord.pas

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/UFormRecord.pas (modified) (5 diffs)

trunk/Forms/UFormRecord.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  ComCtrls, ActnList, StdCtrls, EditBtn, UDatabase, Contnrs, Spin;
+  ComCtrls, ActnList, StdCtrls, EditBtn, UDatabase, Spin, Generics.Collections;
 
 type
@@ -26 +26 @@
     Table: TTable;
     Row: TRecord;
-    Controls: TObjectList; // TListObject<TControl>
-    Labels: TObjectList; // TListObject<TControl>
+    Controls: TObjectList<TControl>;
+    Labels: TObjectList<TControl>;
     procedure ReloadControls;
     procedure Load(DataRecord: TRecord);
@@ -33 +33 @@
   end;
 
-var
-  FormRecord: TFormRecord;
 
 implementation
@@ -43 +41 @@
 {$R *.lfm}
 
+resourcestring
+  STableRecordEdit = 'Table record edit';
+
 { TFormRecord }
 
 procedure TFormRecord.FormShow(Sender: TObject);
 begin
-  Caption := 'Table record edit - ' + Table.Caption;
+  Caption := STableRecordEdit + ' - ' + Table.Caption;
   ReloadControls;
 end;
@@ -63 +64 @@
 procedure TFormRecord.FormCreate(Sender: TObject);
 begin
-  Controls := TObjectList.Create;
-  Labels := TObjectList.Create;
+  Controls := TObjectList<TControl>.Create;
+  Labels := TObjectList<TControl>.Create;
 end;
 
 procedure TFormRecord.FormDestroy(Sender: TObject);
 begin
-  Labels.Free;
-  Controls.Free;
+  FreeAndNil(Labels);
+  FreeAndNil(Controls);
 end;