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

Gtk2: fixed TGtk2WSCustomListView.ColumnSetAlignment(). fix for #15853

Browse Source 
git-svn-id: trunk@23961 -
This commit is contained in:
zeljko 2010-03-12 09:40:36 +00:00
parent 9781e6db98
commit 599776e2f2
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -609,6 +609,10 @@ class procedure TGtk2WSCustomListView.ColumnSetAlignment(const ALV: TCustomListV
var
Widgets: PTVWidgets;
GtkColumn: PGtkTreeViewColumn;
Alignment: gfloat;
Value: TGValue;
renderers: PGList;
textrenderer: PGtkCellRenderer;
begin
if not WSCheckHandleAllocated(ALV, 'ColumnSetAlignment')
then Exit;
@ -617,10 +621,18 @@ begin
with Widgets^ do begin
GtkColumn := gtk_tree_view_get_column(PGtkTreeView(MainView), AIndex);
gtk_tree_view_column_set_alignment(GtkColumn, AlignToGtkAlign(AAlignment));
end;
//DebugLn(['ColSetALignment AIndex=',AIndex,' (GtkColumn=nil)=', GtkColumn=nil]);
renderers := gtk_tree_view_column_get_cell_renderers(GtkColumn);
textrenderer := PGtkCellRenderer(g_list_last(renderers)^.data);
g_list_free(renderers);
Alignment := AlignToGtkAlign(AAlignment);
Value.g_type := G_TYPE_FLOAT;
Value.data[0].v_float:= Alignment;
g_object_set_property(G_OBJECT(textrenderer), PChar('xalign'), @Value);
{now we call set alignment because it calls update over visible rows in col}
gtk_tree_view_column_set_alignment(GtkColumn, Alignment);
end;
end;
class procedure TGtk2WSCustomListView.ColumnSetAutoSize(const ALV: TCustomListView;