Latest files uploaded

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5677 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2017-01-18 10:39:56 +00:00
parent c9b5c5b503
commit 9ed8857ec4
6 changed files with 17 additions and 16 deletions

View File

@ -224,6 +224,10 @@ msgstr ""
msgid "New Version:"
msgstr ""
#: tmainform.lbl_onlineprojectname.caption
msgid "Online Project Name:"
msgstr ""
#: tmainform.lbl_outputdirectory.caption
msgid "Output directory:"
msgstr ""
@ -232,10 +236,6 @@ msgstr ""
msgid "Profile name"
msgstr ""
#: tmainform.lbl_sfprojectname.caption
msgid "SourceForge Project Name:"
msgstr ""
#: tmainform.lbl_sfupdatesdirectory2.caption
msgid "...at..."
msgstr ""

View File

@ -10,7 +10,7 @@ Getting Started
* To change the 'App to Update', 'Output Directory' and 'WhatsNew TextFile' you need to use the 'directory' mini-buttons. The text cannot be edited directly.
* The 'versions.ini' and 'SF Project Name' can be edited directly.
* The 'versions.ini' and 'Online Project Name' can be edited directly.
* When the [Create Update Pack] is clicked, the Zip file is created, the versions ini file is created, and both are copied to the specified 'Output directory' - ready for you to upload. Sample Lazarus code is shown for you to copy and paste into your app

View File

@ -1,7 +1,7 @@
object mainform: Tmainform
Left = 727
Left = 767
Height = 481
Top = 298
Top = 215
Width = 587
AllowDropFiles = True
BorderIcons = [biSystemMenu, biMinimize]
@ -38,10 +38,10 @@ object mainform: Tmainform
Height = 412
Top = 0
Width = 587
ActivePage = Tab_advanced
ActivePage = tab_configure
Align = alTop
ParentShowHint = False
TabIndex = 2
TabIndex = 1
TabOrder = 0
object tab_intro: TTabSheet
Hint = 'Getting Started information'
@ -252,12 +252,12 @@ object mainform: Tmainform
Caption = 'Create/Edit WhatsNew.txt :'
ParentColor = False
end
object lbl_SFProjectname: TLabel
object lbl_OnlineProjectname: TLabel
Left = 16
Height = 15
Top = 208
Width = 144
Caption = 'SourceForge Project Name:'
Width = 113
Caption = 'Online Project Name:'
ParentColor = False
end
object edt_SFProjectName: TEdit

View File

@ -23,7 +23,7 @@
{"hash":238718917,"name":"tmainform.spd_whatsnewcreate.hint","sourcebytes":[69,100,105,116,32,87,104,97,116,115,78,101,119,32,116,101,120,116,32,102,105,108,101],"value":"Edit WhatsNew text file"},
{"hash":12558,"name":"tmainform.spd_whatsnewcreate.caption","sourcebytes":[46,46,46],"value":"..."},
{"hash":100152250,"name":"tmainform.lbl_createwhatsnew.caption","sourcebytes":[67,114,101,97,116,101,47,69,100,105,116,32,87,104,97,116,115,78,101,119,46,116,120,116,32,58],"value":"Create/Edit WhatsNew.txt :"},
{"hash":115750586,"name":"tmainform.lbl_sfprojectname.caption","sourcebytes":[83,111,117,114,99,101,70,111,114,103,101,32,80,114,111,106,101,99,116,32,78,97,109,101,58],"value":"SourceForge Project Name:"},
{"hash":76696090,"name":"tmainform.lbl_onlineprojectname.caption","sourcebytes":[79,110,108,105,110,101,32,80,114,111,106,101,99,116,32,78,97,109,101,58],"value":"Online Project Name:"},
{"hash":211704412,"name":"tmainform.edt_sfprojectname.hint","sourcebytes":[84,104,105,115,32,105,115,32,116,104,101,32,112,114,111,106,101,99,116,32,116,105,116,108,101,32,97,115,32,100,105,115,112,108,97,121,101,100,32,98,121,13,10,83,111,117,114,99,101,102,111,114,103,101,32,105,110,32,116,104,101,32,112,114,111,106,101,99,116,32,85,82,76],"value":"This is the project title as displayed by\r\nSourceforge in the project URL"},
{"hash":16395530,"name":"tmainform.lbl_zipfilename.caption","sourcebytes":[85,112,100,97,116,101,32,90,105,112,102,105,108,101,32,78,97,109,101,58],"value":"Update Zipfile Name:"},
{"hash":103972133,"name":"tmainform.cmd_deleteprofile.hint","sourcebytes":[68,101,108,101,116,101,115,32,116,104,101,32,99,117,114,114,101,110,116,32,112,114,111,102,105,108,101],"value":"Deletes the current profile"},

View File

@ -117,7 +117,7 @@ type
LazAutoUpdate1: TLazAutoUpdate;
lbl_AppFilename: TLabel;
lbl_NewVersion: TLabel;
lbl_SFProjectname: TLabel;
lbl_OnlineProjectname: TLabel;
lbl_ZipFileName: TLabel;
lst_dragfiles: TListBox;
MainMenu1: TMainMenu;
@ -608,6 +608,7 @@ end;
procedure Tmainform.edt_OutputDirectoryChange(Sender: TObject);
begin
ProfileRec.OutDir := AppendPathDelim(edt_OutputDirectory.Directory);
ForceDirectoriesUTF8(ProfileRec.OutDir);
bCurrentProfileSaved := False;
end;
@ -628,6 +629,7 @@ procedure Tmainform.edt_WhatsNewTextFileChange(Sender: TObject);
begin
edt_WhatsNewTextFile.InitialDir := ExtractFileDir(ProfileRec.WhatsNewPath);
ProfileRec.WhatsNewPath := edt_WhatsNewTextFile.Filename;
ForceDirectoriesUTF8(ProfileRec.WhatsNewPath);
bCurrentProfileSaved := False;
end;
@ -704,6 +706,7 @@ begin
with LazAutoUpdate1 do
begin
// Set component to download source package
// Enable to debug LazAutoUpdate
DebugMode := True; // Fire OnDebugEvent and log the results
SFProjectName := 'lazautoupdate';
CopyTree := True;
@ -715,8 +718,6 @@ begin
// VersionINI := TIniFile.Create(VersionsININame);
AppVersion := VersionINI.ReadString('versions', 'GUI', '0.0.0.0');
VersionINI.Free;
// Enable to debug LazAutoUpdate
// DebugMode:=TRUE;
if NewVersionAvailable then
begin
if DownloadNewVersion then