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

gtk2: return details size for tree sign

Browse Source 
git-svn-id: trunk@17234 -
This commit is contained in:
paul 2008-11-05 09:36:21 +00:00
parent 2ddbc5600b
commit bc82ee17a1
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,8 +44,6 @@ end;
function TGtk2ThemeServices.GetGtkStyleParams(DC: HDC;
Details: TThemedElementDetails; AIndex: Integer): TGtkStyleParams;
var
AValue: TGValue;
begin
Result := inherited GetGtkStyleParams(DC, Details, AIndex);
@ -112,18 +110,25 @@ begin
else
Result.Expander := GTK_EXPANDER_EXPANDED;
FillChar(AValue, SizeOf(AValue), 0);
g_value_init(@AValue, G_TYPE_INT);
gtk_widget_style_get_property(Result.Widget, 'expander-size', @AValue);
Result.ExpanderSize := AValue.data[0].v_int;
Result.ExpanderSize := GetDetailSize(Details);
end;
end;
end;
end;
function TGtk2ThemeServices.GetDetailSize(Details: TThemedElementDetails): Integer;
var
AValue: TGValue;
begin
Result := GetBaseDetailsSize(Details);
if (Details.Element = teTreeView) and (Details.Part = TVP_GLYPH) then
begin
FillChar(AValue, SizeOf(AValue), 0);
g_value_init(@AValue, G_TYPE_INT);
gtk_widget_style_get_property(GetStyleWidget(lgsTreeView), 'expander-size', @AValue);
Result := AValue.data[0].v_int;
end
else
Result := GetBaseDetailsSize(Details);
end;
end.