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

Cocoa: Fix the issue where ListBox/ListView may be incorrectly set to a huge height

Browse Source 
1. NSTableView.fittingSize returns the full height, not the visible height
2. the issue can be observed in IDE Options - Component Palette
This commit is contained in:
rich2014 2024-01-24 00:19:11 +08:00
parent a284237384
commit 56d9ea7958
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -94,6 +94,7 @@ type
function initWithFrame(frameRect: NSRect): id; override;
procedure dealloc; override;
function fittingSize: NSSize; override;
procedure drawRow_clipRect(row: NSInteger; clipRect: NSRect); override;
procedure drawRect(dirtyRect: NSRect); override;
@ -505,6 +506,11 @@ begin
inherited dealloc;
end;
function TCocoaTableListView.fittingSize: NSSize;
begin
Result:= NSZeroSize;
end;
procedure TCocoaTableListView.drawRow_clipRect(row: NSInteger; clipRect: NSRect
);
var