paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 00:37:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: initialize TGValue.

Browse Source 
git-svn-id: trunk@46978 -
This commit is contained in:
zeljko 2014-11-24 07:50:18 +00:00
parent 469cfdbb40
commit e5665c4317
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk3/gtk3object.inc
View File

@ -137,6 +137,7 @@ procedure TGtk3WidgetSet.SetDefaultAppFontName;
var
AValue: TGValue;
begin
FillByte(AValue, SizeOf(AValue), 0);
AValue.init(G_TYPE_STRING);
g_object_get_property(gtk_settings_get_default, 'gtk-font-name', @AValue);
FDefaultAppFontName := AValue.get_string;
@ -334,9 +335,11 @@ begin
{$ENDIF}
CharSetEncodingList := TList.Create;
CreateDefaultCharsetEncodings;
AValue.g_type := G_TYPE_BOOLEAN;
FillByte(AValue, SizeOf(AValue), 0);
AValue.init(G_TYPE_BOOLEAN);
AValue.set_boolean(True);
g_object_set_property(gtk_settings_get_default,'gtk-button-images',@AValue);
AValue.unset;
FGlobalCursor := 0;
FAppIcon := nil;