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

cooca: adding support for listview column text alignment

Browse Source 
git-svn-id: trunk@62711 -
This commit is contained in:
dmitry 2020-03-08 05:54:37 +00:00
parent 04ca721bfc
commit 4aaaa6c59a
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/cocoa/cocoawscomctrls.pas
View File

@ -1127,8 +1127,17 @@ end;
class procedure TCocoaWSCustomListView.ColumnSetAlignment( class procedure TCocoaWSCustomListView.ColumnSetAlignment(
const ALV: TCustomListView; const AIndex: Integer; const ALV: TCustomListView; const AIndex: Integer;
const AColumn: TListColumn; const AAlignment: TAlignment); const AColumn: TListColumn; const AAlignment: TAlignment);
var
lTableLV: TCocoaTableListView;
lNSColumn: NSTableColumn;
const
txtAlign : array[TAlignment] of NSTextAlignment = (
NSLeftTextAlignment, NSRightTextAlignment, NSCenterTextAlignment
);
begin begin
inherited ColumnSetAlignment(ALV, AIndex, AColumn, AAlignment); if not CheckColumnParams(lTableLV, lNSColumn, ALV, AIndex) then Exit;
NSCell(lNSColumn.headerCell).setAlignment( txtAlign[AAlignment] );
NSCell(lNSColumn.dataCell).setAlignment( txtAlign[AAlignment] );
end; end;
class procedure TCocoaWSCustomListView.ColumnSetAutoSize( class procedure TCocoaWSCustomListView.ColumnSetAutoSize(