paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 03:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: use LCLIntfCellRenderer for text rendering in TGtk3CheckListBox, so we can use OwnerDraw modes (OnDrawItem event)

Browse Source 
git-svn-id: trunk@42978 -
This commit is contained in:
zeljko 2013-09-27 09:02:10 +00:00
parent 6ec1af244d
commit 86dacb6100
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -4927,7 +4927,7 @@ var
ItemList: TGtkListStoreStringList; ItemList: TGtkListStoreStringList;
AColumn: PGtkTreeViewColumn; AColumn: PGtkTreeViewColumn;
Toggle: PGtkCellRendererToggle; Toggle: PGtkCellRendererToggle;
Renderer : PGtkCellRendererText; Renderer : PGtkCellRenderer;
VAdjust, HAdjust: PGtkAdjustment; VAdjust, HAdjust: PGtkAdjustment;
AScrollStyle: TPoint; AScrollStyle: TPoint;
TreeModel: PGtkTreeModel; TreeModel: PGtkTreeModel;
@ -4961,8 +4961,7 @@ begin
g_signal_connect_data(Toggle, 'toggled', TGCallback(@Gtk3WS_CheckListBoxToggle), Self, nil, 0); g_signal_connect_data(Toggle, 'toggled', TGCallback(@Gtk3WS_CheckListBoxToggle), Self, nil, 0);
Renderer := LCLIntfCellRenderer_New(); // gtk_cell_renderer_text_new;
Renderer := gtk_cell_renderer_text_new;
g_object_set_data(PGObject(Renderer), 'lclwidget', Self); g_object_set_data(PGObject(Renderer), 'lclwidget', Self);
@ -4973,6 +4972,8 @@ begin
// AColumn^.pack_start(Renderer, True); // AColumn^.pack_start(Renderer, True);
AColumn^.set_cell_data_func(Renderer, @LCLIntfRenderer_ColumnCellDataFunc, Self, nil);
PGtkTreeView(FCentralWidget)^.append_column(AColumn); PGtkTreeView(FCentralWidget)^.append_column(AColumn);
ItemList := TGtkListStoreStringList.Create(PGtkListStore(PGtkTreeView(FCentralWidget)^.get_model), 1, LCLObject); ItemList := TGtkListStoreStringList.Create(PGtkListStore(PGtkTreeView(FCentralWidget)^.get_model), 1, LCLObject);