pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

To V0.0.2.0 TrayIcon added

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5574 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-30 07:28:09 +00:00
parent bc99461287
commit 0dcb581438
10 changed files with 220 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/foobot/foobot_utility.pas
View File

@ -1,6 +1,6 @@
unit foobot_utility; unit foobot_utility;
{ Foobot Interrogator Utilities { Foobot Utilities
Copyright (C)2016 Gordon Bamber minsadorada@charcodelvalle.com Copyright (C)2016 Gordon Bamber minsadorada@charcodelvalle.com

3
applications/foobot/monitor/foobotmonitor.lpi
View File

@ -19,7 +19,8 @@
</General> </General>
<VersionInfo> <VersionInfo>
<UseVersionInfo Value="True"/> <UseVersionInfo Value="True"/>
<RevisionNr Value="1"/> <RevisionNr Value="2"/>
<StringTable ProductVersion="0.0.1.0"/>
</VersionInfo> </VersionInfo>
<BuildModes Count="6"> <BuildModes Count="6">
<Item1 Name="Debug" Default="True"/> <Item1 Name="Debug" Default="True"/>

180
applications/foobot/monitor/foobotmonitor.lps
View File

@ -3,14 +3,14 @@
<ProjectSession> <ProjectSession>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="10"/> <Version Value="10"/>
<BuildModes Active="win64"/> <BuildModes Active="linux64"/>
<Units Count="19"> <Units Count="18">
<Unit0> <Unit0>
<Filename Value="foobotmonitor.lpr"/> <Filename Value="foobotmonitor.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="7"/> <EditorIndex Value="6"/>
<CursorPos X="33" Y="25"/> <CursorPos X="33" Y="25"/>
<UsageCount Value="38"/> <UsageCount Value="39"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -19,9 +19,8 @@
<ComponentName Value="mainform"/> <ComponentName Value="mainform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<TopLine Value="80"/> <CursorPos Y="20"/>
<CursorPos X="54" Y="105"/> <UsageCount Value="39"/>
<UsageCount Value="38"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@ -32,9 +31,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="80"/> <CursorPos X="2" Y="20"/>
<CursorPos X="23" Y="92"/> <UsageCount Value="29"/>
<UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
@ -44,7 +42,7 @@
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="-1"/> <TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/> <CursorPos X="-1" Y="-1"/>
<UsageCount Value="20"/> <UsageCount Value="21"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\foobot_objects.pas"/> <Filename Value="..\foobot_objects.pas"/>
@ -53,15 +51,15 @@
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="-1"/> <TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/> <CursorPos X="-1" Y="-1"/>
<UsageCount Value="20"/> <UsageCount Value="21"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\foobot_utility.pas"/> <Filename Value="..\foobot_utility.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/> <EditorIndex Value="4"/>
<TopLine Value="74"/> <CursorPos Y="27"/>
<CursorPos X="21" Y="138"/> <UsageCount Value="39"/>
<UsageCount Value="20"/> <Loaded Value="True"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="..\ugenericcollection.pas"/> <Filename Value="..\ugenericcollection.pas"/>
@ -70,168 +68,208 @@
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="-1"/> <TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/> <CursorPos X="-1" Y="-1"/>
<UsageCount Value="20"/> <UsageCount Value="21"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="..\latest_stable\foobot_httpclient.pas"/> <Filename Value="..\latest_stable\foobot_httpclient.pas"/>
<EditorIndex Value="3"/> <IsVisibleTab Value="True"/>
<TopLine Value="260"/> <EditorIndex Value="2"/>
<CursorPos X="8" Y="1048"/> <CursorPos X="47" Y="13"/>
<UsageCount Value="38"/> <UsageCount Value="38"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="..\latest_stable\foobot_objects.pas"/> <Filename Value="..\latest_stable\foobot_objects.pas"/>
<EditorIndex Value="6"/> <EditorIndex Value="5"/>
<CursorPos X="32" Y="61"/> <CursorPos X="32" Y="61"/>
<UsageCount Value="38"/> <UsageCount Value="38"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="..\foobot_utility.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="5"/>
<TopLine Value="85"/>
<CursorPos X="72" Y="104"/>
<UsageCount Value="38"/>
<Loaded Value="True"/>
</Unit9>
<Unit10>
<Filename Value="..\latest_stable\ugenericcollection.pas"/> <Filename Value="..\latest_stable\ugenericcollection.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="-1"/> <TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/> <CursorPos X="-1" Y="-1"/>
<UsageCount Value="38"/> <UsageCount Value="38"/>
</Unit10> </Unit9>
<Unit11> <Unit10>
<Filename Value="..\latest_stable\umainform.lfm"/> <Filename Value="..\latest_stable\umainform.lfm"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit11> </Unit10>
<Unit12> <Unit11>
<Filename Value="..\latest_stable\umainform.pas"/> <Filename Value="..\latest_stable\umainform.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="10"/> <TopLine Value="10"/>
<CursorPos X="57" Y="36"/> <CursorPos X="57" Y="36"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit12> </Unit11>
<Unit13> <Unit12>
<Filename Value="..\udataform.pas"/> <Filename Value="..\udataform.pas"/>
<EditorIndex Value="8"/> <EditorIndex Value="-1"/>
<TopLine Value="74"/> <TopLine Value="74"/>
<CursorPos Y="96"/> <CursorPos Y="96"/>
<UsageCount Value="18"/> <UsageCount Value="18"/>
<Loaded Value="True"/> </Unit12>
</Unit13> <Unit13>
<Unit14>
<Filename Value="..\umainform.pas"/> <Filename Value="..\umainform.pas"/>
<EditorIndex Value="4"/> <EditorIndex Value="3"/>
<TopLine Value="134"/> <TopLine Value="134"/>
<CursorPos X="25" Y="154"/> <CursorPos X="25" Y="154"/>
<UsageCount Value="18"/> <UsageCount Value="18"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit14> </Unit13>
<Unit15> <Unit14>
<Filename Value="C:\trunklatest\lazarus\lcl\lclmessageglue.pas"/> <Filename Value="C:\trunklatest\lazarus\lcl\lclmessageglue.pas"/>
<UnitName Value="LCLMessageGlue"/> <UnitName Value="LCLMessageGlue"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="93"/> <TopLine Value="93"/>
<CursorPos Y="114"/> <CursorPos Y="114"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit15> </Unit14>
<Unit16> <Unit15>
<Filename Value="..\ulogin.pas"/> <Filename Value="..\ulogin.pas"/>
<EditorIndex Value="2"/> <EditorIndex Value="-1"/>
<TopLine Value="65"/>
<CursorPos Y="108"/> <CursorPos Y="108"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
<Loaded Value="True"/> </Unit15>
</Unit16> <Unit16>
<Unit17>
<Filename Value="..\..\..\components\cryptini\latest_stable\ucryptini.pas"/> <Filename Value="..\..\..\components\cryptini\latest_stable\ucryptini.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="906"/> <TopLine Value="906"/>
<CursorPos X="8" Y="939"/> <CursorPos X="8" Y="939"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit17> </Unit16>
<Unit18> <Unit17>
<Filename Value="..\backup\foobot_utility.pas"/> <Filename Value="..\backup\foobot_utility.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="7"/> <TopLine Value="7"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit18> </Unit17>
</Units> </Units>
<JumpHistory Count="17" HistoryIndex="16"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="7" Column="9"/> <Caret Line="189" Column="3" TopLine="187"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="188" Column="3" TopLine="186"/> <Caret Line="190" Column="3" TopLine="188"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="189" Column="3" TopLine="187"/> <Caret Line="191" Column="3" TopLine="189"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="190" Column="3" TopLine="188"/> <Caret Line="192" Column="3" TopLine="190"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="191" Column="3" TopLine="189"/> <Caret Line="193" Column="3" TopLine="191"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="192" Column="3" TopLine="190"/> <Caret Line="15" Column="3" TopLine="4"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="193" Column="3" TopLine="191"/> <Caret Line="13" Column="15"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="15" Column="3" TopLine="4"/> <Caret Line="14" Column="6"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="13" Column="15"/> <Caret Line="208" TopLine="204"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="14" Column="6"/> <Caret Line="216" TopLine="212"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="208" TopLine="204"/> <Caret Line="223" Column="28" TopLine="220"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="216" TopLine="212"/> <Caret Line="236" Column="29" TopLine="233"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="223" Column="28" TopLine="220"/> <Caret Line="163" Column="48" TopLine="143"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="236" Column="29" TopLine="233"/> <Caret Line="165" Column="48" TopLine="145"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="163" Column="48" TopLine="143"/> <Caret Line="153" Column="47" TopLine="132"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="165" Column="48" TopLine="145"/> <Caret Line="105" Column="54" TopLine="80"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="153" Column="47" TopLine="132"/> <Caret Line="106" Column="54" TopLine="81"/>
</Position17> </Position17>
<Position18>
<Filename Value="umainform.pas"/>
<Caret Line="107" Column="54" TopLine="82"/>
</Position18>
<Position19>
<Filename Value="umainform.pas"/>
<Caret Line="127" Column="37" TopLine="93"/>
</Position19>
<Position20>
<Filename Value="umainform.pas"/>
<Caret Line="202" Column="22" TopLine="197"/>
</Position20>
<Position21>
<Filename Value="umainform.pas"/>
<Caret Line="127" Column="17" TopLine="105"/>
</Position21>
<Position22>
<Filename Value="umainform.pas"/>
<Caret Line="207" Column="44" TopLine="184"/>
</Position22>
<Position23>
<Filename Value="umainform.pas"/>
<Caret Line="289" Column="22" TopLine="286"/>
</Position23>
<Position24>
<Filename Value="umainform.pas"/>
<Caret Line="216" Column="38" TopLine="194"/>
</Position24>
<Position25>
<Filename Value="umainform.pas"/>
<Caret Line="130" Column="22" TopLine="107"/>
</Position25>
<Position26>
<Filename Value="umainform.pas"/>
<Caret Line="131" Column="22" TopLine="108"/>
</Position26>
<Position27>
<Filename Value="umainform.pas"/>
<Caret Line="132" Column="22" TopLine="109"/>
</Position27>
<Position28>
<Filename Value="umainform.pas"/>
<Caret Line="134" Column="22" TopLine="111"/>
</Position28>
<Position29>
<Filename Value="umainform.pas"/>
<Caret Line="216" Column="17" TopLine="205"/>
</Position29>
<Position30>
<Filename Value="umainform.pas"/>
<Caret Line="134" TopLine="113"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>
</CONFIG> </CONFIG>

BIN
applications/foobot/monitor/foobotmonitor.res
View File

Binary file not shown.

2
applications/foobot/monitor/innosetup/foobotmonitor.iss
View File

@ -9,7 +9,7 @@
[Setup] [Setup]
AppName=Foobot Monitor AppName=Foobot Monitor
AppVersion=0.1.0.0 AppVersion=0.0.2.0
DefaultDirName={pf}\foobotmonitor DefaultDirName={pf}\foobotmonitor
DefaultGroupName=Foobot DefaultGroupName=Foobot
UninstallDisplayIcon={app}\foobotmonitor.exe UninstallDisplayIcon={app}\foobotmonitor.exe

BIN
applications/foobot/monitor/innosetup/setup_foobotmonitor.exe
View File

Binary file not shown.

BIN
applications/foobot/monitor/linuxbinaries/foobotmonitor.zip
View File

Binary file not shown.

18
applications/foobot/monitor/uconfigform.pas
View File

@ -1,5 +1,23 @@
unit uconfigform; unit uconfigform;
{ Foobot Monitor
Copyright (C)2016 Gordon Bamber minsadorada@charcodelvalle.com
This source is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2 of the License, or (at your option)
any later version.
This code is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
details.
A copy of the GNU General Public License is available on the World Wide Web
at <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing
to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
MA 02111-1307, USA.
}
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface interface

29
applications/foobot/monitor/umainform.lfm
View File

@ -3,8 +3,8 @@ object mainform: Tmainform
Height = 262 Height = 262
Top = 154 Top = 154
Width = 782 Width = 782
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsToolWindow BorderStyle = bsSingle
Caption = 'mainform' Caption = 'mainform'
ClientHeight = 242 ClientHeight = 242
ClientWidth = 782 ClientWidth = 782
@ -14,7 +14,9 @@ object mainform: Tmainform
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
OnWindowStateChange = FormWindowStateChange
Position = poWorkAreaCenter Position = poWorkAreaCenter
ShowInTaskBar = stNever
LCLVersion = '1.7' LCLVersion = '1.7'
Scaled = True Scaled = True
object grp_sensorDisplay: TGroupBox object grp_sensorDisplay: TGroupBox
@ -378,6 +380,29 @@ object mainform: Tmainform
Checked = True Checked = True
OnClick = mnu_optionsSaveHighLowsClick OnClick = mnu_optionsSaveHighLowsClick
end end
object mnu_optionsMinimiseToTray: TMenuItem
Caption = 'Minimise to tray'
OnClick = mnu_optionsMinimiseToTrayClick
end
end
end
object TrayIcon1: TTrayIcon
PopUpMenu = traypopup
Visible = True
OnClick = TrayIcon1Click
Left = 96
Top = 8
end
object traypopup: TPopupMenu
Left = 136
Top = 8
object mnupopup_fileRestore: TMenuItem
Caption = '&Restore'
OnClick = mnupopup_fileRestoreClick
end
object mnu_pupupClose: TMenuItem
Caption = '&Close'
OnClick = mnu_fileExitClick
end end
end end
end end

62
applications/foobot/monitor/umainform.pas
View File

@ -1,4 +1,29 @@
unit umainform; unit umainform;
{ Foobot Monitor
Copyright (C)2016 Gordon Bamber minsadorada@charcodelvalle.com
This source is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2 of the License, or (at your option)
any later version.
This code is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
details.
A copy of the GNU General Public License is available on the World Wide Web
at <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing
to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
MA 02111-1307, USA.
VERSION HISTORY
===============
V0.0.1.0: Initial commit
V0.0.2.0: Trayicon added
V0.0.3.0: ??
}
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -50,6 +75,9 @@ type
lbl_voclow: TLabel; lbl_voclow: TLabel;
lbl_allpollulow: TLabel; lbl_allpollulow: TLabel;
MainMenu1: TMainMenu; MainMenu1: TMainMenu;
mnupopup_fileRestore: TMenuItem;
mnu_pupupClose: TMenuItem;
mnu_optionsMinimiseToTray: TMenuItem;
mnu_optionsSaveHighLows: TMenuItem; mnu_optionsSaveHighLows: TMenuItem;
mnu_SampleEvery24Hours: TMenuItem; mnu_SampleEvery24Hours: TMenuItem;
mnu_SampleEvery8Hours: TMenuItem; mnu_SampleEvery8Hours: TMenuItem;
@ -62,12 +90,17 @@ type
mnu_options: TMenuItem; mnu_options: TMenuItem;
mnu_fileExit: TMenuItem; mnu_fileExit: TMenuItem;
mnu_file: TMenuItem; mnu_file: TMenuItem;
traypopup: TPopupMenu;
tmr_foobot: TTimer; tmr_foobot: TTimer;
TrayIcon1: TTrayIcon;
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormWindowStateChange(Sender: TObject);
procedure mnupopup_fileRestoreClick(Sender: TObject);
procedure mnu_fileExitClick(Sender: TObject); procedure mnu_fileExitClick(Sender: TObject);
procedure mnu_optionsMinimiseToTrayClick(Sender: TObject);
procedure mnu_optionsSaveHighLowsClick(Sender: TObject); procedure mnu_optionsSaveHighLowsClick(Sender: TObject);
procedure mnu_optionsShowHighsAndLowsClick(Sender: TObject); procedure mnu_optionsShowHighsAndLowsClick(Sender: TObject);
procedure mnu_optionsTakeReadingNowClick(Sender: TObject); procedure mnu_optionsTakeReadingNowClick(Sender: TObject);
@ -77,6 +110,7 @@ type
procedure mnu_SampleEvery4HoursClick(Sender: TObject); procedure mnu_SampleEvery4HoursClick(Sender: TObject);
procedure mnu_SampleEvery8HoursClick(Sender: TObject); procedure mnu_SampleEvery8HoursClick(Sender: TObject);
procedure tmr_foobotTimer(Sender: TObject); procedure tmr_foobotTimer(Sender: TObject);
procedure TrayIcon1Click(Sender: TObject);
private private
sSecretKey, sFoobotUserName, sUUID: string; sSecretKey, sFoobotUserName, sUUID: string;
bShowHighsAndLows: boolean; bShowHighsAndLows: boolean;
@ -120,6 +154,8 @@ begin
iFudgeFactor := 20; iFudgeFactor := 20;
ClientHeight := grp_sensorDisplay.Height + grp_highlow.Height + iFudgeFactor; ClientHeight := grp_sensorDisplay.Height + grp_highlow.Height + iFudgeFactor;
bShowHighsAndLows := True; bShowHighsAndLows := True;
TrayIcon1.Icon:=Application.Icon;
TrayIcon1.Hint:=Application.Title;
end; end;
procedure Tmainform.FormActivate(Sender: TObject); procedure Tmainform.FormActivate(Sender: TObject);
@ -189,11 +225,32 @@ procedure Tmainform.FormShow(Sender: TObject);
begin begin
end; end;
procedure Tmainform.FormWindowStateChange(Sender: TObject);
begin
if mainform.WindowState = wsMinimized then
begin
mainform.WindowState := wsNormal;
mainform.Hide;
mainform.ShowInTaskBar := stNever;
end;
end;
procedure Tmainform.mnupopup_fileRestoreClick(Sender: TObject);
begin
mainform.show;
end;
procedure Tmainform.mnu_fileExitClick(Sender: TObject); procedure Tmainform.mnu_fileExitClick(Sender: TObject);
begin begin
Close; Close;
end; end;
procedure Tmainform.mnu_optionsMinimiseToTrayClick(Sender: TObject);
begin
mainform.WindowState:=wsMinimized;
mainform.FormWindowStateChange(Self);
end;
procedure Tmainform.mnu_optionsSaveHighLowsClick(Sender: TObject); procedure Tmainform.mnu_optionsSaveHighLowsClick(Sender: TObject);
begin begin
SaveLoadHighLows:=mnu_optionsSaveHighLows.Checked; SaveLoadHighLows:=mnu_optionsSaveHighLows.Checked;
@ -261,6 +318,11 @@ begin
DisplayReadings; DisplayReadings;
end; end;
procedure Tmainform.TrayIcon1Click(Sender: TObject);
begin
mainform.show;
end;
procedure Tmainform.UpdateHighLow(SensorNumber: integer); procedure Tmainform.UpdateHighLow(SensorNumber: integer);
begin begin
case SensorNumber of case SensorNumber of