paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 11:49:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: fix the background color issue in ListView/ListBox introduced by 85c17eb

Browse Source
This commit is contained in:
rich2014 2024-08-23 23:51:25 +08:00
parent 9a92e07736
commit 895a3a9ed1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/cocoa/cocoatables.pas
View File

@ -360,7 +360,7 @@ var
width: Integer;
height: Integer;
begin
if lclBrush.Color = clWindow then
if (lclBrush.Color=clWindow) or (lclBrush.Color=clDefault) then
Exit;
width:= Round( view.bounds.size.width );
@ -380,6 +380,11 @@ procedure TCocoaTableRowView.drawRect(dirtyRect: NSRect);
var
done: Boolean;
begin
if NOT self.tableView.isOwnerDraw then begin
inherited drawRect( dirtyRect );
Exit;
end;
done:= self.tableView.lclCallDrawItem( row , self.bounds.size, dirtyRect );
if done then begin