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

Timestamp:

Jan 2, 2025, 11:17:24 PM (5 days ago)

Author:

chronos

Message:

• Fixed: Color background in players list under Qt5.

File:

• trunk/Packages/Common/Forms/FormList.pas (modified) (1 diff)

trunk/Packages/Common/Forms/FormList.pas

@@ -204 +204 @@
   ItemFields: TItemFields;
   ItemField: TItemField;
+  DrawRect: TRect;
 begin
   ItemFields := TItem(Item.Data).GetFields;
   try
     ItemField := ItemFields[SubItem];
-    if ItemField.DataType = dtColor then
-    with ListView1.Canvas do begin
+    with ListView1.Canvas do
+    if ItemField.DataType = dtColor then begin
       Brush.Color := TItem(Item.Data).GetValueColor(ItemField.Index);
       Brush.Style := bsSolid;
-      FillRect(Item.DisplayRectSubItem(SubItem, drBounds));
-    end;
+      DrawRect := Item.DisplayRectSubItem(SubItem, drBounds);
+      {$IFDEF LCLQT5}
+      // TODO: Wrong rectangle width on Qt5
+      if DrawRect.Width > ListView1.Columns[SubItem].Width then
+        DrawRect.Width := ListView1.Columns[SubItem].Width;
+      {$ENDIF}
+      FillRect(DrawRect);
+      end;
   finally
     ItemFields.Free;