paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 04:20:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa/ListBox: ScrollWidth supported at design time

Browse Source
This commit is contained in:
rich2014 2023-09-16 17:55:54 +08:00
parent 6e27d70119
commit 972feb143e
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2365,6 +2365,7 @@ class function TCocoaWSCustomListBox.CreateHandle(const AWinControl:TWinControl;
const AParams:TCreateParams):TLCLHandle;
var
list : TCocoaTableListView;
column : NSTableColumn;
scroll : TCocoaScrollView;
lclListBox: TCustomListBox absolute AWinControl;
cb : TLCLListBoxCallback;
@ -2375,9 +2376,18 @@ begin
Result := 0;
Exit;
end;
cb := TLCLListBoxCallback.CreateWithView(list, AWinControl);
list.callback := cb;
list.addTableColumn(NSTableColumn.alloc.init.autorelease);
column := NSTableColumn.alloc.init.autorelease;
if TCustomListBox(AWinControl).ScrollWidth > 0 then
begin
column.setResizingMask(NSTableColumnNoResizing);
column.setWidth(TCustomListBox(AWinControl).ScrollWidth);
end;
list.addTableColumn(column);
list.setHeaderView(nil);
list.setDataSource(list);
list.setDelegate(list);
@ -2403,6 +2413,7 @@ begin
cb.HandleFrame := scroll;
scroll.callback := list.callback;
scroll.setHasVerticalScroller(true);
scroll.setHasHorizontalScroller(true);
scroll.setAutohidesScrollers(true);
ScrollViewSetBorderStyle(scroll, lclListBox.BorderStyle);
UpdateFocusRing(list, lclListBox.BorderStyle);