form1.icon angepasst

1 files changed, 6 insertions, 5 deletions

diff --git a/unit1.pas b/unit1.pas
index 9faa644..66d910e 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -245,12 +245,13 @@ begin
   case byte(wetter.sonnigkeit > 0.25) or
       (byte(wetter.maxWind > 2.5)*2) or
       (byte(wetter.gesRegen > 0)*4) of
-    $00:      trayIcon1.Icon:=WolkeIco.Picture.Icon;
-    $01:      trayIcon1.Icon:=SonneIco.Picture.Icon;
-    $02,$03:  trayIcon1.Icon:=SturmIco.Picture.Icon;
-    $04,$05:  trayIcon1.Icon:=RegenIco.Picture.Icon;
-    $06,$07:  trayIcon1.Icon:=RegenSturmIco.Picture.Icon;
+    $00:      trayIcon1.icon:=wolkeIco.picture.icon;
+    $01:      trayIcon1.icon:=sonneIco.picture.icon;
+    $02,$03:  trayIcon1.icon:=sturmIco.picture.icon;
+    $04,$05:  trayIcon1.icon:=regenIco.picture.icon;
+    $06,$07:  trayIcon1.icon:=regenSturmIco.picture.icon;
   end{of Case};
+  form1.icon:=trayIcon1.icon;
 
   s:=wetter.hintInfo+' '+pegel.hintInfo;
   image1.canvas.font.color:=$000000;