From 63ff1bea9bb1e87a7e2643f680d04f2b9c00d072 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Fri, 27 Dec 2024 21:56:14 +0100 Subject: Port to GResource --- UCoreUtils.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'UCoreUtils.pas') diff --git a/UCoreUtils.pas b/UCoreUtils.pas index 1e531a3..a5019d8 100644 --- a/UCoreUtils.pas +++ b/UCoreUtils.pas @@ -21,7 +21,7 @@ unit UCoreUtils; interface -uses SysUtils, Classes, lazglib2, lazgdk3, lazgtk3, GTKClasses, UEngines, ULibc; +uses SysUtils, Classes, lazglib2, lazgobject2, lazgdk3, lazgtk3, GTKClasses, UEngines, ULibc; type PIntArray = ^TIntArray; @@ -828,10 +828,10 @@ begin gtk_about_dialog_set_website(PGtkAboutDialog(about_dialog), PChar('https://tuxcmd.sourceforge.net/')); gtk_about_dialog_set_authors(PGtkAboutDialog(about_dialog), @Authors); gtk_about_dialog_set_translator_credits(PGtkAboutDialog(about_dialog), Translations); - // TODO -// gtk_about_dialog_set_logo(PGtkAboutDialog(about_dialog), AppIcon128.FPixbuf); + gtk_about_dialog_set_logo(PGtkAboutDialog(about_dialog), AppIcon128.FPixbuf); gtk_window_set_transient_for(PGtkWindow(about_dialog), PGtkWindow(FMain.FWidget)); gtk_dialog_run(PGtkDialog(about_dialog)); + g_object_unref(PGObject(about_dialog)); end; procedure SetupAppIcon; -- cgit v1.2.3