diff options
Diffstat (limited to 'UCoreUtils.pas')
| -rw-r--r-- | UCoreUtils.pas | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/UCoreUtils.pas b/UCoreUtils.pas index f3617f6..02cb4e5 100644 --- a/UCoreUtils.pas +++ b/UCoreUtils.pas @@ -74,6 +74,7 @@ procedure DeleteFromArray(Index: integer; var SubStrings: TOpenStringArray); function ProcessPattern(Engine: TPanelEngine; Pattern, APath, FileName: string; const Directory: boolean): string; // Processess pattern with FileName located in APath and return destination path+filename procedure ShowAbout; +procedure SetupAppIcon; procedure TrimCRLFESC(var s: string); procedure TrimQuotes(var s: string); @@ -141,7 +142,7 @@ var ChildExitStatus: sig_atomic_t; implementation -uses DateUtils, GTKForms, GTKUtils, GTKView, ULocale, UConfig, UCore, UGnome, UMain; +uses DateUtils, GTKForms, GTKUtils, GTKView, ULocale, UConfig, UCore, UGnome, UMain, UFileAssoc; (********************************************************************************************************************************) function GetErrorString(ErrorNo: integer): string; @@ -844,12 +845,26 @@ begin else begin AboutBox := gnome_about_new('Tux Commander', nil, 'Copyright © 2009 Tomáš Bžatek', PChar(Format(LANGAboutStringGnome, [ConstAboutVersion, ConstAboutBuildDate])), - @Authors, nil, Translations, nil); + @Authors, nil, Translations, AppIcon128.FPixbuf); gtk_window_set_transient_for(GTK_WINDOW(AboutBox), GTK_WINDOW(FMain.FWidget)); gtk_dialog_run(GTK_DIALOG(AboutBox)); end; end; +procedure SetupAppIcon; +var List: PGList; +begin + List := nil; + List := g_list_append(List, AppIcon16.FPixbuf); + List := g_list_append(List, AppIcon24.FPixbuf); + List := g_list_append(List, AppIcon32.FPixbuf); + List := g_list_append(List, AppIcon48.FPixbuf); + List := g_list_append(List, AppIcon64.FPixbuf); + List := g_list_append(List, AppIcon128.FPixbuf); + gtk_window_set_default_icon_list(List); + g_list_free(List); +end; + (********************************************************************************************************************************) procedure TrimCRLFESC(var s: string); begin |