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

Cocoa: ItemHeight of TListBox/TListCheckBox supported

Browse Source
This commit is contained in:
rich2014 2024-08-30 21:16:47 +08:00
parent 3b2e3f14ee
commit bf1b3f3767
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/cocoa/cocoawschecklst.pas
View File

@ -152,6 +152,7 @@ begin
list.setDataSource(list);
list.setDelegate(list);
list.setAllowsMultipleSelection(lclCheckListBox.MultiSelect);
list.CustomRowHeight:= lclCheckListBox.ItemHeight;
list.readOnly := true;
//todo:
//list.AllowMixedState := TCustomCheckListBox(AWinControl).AllowGrayed;

1
lcl/interfaces/cocoa/cocoawsstdctrls.pas
View File

@ -2524,6 +2524,7 @@ begin
list.setDataSource(list);
list.setDelegate(list);
list.setAllowsMultipleSelection(lclListBox.MultiSelect);
list.CustomRowHeight:= lclListBox.ItemHeight;
list.readOnly := true;
// LCL ItemHeight for TListBox can only be set during Recreation of Handle
if TCustomListBox(AWinControl).ItemHeight>0 then