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

Cocoa/ListView: in vsReport, fix the issue in ItemDisplayRect()

Browse Source
This commit is contained in:
rich2014 2024-07-24 23:12:44 +08:00
parent 16f03ef620
commit 74415b6056
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -475,13 +475,23 @@ end;
function TCocoaTableListView.lclGetLabelRect(ARow, ACol: Integer; function TCocoaTableListView.lclGetLabelRect(ARow, ACol: Integer;
const BoundsRect: TRect): TRect; const BoundsRect: TRect): TRect;
begin begin
Result := BoundsRect; Result:= BoundsRect;
Result.Top:= Result.Top - 2;
Result.Height:= Result.Height + 4;
if self.isImagesInCell then begin
Result.Left:= Result.Left + BoundsRect.Height;
end;
end; end;
function TCocoaTableListView.lclGetIconRect(ARow, ACol: Integer; function TCocoaTableListView.lclGetIconRect(ARow, ACol: Integer;
const BoundsRect: TRect): TRect; const BoundsRect: TRect): TRect;
begin begin
Result := BoundsRect; if self.isImagesInCell then begin
Result:= BoundsRect;
Result.Width:= Result.Height;
end else begin
Result:= TRect.Empty;
end;
end; end;
procedure TCocoaTableListView.lclInsDelRow(Arow: Integer; inserted: Boolean); procedure TCocoaTableListView.lclInsDelRow(Arow: Integer; inserted: Boolean);