Changeset 346 for trunk/Forms/FormList.pas

Timestamp:

Dec 25, 2024, 11:04:56 AM (27 hours ago)

Author:

chronos

Message:

• Fixed: Build on Linux.
• Modified: Improved internal code structure.

File:

• trunk/Forms/FormList.pas (modified) (3 diffs)

trunk/Forms/FormList.pas

@@ -35 +35 @@
     procedure ASelectAllExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1CustomDrawSubItem(Sender: TCustomListView;
@@ -182 +183 @@
 end;
 
+procedure TFormList.FormDestroy(Sender: TObject);
+begin
+  List := nil;
+end;
+
 procedure TFormList.FormShow(Sender: TObject);
 begin
@@ -254 +260 @@
   if FList = AValue then Exit;
   FList := AValue;
+  UpdateInterface;
+  UpdateList;
 end;