paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 12:59:14 +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); layout:= NSCollectionViewFlowLayout(_collectionView.collectionViewLayout);
minSize.width:= 64; minSize.width:= 64;
minSize.height:= 68; minSize.height:= 68;
TCocoaCollectionView(_collectionView).itemSize:= minSize;
layout.setItemSize( minSize ); layout.setItemSize( minSize );
layout.setMinimumInteritemSpacing( 4 ); layout.setMinimumInteritemSpacing( 4 );
layout.setMinimumLineSpacing( 4 ); layout.setMinimumLineSpacing( 4 );
@ -363,6 +364,7 @@ begin
layout:= NSCollectionViewFlowLayout(_collectionView.collectionViewLayout); layout:= NSCollectionViewFlowLayout(_collectionView.collectionViewLayout);
minSize.width:= 150; minSize.width:= 150;
minSize.height:= 28; minSize.height:= 28;
TCocoaCollectionView(_collectionView).itemSize:= minSize;
layout.setItemSize( minSize ); layout.setItemSize( minSize );
layout.setMinimumInteritemSpacing( 10 ); layout.setMinimumInteritemSpacing( 10 );
layout.setMinimumLineSpacing( 0 ); layout.setMinimumLineSpacing( 0 );
@ -432,12 +434,14 @@ end;
procedure TCocoaListView_CollectionView_ListHandler.onInit; procedure TCocoaListView_CollectionView_ListHandler.onInit;
var var
cv: TCocoaCollectionView;
layout: NSCollectionViewFlowLayout; layout: NSCollectionViewFlowLayout;
minSize: NSSize; minSize: NSSize;
begin begin
layout:= NSCollectionViewFlowLayout(_collectionView.collectionViewLayout); layout:= NSCollectionViewFlowLayout(_collectionView.collectionViewLayout);
minSize.width:= 146; minSize.width:= 146;
minSize.height:= 24; minSize.height:= 24;
TCocoaCollectionView(_collectionView).itemSize:= minSize;
layout.setItemSize( minSize ); layout.setItemSize( minSize );
layout.setMinimumInteritemSpacing( 0 ); layout.setMinimumInteritemSpacing( 0 );
layout.setMinimumLineSpacing( 10 ); layout.setMinimumLineSpacing( 10 );
@ -460,12 +464,7 @@ end;
procedure TCocoaListView_CollectionView_ListHandler.onUpdateItemSize( procedure TCocoaListView_CollectionView_ListHandler.onUpdateItemSize(
baseSize: NSSize); baseSize: NSSize);
var
cv: TCocoaCollectionView;
begin begin
cv:= TCocoaCollectionView(_collectionView);
cv.itemSize.Width:= 146;
cv.itemSize.Height:= 24;
end; end;
procedure TCocoaListView_CollectionView_ListHandler.onUpdateItemLayout( procedure TCocoaListView_CollectionView_ListHandler.onUpdateItemLayout(