Changeset 74 for trunk/Forms/UFormNew.pas

Timestamp:

Oct 4, 2014, 9:19:27 PM (10 years ago)

Author:

chronos

Message:

• Added: Show player color in player list.
• Added: Confirmation dialog for game restart action.

File:

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

trunk/Forms/UFormNew.pas

@@ -56 +56 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListView1CustomDrawSubItem(Sender: TCustomListView;
+      Item: TListItem; SubItem: Integer; State: TCustomDrawState;
+      var DefaultDraw: Boolean);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1DblClick(Sender: TObject);
@@ -111 +114 @@
     Item.Data := Players[Item.Index];
     Item.SubItems.Add(PlayerModeText[Mode]);
-    Item.SubItems.Add(IntToStr(Color));
+    Item.SubItems.Add(''); // Do not show color text
     Item.SubItems.Add(IntToStr(StartUnits));
   end;
@@ -212 +215 @@
 begin
   ReloadView;
+end;
+
+procedure TFormNew.ListView1CustomDrawSubItem(Sender: TCustomListView;
+  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
+  var DefaultDraw: Boolean);
+begin
+  if SubItem = 2 then
+  with ListView1.Canvas do begin
+    Brush.Color := TPlayer(Item.Data).Color;
+    Brush.Style := bsSolid;
+    FillRect(Item.DisplayRectSubItem(2, drBounds));
+  end;
 end;