lauffähig mit trayIcon und trayIconHint

1 files changed, 104 insertions, 0 deletions

diff --git a/unit1.lfm b/unit1.lfm
index 8f439a6..5262e06 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -10,6 +10,7 @@ object Form1: TForm1
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnShow = FormShow
   LCLVersion = '1.4.4.0'
   object Image1: TImage
     Left = 0
@@ -17,7 +18,110 @@ object Form1: TForm1
     Top = 0
     Width = 714
   end
+  object WolkeIco: TImage
+    Left = 80
+    Height = 18
+    Top = 18
+    Width = 18
+    Picture.Data = {
+      055449636F6E3E01000000000100010010101000000000002801000016000000
+      2800000010000000200000000100040000000000C00000000000000000000000
+      0000000000000000000000000000800000800000008080008000000080008000
+      8080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00
+      FFFF0000FFFFFF00000000000000000000000077777770000000077077777000
+      0077777077700000007777070007770000777777777777700000077777707770
+      0077707777070000077770777777770007777707007777000777707777077700
+      0777777777077000000777770007000000000070777000000000000777770000
+      0000000000000000FC070000F8030000C0030000800300008001000080000000
+      C0000000800100000001000000010000000100000003000080070000E00F0000
+      FC070000FE0F0000
+    }
+    Visible = False
+  end
+  object SonneIco: TImage
+    Left = 112
+    Height = 18
+    Top = 18
+    Width = 18
+    Picture.Data = {
+      055449636F6E3E01000000000100010010101000000000002801000016000000
+      2800000010000000200000000100040000000000C00000000000000000000000
+      0000000000000000000000000000800000800000008080008000000080008000
+      8080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00
+      FFFF0000FFFFFF0000000000B000000000B00000B0000000000B0000B00000B0
+      000B000BB0000B000000BBBBBBB0B0000000BBBBBBBBB000BBB0BBBBBBBB0000
+      000BBBBBBBBBBBB0000BBBBBBBBBB0000000BBBBBBBB0000000BBBBBBBBB0000
+      00B00BBBBBBB00000B0000BBB000BB00000000B0B00000B000000B000B00000B
+      00000B000B000000FF7F0000DF7F0000EF7D0000EE7B0000F0170000F0070000
+      100F0000E0010000E0070000F00F0000E00F0000D80F0000BC730000FD7D0000
+      FBBE0000FBBF0000
+    }
+    Visible = False
+  end
+  object SturmIco: TImage
+    Left = 144
+    Height = 18
+    Top = 18
+    Width = 18
+    Picture.Data = {
+      055449636F6E3E01000000000100010010101000000000002801000016000000
+      2800000010000000200000000100040000000000C00000000000000000000000
+      0000000000000000000000000000800000800000008080008000000080008000
+      8080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00
+      FFFF0000FFFFFF00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000008F0F000076F7000055BB0000B5DD0000FEDF0000E73F0000
+      DBFF0000DD870000E77B0000FEDD000086EE00007B6F00006D9F00009FF10000
+      FFEE0000FFF60000
+    }
+    Visible = False
+  end
+  object RegenIco: TImage
+    Left = 172
+    Height = 18
+    Top = 18
+    Width = 18
+    Picture.Data = {
+      055449636F6E3E01000000000100010010101000000000002801000016000000
+      2800000010000000200000000100040000000000C00000000000000000000000
+      0000000000000000000000000000800000800000008080008000000080008000
+      8080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00
+      FFFF0000FFFFFF000000000000000000C020000000000020C0A2A0000000A2AC
+      C0CA2A2A2A2A2A0C00C0A2A2A2A2A00C00000A2A2A2A0C000000C002A2000C00
+      0000C0C000000C000C00C0C000C0000C0C00C000C0C0000C00000000C0C0000C
+      000000C0C000C000000C00C00000C000000C0000C000C0C00C0C0000C00000C0
+      0C0C0000C00000C0FEFF00005D7D00004770000040020000D0060000F80B0000
+      F63B0000F5FB0000B5DE0000B75E0000FF5E0000FD770000EDF70000EF750000
+      AF7D0000AF7D0000
+    }
+    Visible = False
+  end
+  object RegenSturmIco: TImage
+    Left = 200
+    Height = 18
+    Top = 18
+    Width = 18
+    Picture.Data = {
+      055449636F6E3E01000000000100010010101000000000002801000016000000
+      2800000010000000200000000100040000000000C00000000000000000000000
+      0000000000000000000000000000800000800000008080008000000080008000
+      8080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00
+      FFFF0000FFFFFF000000000000000C00C000C00000000C00C000C000000C0C0C
+      C0C0C009190C000C00C001919191000C0000191919191C000001919191919100
+      001910C0000019100C90C0C000C0009C0C00C000C0C0000C00000000C0C0000C
+      000000C0C000C000000C00C00000C000000C0000C000C0C00C0C0000C00000C0
+      0C0C0000C00000C0FEFB0000757B0000776A0000562E0000D80E0000F0030000
+      E0030000C5F1000095DC0000B75E0000FF5E0000FD770000EDF70000EF750000
+      AF7D0000AF7D0000
+    }
+    Visible = False
+  end
   object TrayIcon1: TTrayIcon
+    OnClick = TrayIcon1Click
+    OnDblClick = TrayIcon1DblClick
+    OnMouseDown = TrayIcon1MouseDown
     left = 16
     top = 8
   end