From b02e31d9ce638a20006206d4b779c7e649769c8a Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Fri, 20 Nov 2015 09:10:06 +0100 Subject: form1.icon angepasst --- unit1.lfm | 2 +- unit1.pas | 11 ++++---- wetter.lps | 91 +++++++++++++++++++++++++++++++------------------------------- 3 files changed, 52 insertions(+), 52 deletions(-) diff --git a/unit1.lfm b/unit1.lfm index b155d6a..8b69b44 100644 --- a/unit1.lfm +++ b/unit1.lfm @@ -4,7 +4,7 @@ object Form1: TForm1 Top = 826 Width = 713 BorderStyle = bsNone - Caption = 'Form1' + Caption = 'FH-Wetter' ClientHeight = 204 ClientWidth = 713 OnClose = FormClose 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; diff --git a/wetter.lps b/wetter.lps index 6ce3445..849da01 100644 --- a/wetter.lps +++ b/wetter.lps @@ -9,7 +9,7 @@ - + @@ -19,8 +19,9 @@ - - + + + @@ -28,7 +29,7 @@ - + @@ -36,7 +37,7 @@ - + @@ -45,7 +46,7 @@ - + @@ -131,132 +132,130 @@ - + - - - + + - - + + - + - + - + - + - + - + - + - + - - + + - - + + - - + + - + - + - + - + - + - + - + - + - + - + - + - + - + - - + + - + - - + + - - + -- cgit v1.2.3-70-g09d2