summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2015-11-20 09:10:06 +0100
committerErich Eckner <git@eckner.net>2015-11-20 09:10:06 +0100
commitb02e31d9ce638a20006206d4b779c7e649769c8a (patch)
tree292136b0c2d1d24832a8d843d33c6f9503901615
parent58dd07f96484aef4e029e8a5ebd863b640cbec3f (diff)
downloadFH-Wetter-b02e31d9ce638a20006206d4b779c7e649769c8a.tar.xz
form1.icon angepasst
-rw-r--r--unit1.lfm2
-rw-r--r--unit1.pas11
-rw-r--r--wetter.lps91
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 @@
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<CursorPos X="12" Y="6"/>
- <UsageCount Value="57"/>
+ <UsageCount Value="58"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
@@ -19,8 +19,9 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
- <CursorPos X="13" Y="7"/>
- <UsageCount Value="57"/>
+ <TopLine Value="215"/>
+ <CursorPos X="54" Y="252"/>
+ <UsageCount Value="58"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
@@ -28,7 +29,7 @@
<Filename Value="original/pegelunit.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
- <UsageCount Value="57"/>
+ <UsageCount Value="58"/>
</Unit2>
<Unit3>
<Filename Value="fhunit.pas"/>
@@ -36,7 +37,7 @@
<EditorIndex Value="2"/>
<TopLine Value="573"/>
<CursorPos X="18" Y="600"/>
- <UsageCount Value="57"/>
+ <UsageCount Value="58"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
@@ -45,7 +46,7 @@
<EditorIndex Value="3"/>
<TopLine Value="108"/>
<CursorPos X="62" Y="128"/>
- <UsageCount Value="26"/>
+ <UsageCount Value="27"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
@@ -131,132 +132,130 @@
</Unit15>
<Unit16>
<Filename Value="../units/gitupdateunit.pas"/>
- <EditorIndex Value="5"/>
+ <EditorIndex Value="-1"/>
<CursorPos X="18" Y="32"/>
<UsageCount Value="10"/>
- <Loaded Value="True"/>
</Unit16>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
- <Filename Value="pegelunit.pas"/>
- <Caret Line="596" Column="7" TopLine="576"/>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="91" Column="38" TopLine="80"/>
</Position1>
<Position2>
- <Filename Value="pegelunit.pas"/>
- <Caret Line="92" Column="45" TopLine="77"/>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="163" Column="12" TopLine="151"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
- <Caret Line="91" Column="38" TopLine="80"/>
+ <Caret Line="291" TopLine="276"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
- <Caret Line="163" Column="12" TopLine="151"/>
+ <Caret Line="67" TopLine="40"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
- <Caret Line="291" TopLine="276"/>
+ <Caret Line="82" Column="23" TopLine="61"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
- <Caret Line="67" TopLine="40"/>
+ <Caret Line="72" Column="70" TopLine="62"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
- <Caret Line="82" Column="23" TopLine="61"/>
+ <Caret Line="301" Column="19" TopLine="276"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
- <Caret Line="72" Column="70" TopLine="62"/>
+ <Caret Line="35"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
- <Caret Line="301" Column="19" TopLine="276"/>
+ <Caret Line="308" Column="19" TopLine="273"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
- <Caret Line="35"/>
+ <Caret Line="305" Column="36" TopLine="272"/>
</Position10>
<Position11>
- <Filename Value="unit1.pas"/>
- <Caret Line="308" Column="19" TopLine="273"/>
+ <Filename Value="fhunit.pas"/>
+ <Caret Line="608" Column="15" TopLine="576"/>
</Position11>
<Position12>
- <Filename Value="unit1.pas"/>
- <Caret Line="305" Column="36" TopLine="272"/>
+ <Filename Value="../units/fileunit.pas"/>
+ <Caret Line="30" Column="40" TopLine="3"/>
</Position12>
<Position13>
- <Filename Value="fhunit.pas"/>
- <Caret Line="608" Column="15" TopLine="576"/>
+ <Filename Value="../units/fileunit.pas"/>
+ <Caret Line="101" Column="42" TopLine="78"/>
</Position13>
<Position14>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="30" Column="40" TopLine="3"/>
+ <Caret Line="25" Column="42" TopLine="18"/>
</Position14>
<Position15>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="101" Column="42" TopLine="78"/>
+ <Caret Line="134" TopLine="96"/>
</Position15>
<Position16>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="25" Column="42" TopLine="18"/>
+ <Caret Line="46" Column="29" TopLine="21"/>
</Position16>
<Position17>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="134" TopLine="96"/>
+ <Caret Line="84" Column="23" TopLine="53"/>
</Position17>
<Position18>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="46" Column="29" TopLine="21"/>
+ <Caret Line="141" Column="7" TopLine="106"/>
</Position18>
<Position19>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="84" Column="23" TopLine="53"/>
+ <Caret Line="27" TopLine="20"/>
</Position19>
<Position20>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="141" Column="7" TopLine="106"/>
+ <Caret Line="133" Column="13" TopLine="110"/>
</Position20>
<Position21>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="27" TopLine="20"/>
+ <Caret Line="31" TopLine="9"/>
</Position21>
<Position22>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="133" Column="13" TopLine="110"/>
+ <Caret Line="216" Column="11" TopLine="177"/>
</Position22>
<Position23>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="31" TopLine="9"/>
+ <Caret Line="153" TopLine="147"/>
</Position23>
<Position24>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="216" Column="11" TopLine="177"/>
+ <Caret Line="168" Column="18" TopLine="135"/>
</Position24>
<Position25>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="153" TopLine="147"/>
+ <Caret Line="160" Column="21" TopLine="140"/>
</Position25>
<Position26>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="168" Column="18" TopLine="135"/>
+ <Caret Line="173" TopLine="143"/>
</Position26>
<Position27>
- <Filename Value="../units/fileunit.pas"/>
- <Caret Line="160" Column="21" TopLine="140"/>
+ <Filename Value="pegelunit.pas"/>
+ <Caret Line="528" Column="18" TopLine="515"/>
</Position27>
<Position28>
<Filename Value="../units/fileunit.pas"/>
- <Caret Line="173" TopLine="143"/>
+ <Caret Line="26" Column="62" TopLine="17"/>
</Position28>
<Position29>
- <Filename Value="pegelunit.pas"/>
- <Caret Line="528" Column="18" TopLine="515"/>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="84" Column="72" TopLine="67"/>
</Position29>
<Position30>
- <Filename Value="../units/fileunit.pas"/>
- <Caret Line="26" Column="62" TopLine="17"/>
+ <Filename Value="unit1.pas"/>
</Position30>
</JumpHistory>
</ProjectSession>