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

Cocoa/ListView: Icon settings Improved

Browse Source
This commit is contained in:
rich2014 2024-08-13 13:38:40 +08:00
parent 26ee30a703
commit 0abdb4de1e
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -619,7 +619,7 @@ begin
itemView.item:= self; itemView.item:= self;
imageControl:= NSImageView.alloc.initWithFrame( NSZeroRect ); imageControl:= NSImageView.alloc.initWithFrame( NSZeroRect );
imageControl.cell.setImageScaling( NSImageScaleProportionallyUpOrDown ); imageControl.setImageScaling( NSImageScaleProportionallyUpOrDown );
self.setImageView( imageControl ); self.setImageView( imageControl );
itemView.addSubview( imageControl ); itemView.addSubview( imageControl );
@ -647,6 +647,7 @@ begin
_checkBox:= nil; _checkBox:= nil;
end; end;
self.imageView.setImage( nil );
self.view.removeFromSuperview; self.view.removeFromSuperview;
end; end;

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

@ -975,7 +975,7 @@ begin
Exit; Exit;
imageControl:= NSImageView.alloc.initWithFrame( NSZeroRect ); imageControl:= NSImageView.alloc.initWithFrame( NSZeroRect );
imageControl.cell.setImageScaling( NSImageScaleProportionallyUpOrDown ); imageControl.setImageScaling( NSImageScaleProportionallyUpOrDown );
self.setImageView( imageControl ); self.setImageView( imageControl );
self.addSubview( imageControl ); self.addSubview( imageControl );
end; end;