From bed9af405db67aff779cece9b72029b7b22b0c1e Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sat, 24 Oct 2009 20:49:55 +0200
Subject: Icon and desktop file

Finally, an icon! Viewer uses different one though (from icon theme).
We install desktop file and icons by default now.

Artwork courtesy of Spajr Gvorcek
---
 UFileAssoc.pas | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'UFileAssoc.pas')

diff --git a/UFileAssoc.pas b/UFileAssoc.pas
index e7768b1..4b4f355 100644
--- a/UFileAssoc.pas
+++ b/UFileAssoc.pas
@@ -56,6 +56,12 @@ const ConstFTAMetaDirectory = '<directory>';
 {$I 'pixmaps/stock_lock_48_png.inc'}
 {$I 'pixmaps/stock_new_16_png.inc'}
 {$I 'pixmaps/stock_up_one_dir_16_png.inc'}
+{$I 'pixmaps/tuxcmd_16_png.inc'}
+{$I 'pixmaps/tuxcmd_24_png.inc'}
+{$I 'pixmaps/tuxcmd_32_png.inc'}
+{$I 'pixmaps/tuxcmd_48_png.inc'}
+{$I 'pixmaps/tuxcmd_64_png.inc'}
+{$I 'pixmaps/tuxcmd_128_png.inc'}
 
 
 
@@ -66,6 +72,7 @@ var FolderIcon, FileIcon, UpDirIcon, SymLinkEmblem, FolderIconLnk, FileIconLnk,
     MounterHDD, MounterRemovable, MounterFloppy, MounterCD, MounterNetwork: TGDKPixbuf;
     StockLock16, StockLock48: TGDKPixbuf;
     ArchiveIcon, ArchiveIconLnk: TGDKPixbuf;
+    AppIcon16, AppIcon24, AppIcon32, AppIcon48, AppIcon64, AppIcon128: TGDKPixbuf;
 
 
 procedure LoadIcons;
@@ -160,6 +167,19 @@ begin
   ArchiveIconLnk := TGDKPixbuf.Create(Application);
   ArchiveIconLnk.FPixbuf := ArchiveIcon.Copy;
   ArchiveIconLnk.CopyArea(SymLinkEmblem, 0, 0, SymLinkEmblem.Width, SymLinkEmblem.Height, FolderIconLnk.Width - SymLinkEmblem.Width, FolderIconLnk.Height - SymLinkEmblem.Height);
+
+  AppIcon16 := TGDKPixbuf.Create(Application);
+  AppIcon16.LoadFromInline(@tuxcmd_16_png[1]);
+  AppIcon24 := TGDKPixbuf.Create(Application);
+  AppIcon24.LoadFromInline(@tuxcmd_24_png[1]);
+  AppIcon32 := TGDKPixbuf.Create(Application);
+  AppIcon32.LoadFromInline(@tuxcmd_32_png[1]);
+  AppIcon48 := TGDKPixbuf.Create(Application);
+  AppIcon48.LoadFromInline(@tuxcmd_48_png[1]);
+  AppIcon64 := TGDKPixbuf.Create(Application);
+  AppIcon64.LoadFromInline(@tuxcmd_64_png[1]);
+  AppIcon128 := TGDKPixbuf.Create(Application);
+  AppIcon128.LoadFromInline(@tuxcmd_128_png[1]);
 end;
 
 (********************************************************************************************************************************)
-- 
cgit v1.2.3