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

Cocoa/ListView: in vsIcon/vsSmallIcon/vsList, fix text position when no Icon set

Browse Source
This commit is contained in:
rich2014 2024-08-01 22:13:20 +08:00
parent e6362d77f3
commit 21b35540cd
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -284,6 +284,7 @@ begin
layout:= NSCollectionViewFlowLayout(_collectionView.collectionViewLayout);
minSize.width:= 64;
minSize.height:= 68;
TCocoaCollectionView(_collectionView).itemSize:= minSize;
layout.setItemSize( minSize );
layout.setMinimumInteritemSpacing( 4 );
layout.setMinimumLineSpacing( 4 );
@ -363,6 +364,7 @@ begin
layout:= NSCollectionViewFlowLayout(_collectionView.collectionViewLayout);
minSize.width:= 150;
minSize.height:= 28;
TCocoaCollectionView(_collectionView).itemSize:= minSize;
layout.setItemSize( minSize );
layout.setMinimumInteritemSpacing( 10 );
layout.setMinimumLineSpacing( 0 );
@ -432,12 +434,14 @@ end;
procedure TCocoaListView_CollectionView_ListHandler.onInit;
var
cv: TCocoaCollectionView;
layout: NSCollectionViewFlowLayout;
minSize: NSSize;
begin
layout:= NSCollectionViewFlowLayout(_collectionView.collectionViewLayout);
minSize.width:= 146;
minSize.height:= 24;
TCocoaCollectionView(_collectionView).itemSize:= minSize;
layout.setItemSize( minSize );
layout.setMinimumInteritemSpacing( 0 );
layout.setMinimumLineSpacing( 10 );
@ -460,12 +464,7 @@ end;
procedure TCocoaListView_CollectionView_ListHandler.onUpdateItemSize(
baseSize: NSSize);
var
cv: TCocoaCollectionView;
begin
cv:= TCocoaCollectionView(_collectionView);
cv.itemSize.Width:= 146;
cv.itemSize.Height:= 24;
end;
procedure TCocoaListView_CollectionView_ListHandler.onUpdateItemLayout(