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

To V0.2.9

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5696 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2017-01-25 08:46:02 +00:00
parent d262a25513
commit 7b7bf9aa54
10 changed files with 168 additions and 138 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazautoupdate/latest_stable/lazupdate.lpk
View File

@ -60,7 +60,7 @@ More information in the Wiki Home Page http://wiki.freepascal.org/LazAutoUpdater
along with this library; if not, write to the Free Software Foundation, along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
"/> "/>
<Version Minor="2" Release="8"/> <Version Minor="2" Release="9"/>
<Files Count="6"> <Files Count="6">
<Item1> <Item1>
<Filename Value="ulazautoupdate.pas"/> <Filename Value="ulazautoupdate.pas"/>

30
components/lazautoupdate/latest_stable/testapp/testapp.lps
View File

@ -4,7 +4,7 @@
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="10"/> <Version Value="10"/>
<BuildModes Active="Linux64"/> <BuildModes Active="Linux64"/>
<Units Count="19"> <Units Count="22">
<Unit0> <Unit0>
<Filename Value="testapp.lpr"/> <Filename Value="testapp.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -28,12 +28,11 @@
<Unit2> <Unit2>
<Filename Value="..\open_ssl.pas"/> <Filename Value="..\open_ssl.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="2"/> <EditorIndex Value="-1"/>
<WindowIndex Value="1"/> <WindowIndex Value="1"/>
<TopLine Value="3"/> <TopLine Value="31"/>
<CursorPos X="76" Y="8"/> <CursorPos X="48" Y="14"/>
<UsageCount Value="38"/> <UsageCount Value="38"/>
<Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="..\lazautoupdate_httpclient.pas"/> <Filename Value="..\lazautoupdate_httpclient.pas"/>
@ -164,6 +163,27 @@
<WindowIndex Value="1"/> <WindowIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit18> </Unit18>
<Unit19>
<Filename Value="..\..\..\mbColorLib\mbutils.pas"/>
<UnitName Value="mbUtils"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="1"/>
<TopLine Value="4"/>
<UsageCount Value="10"/>
</Unit19>
<Unit20>
<Filename Value="..\..\..\mbColorLib\ScreenWin.pas"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="1"/>
<UsageCount Value="10"/>
</Unit20>
<Unit21>
<Filename Value="..\..\..\mbColorLib\LVColorPicker.pas"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="1"/>
<TopLine Value="290"/>
<UsageCount Value="10"/>
</Unit21>
</Units> </Units>
<OtherDefines Count="1"> <OtherDefines Count="1">
<Define0 Value="DEBUGMODE"/> <Define0 Value="DEBUGMODE"/>

9
components/lazautoupdate/latest_stable/trayicon/trayupdater.lpi
View File

@ -60,7 +60,11 @@
</Options> </Options>
</Linking> </Linking>
<Other> <Other>
<CustomOptions Value="-FcUTF8"/> <CustomOptions Value="-FcUTF8
-dDEBUGMODE"/>
<OtherDefines Count="1">
<Define0 Value="DEBUGMODE"/>
</OtherDefines>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
</Item2> </Item2>
@ -133,6 +137,9 @@
</Linking> </Linking>
<Other> <Other>
<CustomOptions Value="-FcUTF8"/> <CustomOptions Value="-FcUTF8"/>
<OtherDefines Count="1">
<Define0 Value="DEBUGMODE"/>
</OtherDefines>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
</Item4> </Item4>

150
components/lazautoupdate/latest_stable/trayicon/trayupdater.lps
View File

@ -3,16 +3,16 @@
<ProjectSession> <ProjectSession>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="10"/> <Version Value="10"/>
<BuildModes Active="Linux64 Release"/> <BuildModes Active="Win64 Release"/>
<Units Count="28"> <Units Count="30">
<Unit0> <Unit0>
<Filename Value="trayupdater.lpr"/> <Filename Value="trayupdater.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<WindowIndex Value="1"/> <WindowIndex Value="1"/>
<TopLine Value="21"/> <TopLine Value="21"/>
<CursorPos X="78" Y="56"/> <CursorPos X="58" Y="41"/>
<UsageCount Value="178"/> <UsageCount Value="181"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -21,13 +21,14 @@
<ComponentName Value="mainform"/> <ComponentName Value="mainform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<WindowIndex Value="1"/> <WindowIndex Value="1"/>
<TopLine Value="109"/> <TopLine Value="540"/>
<CursorPos Y="137"/> <CursorPos X="50" Y="552"/>
<ComponentState Value="1"/> <ComponentState Value="1"/>
<UsageCount Value="178"/> <UsageCount Value="181"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="3" Y="478" ID="2"/> <Item0 X="3" Y="480" ID="2"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -38,11 +39,11 @@
<ComponentName Value="configform"/> <ComponentName Value="configform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="4"/> <EditorIndex Value="3"/>
<WindowIndex Value="1"/> <WindowIndex Value="1"/>
<TopLine Value="206"/> <TopLine Value="150"/>
<CursorPos X="67" Y="231"/> <CursorPos X="37" Y="224"/>
<UsageCount Value="174"/> <UsageCount Value="177"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit2> </Unit2>
@ -215,141 +216,162 @@
<Unit26> <Unit26>
<Filename Value="C:\laztrunk\config_lazarus\onlinepackagemanager\packages\longtimer\ulongtimer.pas"/> <Filename Value="C:\laztrunk\config_lazarus\onlinepackagemanager\packages\longtimer\ulongtimer.pas"/>
<UnitName Value="uLongTimer"/> <UnitName Value="uLongTimer"/>
<EditorIndex Value="3"/> <EditorIndex Value="-1"/>
<WindowIndex Value="1"/> <WindowIndex Value="1"/>
<TopLine Value="299"/> <TopLine Value="299"/>
<CursorPos X="62" Y="316"/> <CursorPos X="62" Y="316"/>
<UsageCount Value="11"/> <UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="1"/> <WindowIndex Value="1"/>
<TopLine Value="25"/> <TopLine Value="143"/>
<CursorPos X="13" Y="16"/> <CursorPos X="91" Y="180"/>
<UsageCount Value="11"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit27> </Unit27>
<Unit28>
<Filename Value="X:\deleteme\ATFileNotif-Lazarus-master\ATFileNotif-Lazarus-master\src\atfilenotif.pas"/>
<UnitName Value="ATFileNotif"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="1"/>
<TopLine Value="67"/>
<UsageCount Value="10"/>
</Unit28>
<Unit29>
<Filename Value="D:\lazarustrunk\common_components\ATFileNotif-Lazarus-master\src\atfilenotif_reg.pas"/>
<UnitName Value="ATFileNotif_Reg"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="1"/>
<CursorPos X="63" Y="5"/>
<UsageCount Value="10"/>
</Unit29>
</Units> </Units>
<JumpHistory Count="29" HistoryIndex="28"> <OtherDefines Count="1">
<Define0 Value="DEBUGMODE"/>
</OtherDefines>
<JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="uconfigform.pas"/> <Filename Value="trayupdater.lpr"/>
<Caret Line="285" Column="3" TopLine="238"/> <Caret Line="63" TopLine="14"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="umainform.pas"/> <Filename Value="trayupdater.lpr"/>
<Caret Line="124" Column="15" TopLine="118"/> <Caret Line="57" Column="30" TopLine="19"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="672" Column="52" TopLine="660"/> <Caret Line="593" Column="31" TopLine="587"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="trayupdater.lpr"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="63" TopLine="14"/> <Caret Line="1482" Column="40" TopLine="1460"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="trayupdater.lpr"/> <Filename Value="umainform.pas"/>
<Caret Line="53" Column="3" TopLine="14"/> <Caret Line="137" TopLine="109"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="uconfigform.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="231" Column="67" TopLine="206"/> <Caret Line="2296" Column="87" TopLine="2285"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="trayupdater.lpr"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="63" TopLine="14"/> <Caret Column="17"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="trayupdater.lpr"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="57" Column="30" TopLine="19"/> <Caret Line="852" Column="20" TopLine="814"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="umainform.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="593" Column="31" TopLine="587"/> <Caret Line="932" Column="16" TopLine="894"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="1482" Column="40" TopLine="1460"/> <Caret Line="1120" Column="18" TopLine="1083"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="umainform.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="137" TopLine="109"/> <Caret Line="1327" Column="18" TopLine="1290"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="2296" Column="87" TopLine="2285"/> <Caret Line="1460" Column="16" TopLine="1422"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Column="17"/> <Caret Line="1528" Column="16" TopLine="1490"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="852" Column="20" TopLine="814"/> <Caret Line="1572" Column="20" TopLine="1535"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="932" Column="16" TopLine="894"/> <Caret Line="1611" Column="20" TopLine="1573"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="1120" Column="18" TopLine="1083"/> <Caret Line="1696" Column="16" TopLine="1659"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="1327" Column="18" TopLine="1290"/> <Caret Line="1729" Column="20" TopLine="1692"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="1460" Column="16" TopLine="1422"/> <Caret Line="1820" Column="22" TopLine="1783"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="1528" Column="16" TopLine="1490"/> <Caret Line="1857" Column="25" TopLine="1820"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="1572" Column="20" TopLine="1535"/> <Caret Line="1892" Column="27" TopLine="1855"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="1611" Column="20" TopLine="1573"/> <Caret Line="1976" Column="22" TopLine="1939"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="1696" Column="16" TopLine="1659"/> <Caret Line="2030" Column="25" TopLine="1993"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="1729" Column="20" TopLine="1692"/> <Caret Line="2071" Column="27" TopLine="2034"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="1820" Column="22" TopLine="1783"/> <Caret Line="407" Column="36" TopLine="386"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="1857" Column="25" TopLine="1820"/> <Caret Line="496" Column="46" TopLine="468"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="1892" Column="27" TopLine="1855"/> <Caret Line="497" Column="37" TopLine="468"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="1976" Column="22" TopLine="1939"/> <Caret Line="502" Column="46" TopLine="468"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="2030" Column="25" TopLine="1993"/> <Caret Line="73" Column="12" TopLine="50"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="2071" Column="27" TopLine="2034"/> <Caret Line="563" Column="9" TopLine="540"/>
</Position29> </Position29>
<Position30>
<Filename Value="umainform.pas"/>
<Caret Line="572" Column="15" TopLine="540"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>
</CONFIG> </CONFIG>

4
components/lazautoupdate/latest_stable/trayicon/uconfigform.lfm
View File

@ -1,7 +1,7 @@
object configform: Tconfigform object configform: Tconfigform
Left = 1101 Left = 1144
Height = 495 Height = 495
Top = 511 Top = 189
Width = 604 Width = 604
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsSingle BorderStyle = bsSingle

63
components/lazautoupdate/latest_stable/trayicon/umainform.pas
View File

@ -29,7 +29,7 @@ and optionally auto-updates any apps for which it has a profile
It uses an array of custom component LongTimers in order to It uses an array of custom component LongTimers in order to
update a number of different apps on different schedules update a number of different apps on different schedules
It uses a config file LAUTray.ini to keep track. This file It uses a config file LAUTray.ini to keep track. This file
is automatically generated by UpdatePack and impoted by this app when first run. is automatically generated by UpdatePack and imported by this app when first run.
VERSION HISTORY VERSION HISTORY
@ -37,6 +37,8 @@ VERSION HISTORY
0.1.12: Updated to Laz 1.7 fpc 3.1.1 0.1.12: Updated to Laz 1.7 fpc 3.1.1
0.1.12: Updated lpr to correctly hide the mainform on startup 0.1.12: Updated lpr to correctly hide the mainform on startup
0.1.12: Commit to svn 0.1.12: Commit to svn
0.1.13: Updated January 2017
Ini filename uses C_PFX
} }
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -68,7 +70,7 @@ end;
{ Tmainform } { Tmainform }
Tmainform = class(TForm) Tmainform = class(TForm)
EventLog1: TEventLog; Logger: TEventLog;
idleReminder: TIdleTimer; idleReminder: TIdleTimer;
LazAutoUpdate1: TLazAutoUpdate; LazAutoUpdate1: TLazAutoUpdate;
mnu_About: TMenuItem; mnu_About: TMenuItem;
@ -135,7 +137,7 @@ Const
C_BITNESS = '64'; C_BITNESS = '64';
{$ENDIF} {$ENDIF}
C_PFX = C_OS + C_BITNESS; C_PFX = C_OS + C_BITNESS;
C_LAUTRayINI = 'lauimport' + C_PFX + '.ini'; C_LAUTRayINI = 'lauimport.ini';
C_INIFilename = 'trayupdater' + C_PFX + '.ini'; C_INIFilename = 'trayupdater' + C_PFX + '.ini';
implementation implementation
@ -181,7 +183,7 @@ begin
INI.UpdateFile; INI.UpdateFile;
except except
if DebugMode then if DebugMode then
EventLog1.Error('Failed to write AppRecArray to %s', [INI.Filename]) Logger.Error('Failed to write AppRecArray to %s', [INI.Filename])
end; end;
end; end;
end; end;
@ -199,7 +201,7 @@ begin
iTag := TLongTimer(Sender).Tag; iTag := TLongTimer(Sender).Tag;
end; end;
if DebugMode then if DebugMode then
EventLog1.Log('Timer for %s fired', [AppRecArray[iTag].AppPrettyName]); Logger.Log('Timer for %s fired', [AppRecArray[iTag].AppPrettyName]);
TrayIcon1.BalloonHint := TrayIcon1.BalloonHint :=
Format('Checking %s for updates', [AppRecArray[iTag].AppPrettyName]); Format('Checking %s for updates', [AppRecArray[iTag].AppPrettyName]);
TrayIcon1.ShowBalloonHint; TrayIcon1.ShowBalloonHint;
@ -341,7 +343,7 @@ begin
end; end;
except except
if DebugMode then if DebugMode then
EventLog1.Error('Failed to read AppRecArray from %s', [INI.Filename]) Logger.Error('Failed to read AppRecArray from %s', [INI.Filename])
end; end;
finally finally
FreeAndNil(SectionStringList); FreeAndNil(SectionStringList);
@ -443,7 +445,7 @@ begin
if (Result = True) then if (Result = True) then
begin begin
if DebugMode then if DebugMode then
EventLog1.Log('%s: Imported %s into %s', Logger.Log('%s: Imported %s into %s',
[Application.Title, szImportINIPath, INI.Filename]); [Application.Title, szImportINIPath, INI.Filename]);
DoReadINIIntoAppRecArray; DoReadINIIntoAppRecArray;
end; end;
@ -467,9 +469,9 @@ begin
mainform.ShowInTaskBar := stNever; mainform.ShowInTaskBar := stNever;
// Log a successful startup // Log a successful startup
if DebugMode then if DebugMode then
EventLog1.Active := True; Logger.Active := True;
if DebugMode then if DebugMode then
EventLog1.Log('%s version %s started OK', Logger.Log('%s version %s started OK',
[Application.Title, LazAutoUpdate1.AppVersion]); [Application.Title, LazAutoUpdate1.AppVersion]);
end; end;
end; end;
@ -487,26 +489,26 @@ begin
if FileExists(szImportINIPath) then if FileExists(szImportINIPath) then
begin begin
if DebugMode then if DebugMode then
EventLog1.Log('%s: Import file %s discovered', Logger.Log('%s: Import file %s discovered',
[Application.Title, szImportINIPath]); [Application.Title, szImportINIPath]);
if ImportINIFile then if ImportINIFile then
begin begin
if DebugMode then if DebugMode then
EventLog1.Log('%s: Import file %s successfully imported', Logger.Log('%s: Import file %s successfully imported',
[Application.Title, szImportINIPath]); [Application.Title, szImportINIPath]);
DeleteFileUTF8(szImportINIPath); DeleteFileUTF8(szImportINIPath);
end end
else else
if DebugMode then if DebugMode then
EventLog1.Error('%s: Failed to import file %s', Logger.Error('%s: Failed to import file %s',
[Application.Title, szImportINIPath]); [Application.Title, szImportINIPath]);
end; end;
end; end;
procedure Tmainform.LazAutoUpdate1DebugEvent(Sender: TObject; WhereAt, Message: string); procedure Tmainform.LazAutoUpdate1DebugEvent(Sender: TObject; WhereAt, Message: string);
begin begin
if ((EventLog1.Active) and (DebugMode = True)) then if ((Logger.Active) and (DebugMode = True)) then
EventLog1.Log('LazAutoUpdate:%s Message:%s', [WhereAt, Message]); Logger.Log('LazAutoUpdate:%s Message:%s', [WhereAt, Message]);
end; end;
procedure Tmainform.mnu_AboutClick(Sender: TObject); procedure Tmainform.mnu_AboutClick(Sender: TObject);
@ -558,7 +560,7 @@ begin
Reg.WriteString(Application.Title, ParamStr(0)); Reg.WriteString(Application.Title, ParamStr(0));
INI.WriteBool('ProgramInfo', 'RunAtStartUp', True); INI.WriteBool('ProgramInfo', 'RunAtStartUp', True);
if DebugMode then if DebugMode then
EventLog1.Log('Run at OS startup Activated'); Logger.Log('Run at OS startup Activated');
MessageDlg(Application.Title, MessageDlg(Application.Title,
'Run at OS startup activated OK', mtInformation, [mbOK], 0); 'Run at OS startup activated OK', mtInformation, [mbOK], 0);
end end
@ -567,7 +569,7 @@ begin
Reg.DeleteValue(Application.Title); Reg.DeleteValue(Application.Title);
INI.WriteBool('ProgramInfo', 'RunAtStartUp', False); INI.WriteBool('ProgramInfo', 'RunAtStartUp', False);
if DebugMode then if DebugMode then
EventLog1.Log('Run at OS startup Deactivated'); Logger.Log('Run at OS startup Deactivated');
MessageDlg(Application.Title, MessageDlg(Application.Title,
'Run at OS startup deactivated OK', mtInformation, [mbOK], 0); 'Run at OS startup deactivated OK', mtInformation, [mbOK], 0);
end; end;
@ -589,7 +591,7 @@ begin
if LazAutoUpdate1.DownloadInprogress then if LazAutoUpdate1.DownloadInprogress then
begin begin
if DebugMode then if DebugMode then
EventLog1.Error( Logger.Error(
'Tried to update whilst download in progress. Exiting CheckAndUpdate routine'); 'Tried to update whilst download in progress. Exiting CheckAndUpdate routine');
Exit; Exit;
end; end;
@ -642,7 +644,7 @@ begin
//Debugging line //Debugging line
if DebugMode then if DebugMode then
EventLog1.Active := True; Logger.Active := True;
ShowMessageFmt('Update %s', [AppRecArray[iCurrentRecIndex].AppPrettyName]); ShowMessageFmt('Update %s', [AppRecArray[iCurrentRecIndex].AppPrettyName]);
CheckAndUpdate(iCurrentRecIndex); CheckAndUpdate(iCurrentRecIndex);
@ -663,6 +665,7 @@ begin
DebugMode := True DebugMode := True
else else
DebugMode := False; DebugMode := False;
{$IFDEF DEBUGMODE}DebugMode := True;{$ENDIF}
// Initialise the App's main INI file // Initialise the App's main INI file
Try Try
INI := TIniFile.Create(GetAppConfigDirUTF8(False) + C_INIFilename); INI := TIniFile.Create(GetAppConfigDirUTF8(False) + C_INIFilename);
@ -683,24 +686,26 @@ begin
PopulateOwnProfile; PopulateOwnProfile;
// Start up a system Event Log // Start up a system Event Log
if DebugMode then if DebugMode then
EventLog1.LogType := ltFile; Logger.LogType := ltFile;
if DebugMode then if DebugMode then
EventLog1.Filename := ExtractFileNameWithoutExt(ParamStr(0)) + '.log'; Logger.Filename := ExtractFileNameWithoutExt(ParamStr(0)) + '.log';
// New logfile every time // New logfile every time
if DebugMode then if DebugMode then
if FileExistsUTF8(EventLog1.Filename) then if FileExistsUTF8(Logger.Filename) then
DeleteFile(EventLog1.Filename); DeleteFile(Logger.Filename);
if DebugMode then if DebugMode then
EventLog1.AppendContent := True; Logger.AppendContent := True;
if DebugMode then if DebugMode then
EventLog1.DefaultEventType := etInfo; Logger.DefaultEventType := etInfo;
if DebugMode then if DebugMode then
EventLog1.RaiseExceptionOnError := False; Logger.RaiseExceptionOnError := False;
// EventLog1.Identification := Application.Title; // Logger.Identification := Application.Title;
// Fetch the location of any trayicon INI on the users system // Fetch the location of any trayicon INI on the users system
szImportINIPath := GetAppConfigDirUTF8(False, True); szImportINIPath := GetAppConfigDirUTF8(False, True);
szImportINIPath := AnsiReplaceText(szImportINIPath, Application.Title, 'updatehm'); szImportINIPath := AnsiReplaceText(szImportINIPath, Application.Title, 'updatehm' + C_PFX);
szImportINIPath := AppendPathDelim(szImportINIPath) + C_LAUTRayINI; szImportINIPath := AppendPathDelim(szImportINIPath) + C_LAUTRayINI;
if DebugMode then
Logger.Debug('szImportINIPath=' + szImportINIPath);
// Initialise the AppRecArray // Initialise the AppRecArray
DoReadINIIntoAppRecArray; DoReadINIIntoAppRecArray;
// Use last saved Profile at startup // Use last saved Profile at startup
@ -735,9 +740,9 @@ begin
else else
begin begin
if DebugMode then if DebugMode then
EventLog1.Log('User closed application'); Logger.Log('User closed application');
if DebugMode then if DebugMode then
EventLog1.Active := False; Logger.Active := False;
CanClose := True; CanClose := True;
end; end;
if CanClose then if CanClose then

42
components/lazautoupdate/latest_stable/ulazautoupdate.pas
View File

@ -135,9 +135,10 @@ const
V0.2.6: Enabled GitHub tags (GitHubBranchOrTag property) V0.2.6: Enabled GitHub tags (GitHubBranchOrTag property)
V0.2.7: Updates Tray Updater routines V0.2.7: Updates Tray Updater routines
V0.2.8: Changed constants C_UPDATEHMNAME and C_LAUUPDATENAME V0.2.8: Changed constants C_UPDATEHMNAME and C_LAUUPDATENAME
V0.2.9: ?? V0.2.9: Added CreateLocalLauImportFile in UpdateToNewVersion
V0.3.0: ??
} }
C_TLazAutoUpdateComponentVersion = '0.2.8'; C_TLazAutoUpdateComponentVersion = '0.2.9';
C_TThreadedDownloadComponentVersion = '0.0.3'; C_TThreadedDownloadComponentVersion = '0.0.3';
{ {
V0.0.1: Initial alpha V0.0.1: Initial alpha
@ -148,7 +149,7 @@ const
C_UpdatesFolder = 'updates'; // User can change C_UpdatesFolder = 'updates'; // User can change
// Don't change these without some thought.. // Don't change these without some thought..
C_LAUTRayINI = 'lauimport.ini'; C_LAUTRayINI = 'lauimport.ini'; // Name syncronises with TrayUpdater App
C_WhatsNewFilename = 'whatsnew.txt'; C_WhatsNewFilename = 'whatsnew.txt';
C_INISection = 'versions'; C_INISection = 'versions';
C_GUIEntry = 'GUI'; C_GUIEntry = 'GUI';
@ -308,8 +309,6 @@ type
procedure SetDebugMode(AValue: boolean); procedure SetDebugMode(AValue: boolean);
function GetThreadDownloadReturnCode: integer; function GetThreadDownloadReturnCode: integer;
function IsOnlineVersionNewer(const sznewINIPath: string): boolean; function IsOnlineVersionNewer(const sznewINIPath: string): boolean;
// No longer needed
// function VersionStringToNumber(AVersionString: string): integer;
function DoSilentUpdate: boolean; function DoSilentUpdate: boolean;
protected protected
@ -323,7 +322,7 @@ type
function NewVersionAvailable: boolean; function NewVersionAvailable: boolean;
// Returns TRUE if successful // Returns TRUE if successful
function DownloadNewVersion: boolean; function DownloadNewVersion: boolean;
// Returns TRUE if successful // Returns TRUE if successful. Also creates a C_LAUTRayINI file in the GetAppConfig folder for TrayUpdater
function UpdateToNewVersion: boolean; function UpdateToNewVersion: boolean;
// Put in form.activate. Shows <whatsnew.txt> only if in ProgramDirectory then deletes it. Exits otherwise // Put in form.activate. Shows <whatsnew.txt> only if in ProgramDirectory then deletes it. Exits otherwise
procedure ShowWhatsNewIfAvailable; procedure ShowWhatsNewIfAvailable;
@ -338,7 +337,7 @@ type
// Resets AppVersion property to the ownling application version // Resets AppVersion property to the ownling application version
procedure ResetAppVersion; procedure ResetAppVersion;
// Create a new lauimport.ini in the App folder // Create a new lauimport.ini in GetAppConfigDirUTF8 folder
function CreateLocalLauImportFile: boolean; function CreateLocalLauImportFile: boolean;
// If lauimport.ini is found in the app folder, move it to the AppData folder // If lauimport.ini is found in the app folder, move it to the AppData folder
procedure RelocateLauImportFile; procedure RelocateLauImportFile;
@ -767,30 +766,6 @@ begin
Result := AppIsRunning(ExeName); Result := AppIsRunning(ExeName);
end; end;
{
// Obselete. fileinfo functions used instead
function TLazAutoUpdate.VersionStringToNumber(AVersionString: string): integer;
// Converts 'n.n.n.n' into an integer
var
s: string;
i: integer;
begin
Result := 0;
// Fetch the 4 (or less) version elements and make into an Integer
s := ExtractDelimited(1, AVersionString, ['.']);
if TryStrToInt(s, i) then
Result := Result + (i * 10000);
s := ExtractDelimited(2, AVersionString, ['.']);
if TryStrToInt(s, i) then
Result := Result + (i * 1000);
s := ExtractDelimited(3, AVersionString, ['.']);
if TryStrToInt(s, i) then
Result := Result + (i * 100);
s := ExtractDelimited(4, AVersionString, ['.']);
if TryStrToInt(s, i) then
Result := Result + i;
end;
}
procedure TLazAutoUpdate.ResetAppVersion; procedure TLazAutoUpdate.ResetAppVersion;
begin begin
fApplicationVersionString := GetFileVersion; fApplicationVersionString := GetFileVersion;
@ -1461,6 +1436,7 @@ begin
fOndebugEvent(Self, 'CreateLocalLauImportFile', 'CreateLocalLauImportFile called'); fOndebugEvent(Self, 'CreateLocalLauImportFile', 'CreateLocalLauImportFile called');
if FileExistsUTF8(ProgramDirectory + C_LAUTRayINI) then if FileExistsUTF8(ProgramDirectory + C_LAUTRayINI) then
begin begin
RelocateLauImportFile;
Result := True; Result := True;
Exit; Exit;
end; end;
@ -2024,7 +2000,7 @@ begin
if fFireDebugEvent then if fFireDebugEvent then
fOndebugEvent(Self, 'UpdateToNewVersion', 'RunAsAdmin failed'); fOndebugEvent(Self, 'UpdateToNewVersion', 'RunAsAdmin failed');
end; end;
CreateLocalLauImportFile; // Creates a new import file in GetAppConfigDirUTF8
// Check for C_WhatsNewFilename in the app directory in a LOOP // Check for C_WhatsNewFilename in the app directory in a LOOP
if fFireDebugEvent then if fFireDebugEvent then
fOndebugEvent(Self, 'UpdateToNewVersion', fOndebugEvent(Self, 'UpdateToNewVersion',
@ -2065,7 +2041,7 @@ begin
'Error %d: Run this application in Administrator mode or turn off UAC', 'Error %d: Run this application in Administrator mode or turn off UAC',
[GetLastOSError]); [GetLastOSError]);
end; end;
CreateLocalLauImportFile; // Creates a new import file in GetAppConfigDirUTF8
// Check for C_WhatsNewFilename in the app directory in a LOOP // Check for C_WhatsNewFilename in the app directory in a LOOP
if fFireDebugEvent then if fFireDebugEvent then
fOndebugEvent(Self, 'UpdateToNewVersion', fOndebugEvent(Self, 'UpdateToNewVersion',

4
components/lazautoupdate/latest_stable/updatepack/umainform.lfm
View File

@ -1,7 +1,7 @@
object mainform: Tmainform object mainform: Tmainform
Left = 715 Left = 1335
Height = 481 Height = 481
Top = 197 Top = 384
Width = 587 Width = 587
AllowDropFiles = True AllowDropFiles = True
BorderIcons = [biSystemMenu, biMinimize] BorderIcons = [biSystemMenu, biMinimize]

BIN
components/lazautoupdate/latest_stable/updates/lazautoupdate.zip
View File

Binary file not shown.

2
components/lazautoupdate/latest_stable/updates/update_lazautoupdate.json
View File

@ -9,7 +9,7 @@
"ForceNotify" : false, "ForceNotify" : false,
"InternalVersion" : 1, "InternalVersion" : 1,
"Name" : "lazupdate.lpk", "Name" : "lazupdate.lpk",
"Version" : "0.2.8.0" "Version" : "0.2.9.0"
} }
] ]
} }