V0.2.1.0: Updated versionsupport.pas

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5648 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2017-01-14 10:50:55 +00:00
parent a68f4b7a30
commit cc2478a525
5 changed files with 30 additions and 7 deletions

View File

@ -4,11 +4,10 @@
<PathDelim Value="\"/>
<Version Value="10"/>
<BuildModes Active="Linux64 Release"/>
<Units Count="25">
<Units Count="27">
<Unit0>
<Filename Value="updatehm.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="36"/>
<CursorPos X="41" Y="144"/>
<UsageCount Value="76"/>
@ -152,8 +151,27 @@
<TopLine Value="76"/>
<UsageCount Value="10"/>
</Unit24>
<Unit25>
<Filename Value="..\..\test\lazautoupdate\versionsupport.pas"/>
<UnitName Value="VersionSupport"/>
<EditorIndex Value="1"/>
<TopLine Value="49"/>
<CursorPos X="56" Y="60"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit25>
<Unit26>
<Filename Value="..\..\newtest\lazautoupdate\lazautoupdate\versionsupport.pas"/>
<UnitName Value="VersionSupport"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="35"/>
<CursorPos X="46" Y="60"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit26>
</Units>
<JumpHistory Count="28" HistoryIndex="27">
<JumpHistory Count="29" HistoryIndex="28">
<Position1>
<Filename Value="updatehm.lpr"/>
<Caret Line="47" Column="92" TopLine="19"/>
@ -266,6 +284,10 @@
<Filename Value="updatehm.lpr"/>
<Caret Line="312" Column="58" TopLine="279"/>
</Position28>
<Position29>
<Filename Value="..\..\test\lazautoupdate\versionsupport.pas"/>
<Caret Line="60" Column="56" TopLine="49"/>
</Position29>
</JumpHistory>
</ProjectSession>
</CONFIG>

View File

@ -6,8 +6,8 @@
},
"UpdatePackageFiles" : [
{
"ForceNotify" : false,
"InternalVersion" : 1,
"ForceNotify" : true,
"InternalVersion" : 2,
"Name" : "lazupdate.lpk",
"Version" : "0.2.1.0"
}

View File

@ -31,7 +31,7 @@ Interface
*)
Uses
Classes, SysUtils,LCLVersion;
Classes, SysUtils, LCLVersion;
Function GetFileVersion: String;
Function GetProductVersion: String;
@ -56,7 +56,8 @@ Const
Implementation
Uses
resource, versiontypes, versionresource, InterfaceBase;
resource, versiontypes, versionresource, InterfaceBase
{$IF (lcl_major > 0) and (lcl_minor > 6)}, LCLPlatformDef {$ENDIF};
Type
TVersionInfo = Class