Changeset 298 for trunk/Forms/UFormList.pas

Timestamp:

Jul 10, 2019, 5:35:15 PM (5 years ago)

Author:

chronos

Message:

• Added: New item list type reference. Used in players for reference to selected nation.
• Modified: New game players selection migrated to dynamic item/list forms.

File:

• trunk/Forms/UFormList.pas (modified) (9 diffs)

trunk/Forms/UFormList.pas

@@ -51 +51 @@
     procedure UpdateListViewColumns;
   public
+    MinItemCount: Integer;
+    MaxItemCount: Integer;
     procedure UpdateInterface;
     procedure UpdateList;
@@ -70 +72 @@
   SRemoveItems = 'Remove items';
   SRemoveItemsQuery = 'Do you want to remove selected items?';
-  SNewItem = 'New item';
+  SNew = 'New';
 
 { TFormList }
@@ -83 +85 @@
       for I := ListView1.Items.Count - 1 downto 0 do
         if ListView1.Items[I].Selected then begin
+          if List.Count <= MinItemCount then Break;
           ListView1.Items[I].Selected := False;
           List.Remove(TItem(ListView1.Items[I].Data));
@@ -99 +102 @@
   if Assigned(ListView1.Selected) then
   with TItem(ListView1.Selected.Data) do begin
-    TempEntry := List.GetItemClass.Create;
+    TempEntry := List.CreateItem;
     TempEntry.Assign(TItem(ListView1.Selected.Data));
     FormItem := TFormItem.Create(Self);
@@ -121 +124 @@
   FormItem: TFormItem;
 begin
-  TempEntry := List.GetItemClass.Create;
+  if (MaxItemCount <> -1) and (List.Count >= MaxItemCount) then Exit;
+
+  TempEntry := List.CreateItem;
   FormItem := TFormItem.Create(Self);
   try
-    TempEntry.Name := SNewItem;
+    TempEntry.Name := SNew + ' ' + LowerCase(List.GetItemClass.GetClassName);
     FormItem.Item := TempEntry;
     if FormItem.ShowModal = mrOk then begin
@@ -143 +148 @@
   FormItem: TFormItem;
 begin
-  TempEntry := List.GetItemClass.Create;
+  if (MaxItemCount <> -1) and (List.Count >= MaxItemCount) then Exit;
+
+  TempEntry := List.CreateItem;
   TempEntry.Assign(TItem(ListView1.Selected.Data));
   FormItem := TFormItem.Create(Self);
@@ -183 +190 @@
   for I := 0 to ToolBar1.ButtonCount - 1 do
     ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
+  MinItemCount := 0;
+  MaxItemCount := -1;
 end;
 
@@ -197 +206 @@
   var DefaultDraw: Boolean);
 var
+  ItemFields: TItemFields;
   ItemField: TItemField;
 begin
-  ItemField := TItem(Item.Data).GetField(SubItem);
-  if ItemField.DataType = dtColor then
-  with ListView1.Canvas do begin
-    Brush.Color := TItem(Item.Data).GetValueColor(ItemField.Index);
-    Brush.Style := bsSolid;
-    FillRect(Item.DisplayRectSubItem(1, drBounds));
-  end;
-  ItemField.Free;
+  ItemFields := TItem(Item.Data).GetFields;
+  try
+    ItemField := ItemFields[SubItem];
+    if ItemField.DataType = dtColor then
+    with ListView1.Canvas do begin
+      Brush.Color := TItem(Item.Data).GetValueColor(ItemField.Index);
+      Brush.Style := bsSolid;
+      FillRect(Item.DisplayRectSubItem(SubItem, drBounds));
+    end;
+  finally
+    ItemFields.Free;
+  end;
 end;
 
@@ -272 +286 @@
 procedure TFormList.UpdateInterface;
 begin
-  ARemove.Enabled := Assigned(FList) and Assigned(ListView1.Selected);
+  ARemove.Enabled := Assigned(FList) and Assigned(ListView1.Selected) and (List.Count > MinItemCount);
   AModify.Enabled := Assigned(FList) and Assigned(ListView1.Selected);
-  AAdd.Enabled := Assigned(FList);
+  AAdd.Enabled := Assigned(FList) and ((MaxItemCount = -1) or ((MaxItemCount <> -1) and (List.Count < MaxItemCount)));
+  AClone.Enabled := Assigned(FList) and ((MaxItemCount = -1) or ((MaxItemCount <> -1) and (List.Count < MaxItemCount)));
   ASelectAll.Enabled := ListView1.Items.Count > 0;
 end;