Changeset 573 for trunk/Packages

Timestamp:

May 14, 2024, 4:16:19 PM (6 months ago)

Author:

chronos

Message:

• Fixed: White lines visible in scaled TListBoxEx component on mouse move over list items.

File:

• trunk/Packages/CevoComponents/ListBoxEx.pas (modified) (1 diff)

trunk/Packages/CevoComponents/ListBoxEx.pas

@@ -58 +58 @@
     TextColor := Orange;
   end;
+
+  NewRect := Rect(ARect.Left, ARect.Top, ARect.Right + 1, ARect.Bottom + 1);
+
+  Canvas.Brush.Color := Color;
+  Canvas.Brush.Style := TBrushStyle.bsSolid;
+  Canvas.FillRect(NewRect);
+
+  Canvas.Font.Assign(Font);
+  Canvas.Font.Color := TextColor;
+
+  NewRect := Rect(NewRect.Left + 2, NewRect.Top + 1, NewRect.Right - 2, NewRect.Bottom - 2);
+
   Canvas.Brush.Color := BackgroundColor;
   Canvas.Brush.Style := TBrushStyle.bsSolid;
-  Canvas.FillRect(ARect);
-  Canvas.Font.Assign(Font);
-  Canvas.Font.Color := TextColor;
-  NewRect := Rect(ARect.Left + 1, ARect.Top + 1, ARect.Right - 1, ARect.Bottom - 1);
-  Canvas.TextRect(NewRect, ARect.Left + 2, ARect.Top +
-    (ARect.Height - Canvas.TextHeight(Items[Index])) div 2,
+  Canvas.FillRect(NewRect);
+
+  Canvas.TextRect(NewRect, NewRect.Left + 2, NewRect.Top +
+    (NewRect.Height - Canvas.TextHeight(Items[Index])) div 2,
     Items[Index], Canvas.TextStyle);
   if odSelected in State then begin