paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 09:20:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: fix themed header draw

Browse Source 
git-svn-id: trunk@34409 -
This commit is contained in:
blikblum 2011-12-25 18:10:25 +00:00
parent 21f19f200b
commit 08eba51e69
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -7784,7 +7784,6 @@ begin
If CompareText(WName,LazGtkStyleNames[lgsTreeView])=0 then begin
lgs:=lgsTreeView;
StyleObject^.Widget := gtk_tree_view_new;
gtk_tree_view_append_column(PGtkTreeView(StyleObject^.Widget), gtk_tree_view_column_new);
end
else
@ -7903,6 +7902,11 @@ begin
if not GtkWidgetIsA(StyleObject^.Widget,GTK_WINDOW_GET_TYPE) then begin
//DebugLn(['GetStyleWithName realizing ...']);
gtk_widget_realize(StyleObject^.Widget);
//columns of treeview should be added after realize otherwise they will have invalid styles
if lgs = lgsTreeView then
begin
gtk_tree_view_append_column(PGtkTreeView(StyleObject^.Widget), gtk_tree_view_column_new);
end;
//DebugLn('AddToStyleWindow realized: ',WName,' ',GetWidgetDebugReport(StyleObject^.Widget));
end;
ResizeWidget(StyleObject^.Widget,200,200);

1
lcl/interfaces/gtk2/gtk2themes.pas
View File

@ -487,6 +487,7 @@ begin
Result.Widget := GetColumnButtonFromTreeView(GetStyleWidget(lgsTreeView));
if Result.Widget = nil then
Result.Widget := GetStyleWidget(lgsTreeView);
Result.Style := gtk_widget_get_style(Result.Widget);
Result.State := GtkButtonMap[Details.State];
if Details.State = PBS_PRESSED then
Result.Shadow := GTK_SHADOW_IN