Ignore:
Timestamp:
May 14, 2024, 4:16:19 PM (5 weeks ago)
Author:
chronos
Message:
  • Fixed: White lines visible in scaled TListBoxEx component on mouse move over list items.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/CevoComponents/ListBoxEx.pas

    r572 r573  
    5858    TextColor := Orange;
    5959  end;
     60
     61  NewRect := Rect(ARect.Left, ARect.Top, ARect.Right + 1, ARect.Bottom + 1);
     62
     63  Canvas.Brush.Color := Color;
     64  Canvas.Brush.Style := TBrushStyle.bsSolid;
     65  Canvas.FillRect(NewRect);
     66
     67  Canvas.Font.Assign(Font);
     68  Canvas.Font.Color := TextColor;
     69
     70  NewRect := Rect(NewRect.Left + 2, NewRect.Top + 1, NewRect.Right - 2, NewRect.Bottom - 2);
     71
    6072  Canvas.Brush.Color := BackgroundColor;
    6173  Canvas.Brush.Style := TBrushStyle.bsSolid;
    62   Canvas.FillRect(ARect);
    63   Canvas.Font.Assign(Font);
    64   Canvas.Font.Color := TextColor;
    65   NewRect := Rect(ARect.Left + 1, ARect.Top + 1, ARect.Right - 1, ARect.Bottom - 1);
    66   Canvas.TextRect(NewRect, ARect.Left + 2, ARect.Top +
    67     (ARect.Height - Canvas.TextHeight(Items[Index])) div 2,
     74  Canvas.FillRect(NewRect);
     75
     76  Canvas.TextRect(NewRect, NewRect.Left + 2, NewRect.Top +
     77    (NewRect.Height - Canvas.TextHeight(Items[Index])) div 2,
    6878    Items[Index], Canvas.TextStyle);
    6979  if odSelected in State then begin
Note: See TracChangeset for help on using the changeset viewer.