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

To V0.3.4.0 Stable in Windows

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5715 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2017-01-27 11:35:59 +00:00
parent 50aba915c5
commit 51a37fa2df
3 changed files with 77 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,8 +19,8 @@
<ComponentName Value="mainform"/> <ComponentName Value="mainform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<TopLine Value="157"/> <TopLine Value="170"/>
<CursorPos X="4" Y="176"/> <CursorPos Y="194"/>
<UsageCount Value="65"/> <UsageCount Value="65"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -42,16 +42,15 @@
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="317"/> <TopLine Value="1721"/>
<CursorPos X="41" Y="357"/> <CursorPos X="68" Y="1774"/>
<ExtraEditorCount Value="2"/> <ExtraEditorCount Value="2"/>
<ExtraEditor1> <ExtraEditor1>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<WindowIndex Value="1"/> <WindowIndex Value="1"/>
<TopLine Value="1724"/> <TopLine Value="1707"/>
<CursorPos X="45" Y="1733"/> <CursorPos X="44" Y="1747"/>
</ExtraEditor1> </ExtraEditor1>
<ExtraEditor2> <ExtraEditor2>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
@ -186,9 +185,10 @@
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="..\ushortcut.pas"/> <Filename Value="..\ushortcut.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<TopLine Value="178"/> <TopLine Value="187"/>
<CursorPos X="44" Y="213"/> <CursorPos X="57" Y="209"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit22> </Unit22>
@ -237,123 +237,123 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="232" Column="36" TopLine="214"/> <Caret Line="243" TopLine="223"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="281" Column="45" TopLine="259"/> <Caret Line="241" Column="43" TopLine="214"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="243" TopLine="223"/> <Caret Line="251" Column="21" TopLine="223"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="241" Column="43" TopLine="214"/> <Caret Line="679" Column="49" TopLine="658"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="251" Column="21" TopLine="223"/> <Caret Line="701" Column="38" TopLine="687"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="679" Column="49" TopLine="658"/> <Caret Line="457" Column="37" TopLine="444"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="701" Column="38" TopLine="687"/> <Caret Line="466" Column="23" TopLine="452"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="457" Column="37" TopLine="444"/> <Caret Line="470" Column="40" TopLine="460"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="466" Column="23" TopLine="452"/> <Caret Line="583" Column="36" TopLine="552"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="470" Column="40" TopLine="460"/> <Caret Line="553" TopLine="529"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="583" Column="36" TopLine="552"/> <Caret Line="545" Column="6" TopLine="523"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="553" TopLine="529"/> <Caret Line="61" Column="74" TopLine="50"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="545" Column="6" TopLine="523"/> <Caret Line="570" Column="28" TopLine="542"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="61" Column="74" TopLine="50"/> <Caret Line="621" Column="46" TopLine="582"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="570" Column="28" TopLine="542"/> <Caret Line="629" Column="65" TopLine="593"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="621" Column="46" TopLine="582"/> <Caret Line="637" Column="51" TopLine="615"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="629" Column="65" TopLine="593"/> <Caret Line="639" Column="8" TopLine="615"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="637" Column="51" TopLine="615"/> <Caret Line="637" Column="50" TopLine="616"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="639" Column="8" TopLine="615"/> <Caret Line="971" Column="61" TopLine="944"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="637" Column="50" TopLine="616"/> <Caret Line="480" Column="20" TopLine="448"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="971" Column="61" TopLine="944"/> <Caret Line="785" TopLine="758"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="480" Column="20" TopLine="448"/> <Caret Line="784" Column="41" TopLine="757"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="785" TopLine="758"/> <Caret Line="474" TopLine="456"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="784" Column="41" TopLine="757"/> <Caret Line="966" Column="70" TopLine="931"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="474" TopLine="456"/> <Caret Line="15" Column="16" TopLine="8"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="966" Column="70" TopLine="931"/> <Caret Line="152" Column="37" TopLine="146"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="15" Column="16" TopLine="8"/> <Caret Line="154" Column="37" TopLine="148"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="umainform.pas"/> <Filename Value="..\ulazautoupdate.pas"/>
<Caret Line="152" Column="37" TopLine="146"/> <Caret Line="1014" Column="57" TopLine="977"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="154" Column="37" TopLine="148"/> <Caret Line="176" Column="4" TopLine="157"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="..\ulazautoupdate.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="1014" Column="57" TopLine="977"/> <Caret Line="170" Column="45" TopLine="159"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>

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

@ -1,12 +1,13 @@
object mainform: Tmainform object mainform: Tmainform
Left = 518 Left = 572
Height = 209 Height = 237
Top = 285 Top = 157
Width = 335 Width = 345
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'mainform' Caption = 'mainform'
ClientHeight = 209 ClientHeight = 237
ClientWidth = 335 ClientWidth = 345
Font.Height = -12
OnActivate = FormActivate OnActivate = FormActivate
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
@ -16,8 +17,8 @@ object mainform: Tmainform
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 23
Top = 186 Top = 214
Width = 335 Width = 345
Panels = <> Panels = <>
end end
object cmd_close: TBitBtn object cmd_close: TBitBtn
@ -73,7 +74,7 @@ object mainform: Tmainform
object lbl_Version: TLabel object lbl_Version: TLabel
Left = 24 Left = 24
Height = 15 Height = 15
Top = 152 Top = 184
Width = 298 Width = 298
Alignment = taCenter Alignment = taCenter
AutoSize = False AutoSize = False
@ -94,14 +95,23 @@ object mainform: Tmainform
Visible = False Visible = False
end end
object cmd_MakeDesktopShortcut: TButton object cmd_MakeDesktopShortcut: TButton
Left = 184 Left = 24
Height = 25 Height = 25
Top = 112 Top = 144
Width = 139 Width = 147
Caption = 'Make Desktop Shortcut' Caption = 'Make Desktop Shortcut'
OnClick = cmd_MakeDesktopShortcutClick OnClick = cmd_MakeDesktopShortcutClick
TabOrder = 7 TabOrder = 7
end end
object cmd_DeleteDesktopShortcut: TButton
Left = 184
Height = 25
Top = 144
Width = 139
Caption = 'Delete Desktop Shortcut'
OnClick = cmd_DeleteDesktopShortcutClick
TabOrder = 8
end
object LazAutoUpdate1: TLazAutoUpdate object LazAutoUpdate1: TLazAutoUpdate
About.Description.Strings = ( About.Description.Strings = (
'A component for updating your application'#13#10'Designed for projects hosted by SourceForge'#13#10#13#10'Main methods:'#13#10'Procedure AutoUpdate'#13#10'Function NewVersionAvailable: Boolean'#13#10'Function DownloadNewVersion: Boolean'#13#10'Function UpdateToNewVersion: Boolean'#13#10'Procedure ShowWhatsNewIfAvailable'#13#10'For troubleshooting, set DebugMode=TRUE' 'A component for updating your application'#13#10'Designed for projects hosted by SourceForge'#13#10#13#10'Main methods:'#13#10'Procedure AutoUpdate'#13#10'Function NewVersionAvailable: Boolean'#13#10'Function DownloadNewVersion: Boolean'#13#10'Function UpdateToNewVersion: Boolean'#13#10'Procedure ShowWhatsNewIfAvailable'#13#10'For troubleshooting, set DebugMode=TRUE'

12
components/lazautoupdate/latest_stable/testapp/umainform.pas
View File

@ -45,6 +45,7 @@ type
{ Tmainform } { Tmainform }
Tmainform = class(TForm) Tmainform = class(TForm)
cmd_DeleteDesktopShortcut: TButton;
cmd_MakeDesktopShortcut: TButton; cmd_MakeDesktopShortcut: TButton;
cmd_SilentUpdate: TButton; cmd_SilentUpdate: TButton;
cmd_AutoUpdate: TButton; cmd_AutoUpdate: TButton;
@ -56,6 +57,7 @@ type
LazAutoUpdate1: TLazAutoUpdate; LazAutoUpdate1: TLazAutoUpdate;
StatusBar1: TStatusBar; StatusBar1: TStatusBar;
procedure cmd_AutoUpdateClick(Sender: TObject); procedure cmd_AutoUpdateClick(Sender: TObject);
procedure cmd_DeleteDesktopShortcutClick(Sender: TObject);
procedure cmd_DownloadNewVersionClick(Sender: TObject); procedure cmd_DownloadNewVersionClick(Sender: TObject);
procedure cmd_MakeDesktopShortcutClick(Sender: TObject); procedure cmd_MakeDesktopShortcutClick(Sender: TObject);
procedure cmd_NewVersionAvailableClick(Sender: TObject); procedure cmd_NewVersionAvailableClick(Sender: TObject);
@ -186,6 +188,16 @@ begin
{$ENDIF} {$ENDIF}
end; end;
procedure Tmainform.cmd_DeleteDesktopShortcutClick(Sender: TObject);
begin
LazAutoUpdate1.ShortCut.ShortCutName:='Test Application';
If LazAutoUpdate1.DeleteShortCut then
ShowMessage('Success! New shortcut is toast')
else
ShowMessage('DeleteShortCut failed');
end;
procedure Tmainform.LazAutoUpdate1DebugEvent(Sender: TObject; lauMethodName, procedure Tmainform.LazAutoUpdate1DebugEvent(Sender: TObject; lauMethodName,
lauMessage: string); lauMessage: string);
begin begin