From 51a37fa2df3f0f9a232b6ce734b382cde2c22edd Mon Sep 17 00:00:00 2001
From: gbamber <gbamber@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 27 Jan 2017 11:35:59 +0000
Subject: [PATCH] To V0.3.4.0 Stable in Windows

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5715 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../latest_stable/testapp/testapp.lps         | 86 +++++++++----------
 .../latest_stable/testapp/umainform.lfm       | 34 +++++---
 .../latest_stable/testapp/umainform.pas       | 12 +++
 3 files changed, 77 insertions(+), 55 deletions(-)

diff --git a/components/lazautoupdate/latest_stable/testapp/testapp.lps b/components/lazautoupdate/latest_stable/testapp/testapp.lps
index 5d0dd6609..85c54bee6 100644
--- a/components/lazautoupdate/latest_stable/testapp/testapp.lps
+++ b/components/lazautoupdate/latest_stable/testapp/testapp.lps
@@ -19,8 +19,8 @@
         <ComponentName Value="mainform"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <TopLine Value="157"/>
-        <CursorPos X="4" Y="176"/>
+        <TopLine Value="170"/>
+        <CursorPos Y="194"/>
         <UsageCount Value="65"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -42,16 +42,15 @@
       </Unit3>
       <Unit4>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="317"/>
-        <CursorPos X="41" Y="357"/>
+        <TopLine Value="1721"/>
+        <CursorPos X="68" Y="1774"/>
         <ExtraEditorCount Value="2"/>
         <ExtraEditor1>
           <IsVisibleTab Value="True"/>
           <WindowIndex Value="1"/>
-          <TopLine Value="1724"/>
-          <CursorPos X="45" Y="1733"/>
+          <TopLine Value="1707"/>
+          <CursorPos X="44" Y="1747"/>
         </ExtraEditor1>
         <ExtraEditor2>
           <EditorIndex Value="-1"/>
@@ -186,9 +185,10 @@
       </Unit21>
       <Unit22>
         <Filename Value="..\ushortcut.pas"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="4"/>
-        <TopLine Value="178"/>
-        <CursorPos X="44" Y="213"/>
+        <TopLine Value="187"/>
+        <CursorPos X="57" Y="209"/>
         <UsageCount Value="22"/>
         <Loaded Value="True"/>
       </Unit22>
@@ -237,123 +237,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="232" Column="36" TopLine="214"/>
+        <Caret Line="243" TopLine="223"/>
       </Position1>
       <Position2>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="281" Column="45" TopLine="259"/>
+        <Caret Line="241" Column="43" TopLine="214"/>
       </Position2>
       <Position3>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="243" TopLine="223"/>
+        <Caret Line="251" Column="21" TopLine="223"/>
       </Position3>
       <Position4>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="241" Column="43" TopLine="214"/>
+        <Caret Line="679" Column="49" TopLine="658"/>
       </Position4>
       <Position5>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="251" Column="21" TopLine="223"/>
+        <Caret Line="701" Column="38" TopLine="687"/>
       </Position5>
       <Position6>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="679" Column="49" TopLine="658"/>
+        <Caret Line="457" Column="37" TopLine="444"/>
       </Position6>
       <Position7>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="701" Column="38" TopLine="687"/>
+        <Caret Line="466" Column="23" TopLine="452"/>
       </Position7>
       <Position8>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="457" Column="37" TopLine="444"/>
+        <Caret Line="470" Column="40" TopLine="460"/>
       </Position8>
       <Position9>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="466" Column="23" TopLine="452"/>
+        <Caret Line="583" Column="36" TopLine="552"/>
       </Position9>
       <Position10>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="470" Column="40" TopLine="460"/>
+        <Caret Line="553" TopLine="529"/>
       </Position10>
       <Position11>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="583" Column="36" TopLine="552"/>
+        <Caret Line="545" Column="6" TopLine="523"/>
       </Position11>
       <Position12>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="553" TopLine="529"/>
+        <Caret Line="61" Column="74" TopLine="50"/>
       </Position12>
       <Position13>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="545" Column="6" TopLine="523"/>
+        <Caret Line="570" Column="28" TopLine="542"/>
       </Position13>
       <Position14>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="61" Column="74" TopLine="50"/>
+        <Caret Line="621" Column="46" TopLine="582"/>
       </Position14>
       <Position15>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="570" Column="28" TopLine="542"/>
+        <Caret Line="629" Column="65" TopLine="593"/>
       </Position15>
       <Position16>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="621" Column="46" TopLine="582"/>
+        <Caret Line="637" Column="51" TopLine="615"/>
       </Position16>
       <Position17>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="629" Column="65" TopLine="593"/>
+        <Caret Line="639" Column="8" TopLine="615"/>
       </Position17>
       <Position18>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="637" Column="51" TopLine="615"/>
+        <Caret Line="637" Column="50" TopLine="616"/>
       </Position18>
       <Position19>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="639" Column="8" TopLine="615"/>
+        <Caret Line="971" Column="61" TopLine="944"/>
       </Position19>
       <Position20>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="637" Column="50" TopLine="616"/>
+        <Caret Line="480" Column="20" TopLine="448"/>
       </Position20>
       <Position21>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="971" Column="61" TopLine="944"/>
+        <Caret Line="785" TopLine="758"/>
       </Position21>
       <Position22>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="480" Column="20" TopLine="448"/>
+        <Caret Line="784" Column="41" TopLine="757"/>
       </Position22>
       <Position23>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="785" TopLine="758"/>
+        <Caret Line="474" TopLine="456"/>
       </Position23>
       <Position24>
         <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="784" Column="41" TopLine="757"/>
+        <Caret Line="966" Column="70" TopLine="931"/>
       </Position24>
       <Position25>
-        <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="474" TopLine="456"/>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="15" Column="16" TopLine="8"/>
       </Position25>
       <Position26>
-        <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="966" Column="70" TopLine="931"/>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="152" Column="37" TopLine="146"/>
       </Position26>
       <Position27>
         <Filename Value="umainform.pas"/>
-        <Caret Line="15" Column="16" TopLine="8"/>
+        <Caret Line="154" Column="37" TopLine="148"/>
       </Position27>
       <Position28>
-        <Filename Value="umainform.pas"/>
-        <Caret Line="152" Column="37" TopLine="146"/>
+        <Filename Value="..\ulazautoupdate.pas"/>
+        <Caret Line="1014" Column="57" TopLine="977"/>
       </Position28>
       <Position29>
         <Filename Value="umainform.pas"/>
-        <Caret Line="154" Column="37" TopLine="148"/>
+        <Caret Line="176" Column="4" TopLine="157"/>
       </Position29>
       <Position30>
-        <Filename Value="..\ulazautoupdate.pas"/>
-        <Caret Line="1014" Column="57" TopLine="977"/>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="170" Column="45" TopLine="159"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/components/lazautoupdate/latest_stable/testapp/umainform.lfm b/components/lazautoupdate/latest_stable/testapp/umainform.lfm
index efb41fc36..d3ece9ab1 100644
--- a/components/lazautoupdate/latest_stable/testapp/umainform.lfm
+++ b/components/lazautoupdate/latest_stable/testapp/umainform.lfm
@@ -1,12 +1,13 @@
 object mainform: Tmainform
-  Left = 518
-  Height = 209
-  Top = 285
-  Width = 335
+  Left = 572
+  Height = 237
+  Top = 157
+  Width = 345
   BorderIcons = [biSystemMenu]
   Caption = 'mainform'
-  ClientHeight = 209
-  ClientWidth = 335
+  ClientHeight = 237
+  ClientWidth = 345
+  Font.Height = -12
   OnActivate = FormActivate
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -16,8 +17,8 @@ object mainform: Tmainform
   object StatusBar1: TStatusBar
     Left = 0
     Height = 23
-    Top = 186
-    Width = 335
+    Top = 214
+    Width = 345
     Panels = <>
   end
   object cmd_close: TBitBtn
@@ -73,7 +74,7 @@ object mainform: Tmainform
   object lbl_Version: TLabel
     Left = 24
     Height = 15
-    Top = 152
+    Top = 184
     Width = 298
     Alignment = taCenter
     AutoSize = False
@@ -94,14 +95,23 @@ object mainform: Tmainform
     Visible = False
   end
   object cmd_MakeDesktopShortcut: TButton
-    Left = 184
+    Left = 24
     Height = 25
-    Top = 112
-    Width = 139
+    Top = 144
+    Width = 147
     Caption = 'Make Desktop Shortcut'
     OnClick = cmd_MakeDesktopShortcutClick
     TabOrder = 7
   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
     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'
diff --git a/components/lazautoupdate/latest_stable/testapp/umainform.pas b/components/lazautoupdate/latest_stable/testapp/umainform.pas
index db4083d24..d9b851b3d 100644
--- a/components/lazautoupdate/latest_stable/testapp/umainform.pas
+++ b/components/lazautoupdate/latest_stable/testapp/umainform.pas
@@ -45,6 +45,7 @@ type
   { Tmainform }
 
   Tmainform = class(TForm)
+    cmd_DeleteDesktopShortcut: TButton;
     cmd_MakeDesktopShortcut: TButton;
     cmd_SilentUpdate: TButton;
     cmd_AutoUpdate: TButton;
@@ -56,6 +57,7 @@ type
     LazAutoUpdate1: TLazAutoUpdate;
     StatusBar1: TStatusBar;
     procedure cmd_AutoUpdateClick(Sender: TObject);
+    procedure cmd_DeleteDesktopShortcutClick(Sender: TObject);
     procedure cmd_DownloadNewVersionClick(Sender: TObject);
     procedure cmd_MakeDesktopShortcutClick(Sender: TObject);
     procedure cmd_NewVersionAvailableClick(Sender: TObject);
@@ -186,6 +188,16 @@ begin
   {$ENDIF}
 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,
   lauMessage: string);
 begin