mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 05:55:54 +02:00
cooca: adding support for listview column text alignment
git-svn-id: trunk@62711 -
This commit is contained in:
parent
04ca721bfc
commit
4aaaa6c59a
@ -1127,8 +1127,17 @@ end;
|
||||
class procedure TCocoaWSCustomListView.ColumnSetAlignment(
|
||||
const ALV: TCustomListView; const AIndex: Integer;
|
||||
const AColumn: TListColumn; const AAlignment: TAlignment);
|
||||
var
|
||||
lTableLV: TCocoaTableListView;
|
||||
lNSColumn: NSTableColumn;
|
||||
const
|
||||
txtAlign : array[TAlignment] of NSTextAlignment = (
|
||||
NSLeftTextAlignment, NSRightTextAlignment, NSCenterTextAlignment
|
||||
);
|
||||
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;
|
||||
|
||||
class procedure TCocoaWSCustomListView.ColumnSetAutoSize(
|
||||
|
Loading…
Reference in New Issue
Block a user