Changeset 358 for trunk/Packages/Common/Forms/FormList.pas

Timestamp:

Dec 31, 2024, 11:06:34 AM (8 days ago)

Author:

chronos

Message:

• Fixed: Missing toolbar and context menu images in FormList form.
• Fixed: FormList remove minimal item count limit on items remove.

File:

• trunk/Packages/Common/Forms/FormList.pas (modified) (4 diffs)

trunk/Packages/Common/Forms/FormList.pas

@@ -47 +47 @@
       Selected: Boolean);
   private
+    FImages: TImageList;
     FList: TBaseItemList;
+    procedure SetImages(AValue: TImageList);
     procedure SetList(AValue: TBaseItemList);
     procedure UpdateListViewColumns;
@@ -56 +58 @@
     procedure UpdateList;
     property List: TBaseItemList read FList write SetList;
+    property Images: TImageList read FImages write SetImages;
   end;
 
@@ -264 +267 @@
 end;
 
+procedure TFormList.SetImages(AValue: TImageList);
+begin
+  if FImages = AValue then Exit;
+  FImages := AValue;
+  ToolBar1.Images := FImages;
+  PopupMenu1.Images := FImages;
+end;
+
 procedure TFormList.UpdateListViewColumns;
 var
@@ -293 +304 @@
 procedure TFormList.UpdateInterface;
 begin
-  ARemove.Enabled := Assigned(FList) and Assigned(ListView1.Selected) and (List.Count > MinItemCount);
+  ARemove.Enabled := Assigned(FList) and Assigned(ListView1.Selected) and ((List.Count - ListView1.SelCount) >= MinItemCount);
   AModify.Enabled := Assigned(FList) and Assigned(ListView1.Selected);
   AAdd.Enabled := Assigned(FList) and ((MaxItemCount = -1) or ((MaxItemCount <> -1) and (List.Count < MaxItemCount)));