Changeset 28 for trunk/Forms/UFormRecords.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/UFormRecords.pas (modified) (9 diffs)

trunk/Forms/UFormRecords.pas

@@ -16 +16 @@
     AModify: TAction;
     ARemove: TAction;
-    ListView1: TListView;
+    ListViewRecords: TListView;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
@@ -29 +29 @@
     procedure ARemoveExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure ListView1Data(Sender: TObject; Item: TListItem);
-    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
+    procedure ListViewRecordsData(Sender: TObject; Item: TListItem);
+    procedure ListViewRecordsSelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
   public
@@ -38 +38 @@
   end;
 
-var
-  FormRecords: TFormRecords;
 
 implementation
@@ -65 +63 @@
 end;
 
-procedure TFormRecords.ListView1Data(Sender: TObject; Item: TListItem);
+procedure TFormRecords.ListViewRecordsData(Sender: TObject; Item: TListItem);
 var
   I: Integer;
@@ -79 +77 @@
 end;
 
-procedure TFormRecords.ListView1SelectItem(Sender: TObject; Item: TListItem;
+procedure TFormRecords.ListViewRecordsSelectItem(Sender: TObject; Item: TListItem;
   Selected: Boolean);
 begin
@@ -87 +85 @@
 procedure TFormRecords.AModifyExecute(Sender: TObject);
 begin
-  if Assigned(ListView1.Selected) then begin
-    FormRecord.Table := Table;
-    FormRecord.Load(TRecord(ListView1.Selected.Data));
-    if FormRecord.ShowModal = mrOk then begin
-      FormRecord.Save(TRecord(ListView1.Selected.Data));
-      ReloadList;
+  if Assigned(ListViewRecords.Selected) then begin
+    with TFormRecord.Create(nil) do
+    try
+      Table := Self.Table;
+      Load(TRecord(ListViewRecords.Selected.Data));
+      if ShowModal = mrOk then begin
+        Save(TRecord(ListViewRecords.Selected.Data));
+        ReloadList;
+      end;
+    finally
+      Free;
     end;
   end;
@@ -99 +102 @@
 procedure TFormRecords.ARemoveExecute(Sender: TObject);
 begin
-  if Assigned(ListView1.Selected) then
+  if Assigned(ListViewRecords.Selected) then
   if MessageDlg(SRemoveRecord, SRemoveRecordConfirm,
   mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
-    Table.Records.Remove(ListView1.Selected.Data);
+    Table.Records.Remove(ListViewRecords.Selected.Data);
     ReloadList;
   end;
@@ -123 +126 @@
   end;
 
-  FormRecord.Table := Table;
-  FormRecord.Load(NewRecord);
-  if FormRecord.ShowModal = mrOk then begin
-    FormRecord.Save(NewRecord);
-    Table.Records.Add(NewRecord);
-    ReloadList;
-  end else NewRecord.Free;
+  with TFormRecord.Create(nil) do
+  try
+    Table := Self.Table;
+    Load(NewRecord);
+    if ShowModal = mrOk then begin
+      Save(NewRecord);
+      Table.Records.Add(NewRecord);
+      ReloadList;
+    end else NewRecord.Free;
+  finally
+    Free;
+  end;
 end;
 
 procedure TFormRecords.UpdateInterface;
 begin
-  AModify.Enabled := Assigned(ListView1.Selected);
-  ARemove.Enabled := Assigned(ListView1.Selected);
+  AModify.Enabled := Assigned(ListViewRecords.Selected);
+  ARemove.Enabled := Assigned(ListViewRecords.Selected);
 end;
 
@@ -144 +152 @@
   Table.LoadRecords;
 
-  ListView1.Columns.BeginUpdate;
-  while ListView1.Columns.Count > Table.Fields.Count do
-    ListView1.Columns[ListView1.ColumnCount - 1].Free;
-  while ListView1.Columns.Count < Table.Fields.Count do
-    ListView1.Columns.Add;
+  ListViewRecords.Columns.BeginUpdate;
+  while ListViewRecords.Columns.Count > Table.Fields.Count do
+    ListViewRecords.Columns[ListViewRecords.ColumnCount - 1].Free;
+  while ListViewRecords.Columns.Count < Table.Fields.Count do
+    ListViewRecords.Columns.Add;
   for I := 0 to Table.Fields.Count - 1 do begin
-    ListView1.Columns[I].Caption := TField(Table.Fields[I]).TextBefore;
-    ListView1.Columns[I].Width := 200;
+    ListViewRecords.Columns[I].Caption := TField(Table.Fields[I]).TextBefore;
+    ListViewRecords.Columns[I].Width := 200;
   end;
-  ListView1.Columns.EndUpdate;
+  ListViewRecords.Columns.EndUpdate;
 
-  ListView1.Items.Count := Table.Records.Count;
-  ListView1.Repaint;
+  ListViewRecords.Items.Count := Table.Records.Count;
+  ListViewRecords.Repaint;
 end;