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

Cocoa: improve TCocoaTableListView.initWithFrame() compatibility

Browse Source
This commit is contained in:
rich2014 2023-12-06 00:40:48 +08:00
parent cccd1f28b8
commit f86dc6fdc1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -557,7 +557,8 @@ end;
function TCocoaTableListView.initWithFrame(frameRect: NSRect): id;
begin
Result:=inherited initWithFrame(frameRect);
setStyle( CocoaConfig.CocoaTableViewStyle );
if NSAppkitVersionNumber >= NSAppKitVersionNumber11_0 then
setStyle( CocoaConfig.CocoaTableViewStyle );
end;
procedure TCocoaTableListView.mouseDown(event: NSEvent);