paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 03:00:30 +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 var
AValue: TGValue; AValue: TGValue;
begin begin
FillByte(AValue, SizeOf(AValue), 0);
AValue.init(G_TYPE_STRING); AValue.init(G_TYPE_STRING);
g_object_get_property(gtk_settings_get_default, 'gtk-font-name', @AValue); g_object_get_property(gtk_settings_get_default, 'gtk-font-name', @AValue);
FDefaultAppFontName := AValue.get_string; FDefaultAppFontName := AValue.get_string;
@ -334,9 +335,11 @@ begin
{$ENDIF} {$ENDIF}
CharSetEncodingList := TList.Create; CharSetEncodingList := TList.Create;
CreateDefaultCharsetEncodings; CreateDefaultCharsetEncodings;
AValue.g_type := G_TYPE_BOOLEAN; FillByte(AValue, SizeOf(AValue), 0);
AValue.init(G_TYPE_BOOLEAN);
AValue.set_boolean(True); AValue.set_boolean(True);
g_object_set_property(gtk_settings_get_default,'gtk-button-images',@AValue); g_object_set_property(gtk_settings_get_default,'gtk-button-images',@AValue);
AValue.unset;
FGlobalCursor := 0; FGlobalCursor := 0;
FAppIcon := nil; FAppIcon := nil;