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

Updates GitHub property names

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5661 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2017-01-16 12:00:41 +00:00
parent 232575bde6
commit 1597ac8b91
3 changed files with 18 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,7 +10,7 @@
<IsPartOfProject Value="True"/>
<EditorIndex Value="5"/>
<CursorPos X="33" Y="27"/>
<UsageCount Value="42"/>
<UsageCount Value="43"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
@ -22,7 +22,7 @@
<IsVisibleTab Value="True"/>
<TopLine Value="32"/>
<CursorPos X="103" Y="53"/>
<UsageCount Value="42"/>
<UsageCount Value="43"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
@ -33,7 +33,7 @@
<WindowIndex Value="1"/>
<TopLine Value="3"/>
<CursorPos X="76" Y="8"/>
<UsageCount Value="25"/>
<UsageCount Value="26"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
@ -47,8 +47,8 @@
<Filename Value="..\ulazautoupdate.pas"/>
<IsVisibleTab Value="True"/>
<WindowIndex Value="1"/>
<TopLine Value="70"/>
<CursorPos X="42" Y="110"/>
<TopLine Value="349"/>
<CursorPos X="21" Y="364"/>
<ExtraEditorCount Value="2"/>
<ExtraEditor1>
<EditorIndex Value="3"/>

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

@ -123,8 +123,8 @@ object mainform: Tmainform
VersionCountLimit = 1000000
DownloadCountLimit = 10000000
ZipfileName = 'testapp.zip'
GitHubUsername = 'lazarusccr'
GitHubProjectName = 'TestApp'
GitHubProjectname = 'lazarusccr'
GitHubRepositoryName = 'TestApp'
GitHubBranch = 'TestBranch'
Left = 200
Top = 24

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

@ -203,8 +203,8 @@ type
TLazAutoUpdate = class(TAboutLazAutoUpdate)
private
fSourceForgeProjectName: string;
fGitHubUsername:String;
fGitHubProjectName:String;
fGitHubRepositoryName:String;
fGitHubBranch:String;
fApplicationVersionString: string;
fApplicationVersionQuad: TVersionQuad;
@ -372,8 +372,8 @@ type
property ZipfileName: string read fZipfileName write fZipfileName;
property UpdateExe:String read fUpdateExe;
property UpdateExeSilent:String read fUpdateSilentExe;
property GitHubUsername:String read fGitHubUsername write fGitHubUsername;
Property GitHubProjectName:String read fGitHubProjectName write fGitHubProjectName;
property GitHubProjectname:String read fGitHubProjectName write fGitHubProjectName;
Property GitHubRepositoryName:String read fGitHubRepositoryName write fGitHubRepositoryName;
Property GitHubBranch:String read fGitHubBranch write fGitHubBranch;
end;
@ -916,7 +916,7 @@ begin
end;
if fProjectType = auGitHubReleaseZip then
begin
if ((fGitHubUserName = '') or (fGitHubProjectName = '')) then
if ((fGitHubProjectName = '') or (fGitHubRepositoryName = '')) then
begin
if fShowDialogs then
ShowMessage(C_PropIsEmpty);
@ -925,9 +925,9 @@ begin
Exit;
end;
If ((fUpdatesFolder=C_NotApplicable) or (fUpdatesFolder='')) then
szURL := Format(C_GITHUBFILE_URL, [fGitHubUserName,fGitHubProjectName,fGitHubBranch,fVersionsININame])
szURL := Format(C_GITHUBFILE_URL, [fGitHubProjectName,fGitHubRepositoryName,fGitHubBranch,fVersionsININame])
else
szURL := Format(C_GITHUBFILE_URL_UPDATES, [fGitHubUserName,fGitHubProjectName,fGitHubBranch,fUpdatesFolder,fVersionsININame]);
szURL := Format(C_GITHUBFILE_URL_UPDATES, [fGitHubProjectName,fGitHubRepositoryName,fGitHubBranch,fUpdatesFolder,fVersionsININame]);
end;
// ShowMessage(szURL);
if fProjectType = auOther then
@ -1082,9 +1082,9 @@ begin
ExtractFileName(szTargetPath)]);
if fProjectType = auGitHubReleaseZip then
If ((fUpdatesFolder=C_NotApplicable) or (fUpdatesFolder='')) then
szURL := Format(C_GITHUBFILE_URL, [fGitHubUserName,fGitHubProjectName,fGitHubBranch,fZipfileName])
szURL := Format(C_GITHUBFILE_URL, [fGitHubProjectName,fGitHubRepositoryName,fGitHubBranch,fZipfileName])
else
szURL := Format(C_GITHUBFILE_URL_UPDATES, [fGitHubUserName,fGitHubProjectName,fGitHubBranch,fUpdatesFolder,fZipfileName]);
szURL := Format(C_GITHUBFILE_URL_UPDATES, [fGitHubProjectName,fGitHubRepositoryName,fGitHubBranch,fUpdatesFolder,fZipfileName]);
if fProjectType = auOther then
// fauOtherSourceURL ends with '/'
begin
@ -1943,8 +1943,8 @@ begin
if fProjectType = auOther then
begin
fSourceForgeProjectName := C_NotApplicable;
fGitHubRepositoryName := C_NotApplicable;
fGitHubProjectName := C_NotApplicable;
fGitHubUserName := C_NotApplicable;
fGitHubBranch:=C_NotApplicable;
fauOtherSourceFilename:='';
fauOtherSourceURL:='';
@ -1955,8 +1955,8 @@ begin
fSourceForgeProjectName := '';
fauOtherSourceFilename := C_NotApplicable;
fauOtherSourceURL := C_NotApplicable;
fGitHubRepositoryName := C_NotApplicable;
fGitHubProjectName := C_NotApplicable;
fGitHubUserName := C_NotApplicable;
fGitHubBranch:=C_NotApplicable;
end;
if fProjectType = auGitHubReleaseZip then
@ -1967,8 +1967,8 @@ begin
fauOtherSourceFilename := C_NotApplicable;
fauOtherSourceURL := C_NotApplicable;
fGitHubBranch:= C_MASTER;
fGitHubRepositoryName := '';
fGitHubProjectName := '';
fGitHubUserName := '';
fUpdatesFolder:=C_NotApplicable;
end;