New Setup for 1.1.0

Author: carloBarazzetta

SVGShellExtensions.dll

@@ -3,34 +3,28 @@
 #define MyAppName 'SVG Shell Extensions and Text Editor'
 #define MyAppVersion '1.1.0'
 
-;Andrà ripristinato
-;Source: Updater\DownloadInfo.xml; DestDir: {app}
-;Source: Updater\libeay32.dll; DestDir: {app}
-;Source: Updater\ssleay32.dll; DestDir: {app}
-;Source: Updater\updater.exe; DestDir: {app}
-
 [Setup]
 UsePreviousLanguage=no
 AppName={#MyAppName}
 AppPublisher=Ethea S.r.l.
 AppVerName={#MyAppName} {#MyAppVersion}
 VersionInfoVersion={#MyAppVersion}
 AppPublisherURL=https://www.ethea.it/
-AppSupportURL=https://www.ethea.it/supporto/
+AppSupportURL=https://github.com/EtheaDev/SVGShellExtensions/issues
 DefaultDirName={pf}\Ethea\SVGShellExtensions
 OutputBaseFileName=SVGShellExtensionsSetup
 DisableDirPage=true
+DefaultGroupName=SVG Shell Extensions
 Compression=lzma
 SolidCompression=true
 UsePreviousAppDir=false
-AppendDefaultDirName=true
+AppendDefaultDirName=false
 PrivilegesRequired=admin
 WindowVisible=false
 WizardImageFile=WizEtheaImage.bmp
 WizardSmallImageFile=WizEtheaSmallImage.bmp
 AppContact=info@ethea.it
-SetupIconFile=..\Source\EtheaMultires.ico
-DisableProgramGroupPage=true
+SetupIconFile=..\Icons\logo.ico
 AppID=SVGShellExtensions
 UsePreviousSetupType=false
 UsePreviousTasks=false
@@ -50,7 +44,6 @@ Name: ita; MessagesFile: compiler:Languages\Italian.isl; LicenseFile: .\Licenza_
 
 [Tasks]
 Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
-Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
 
 [Files]
 Source: ..\SVGTextEditor.exe; DestDir: {app}; Flags: ignoreversion; Components: Editor
@@ -59,9 +52,8 @@ Source: ..\SVGShellExtensions.dll; DestDir: {app}; Flags : regserver sharedfile
 ;Source: Register64Bit.bat; DestDir: {app}
 
 [Icons]
-Name: {group}\SVGTextEditor; Filename: {app}\SVGTextEditor.exe
-Name: {userdesktop}\SVGTextEditor; Filename: {app}\SVGTextEditor.exe; Tasks: desktopicon
-Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\SVG Text Editor; Filename: {app}\SVGTextEditor.exe; Tasks: quicklaunchicon
+Name: "{group}\SVGTextEditor"; Filename: "{app}\SVGTextEditor.exe"; WorkingDir: "{app}"; IconFilename: "{app}\SVGTextEditor.exe"; Components: Editor
+Name: "{userdesktop}\SVGTextEditor"; Filename: "{app}\SVGTextEditor.exe"; Tasks: desktopicon; Components: Editor
 
 [Run]
 Filename: {app}\SVGTextEditor.exe; Description: {cm:LaunchProgram,'SVG Text Editor'}; Flags: nowait postinstall skipifsilent

Setup/Output/SVGShellExtensionsSetup.exe

@@ -215,10 +215,6 @@ object FrmPreview: TFrmPreview
       AutoSize = False
       Proportional = True
       Align = alClient
-      ExplicitLeft = 1
-      ExplicitTop = 41
-      ExplicitWidth = 529
-      ExplicitHeight = 147
     end
     object panelPreview: TPanel
       Left = 0
@@ -229,9 +225,6 @@ object FrmPreview: TFrmPreview
       ParentBackground = False
       ShowCaption = False
       TabOrder = 1
-      ExplicitLeft = 1
-      ExplicitTop = 1
-      ExplicitWidth = 529
       object BackgroundGrayScaleLabel: TLabel
         Left = 10
         Top = 6
@@ -255,7 +248,6 @@ object FrmPreview: TFrmPreview
         TabOrder = 0
         TabStop = False
         OnChange = BackgroundTrackBarChange
-        ExplicitWidth = 444
       end
     end
   end

Setup/SVGShellExtensions.iss

@@ -52,12 +52,6 @@
         <Cfg_2>true</Cfg_2>
         <Base>true</Base>
     </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
-        <Cfg_2_Win64>true</Cfg_2_Win64>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
         <SanitizedProjectName>SVGShellExtensions</SanitizedProjectName>
         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;System.Win;Winapi;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
@@ -116,8 +110,6 @@
         <DCC_MapFile>3</DCC_MapFile>
         <DCC_LocalDebugSymbols>true</DCC_LocalDebugSymbols>
     </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
-    </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>

Source/SVGPreviewForm.dfm

@@ -165,18 +165,6 @@
                     <VersionInfo Name="Locale">1033</VersionInfo>
                     <VersionInfo Name="CodePage">1252</VersionInfo>
                 </VersionInfo>
-                <VersionInfoKeys>
-                    <VersionInfoKeys Name="CompanyName">Ethea</VersionInfoKeys>
-                    <VersionInfoKeys Name="FileDescription">InstantXMLEditor: XSL-&gt;HTML and XSL-FO processing</VersionInfoKeys>
-                    <VersionInfoKeys Name="FileVersion">2.11.0.0</VersionInfoKeys>
-                    <VersionInfoKeys Name="InternalName"/>
-                    <VersionInfoKeys Name="LegalCopyright">Copyright © 2005-2010 - Ethea</VersionInfoKeys>
-                    <VersionInfoKeys Name="LegalTrademarks"/>
-                    <VersionInfoKeys Name="OriginalFilename"/>
-                    <VersionInfoKeys Name="ProductName"/>
-                    <VersionInfoKeys Name="ProductVersion">2.10</VersionInfoKeys>
-                    <VersionInfoKeys Name="Comments"/>
-                </VersionInfoKeys>
                 <Source>
                     <Source Name="MainSource">SVGTextEditor.dpr</Source>
                 </Source>

Source/SVGShellExtensions.dproj

@@ -109,7 +109,7 @@ procedure TBasePreviewHandler.DoPreview(const FilePath: string);
       TLogPreview.Add('TGlobalPreviewHandler TFrmPreview.Create');
       Editor := TFrmPreview.Create(nil);
       Editor.Align := alClient;
-      Editor.Parent := TPreviewContainer(TFrmPreview.AParent).ClientPanel;
+      Editor.Parent := TPreviewContainer(TFrmPreview.AParent);
       Editor.BorderStyle := bsNone;
 
       TLogPreview.Add('DoPreview Visible');

Source/SVGTextEditor.dproj

@@ -141,8 +141,11 @@ function TComSVGThumbnailProvider.GetThumbnail(cx: uint; out hBitmap: HBITMAP;
     end;
   except
     on E: Exception do
+    begin
       TLogPreview.Add(Format('Error in TComSVGThumbnailProvider.GetThumbnail - Message: %s: Trace %s',
         [E.Message, E.StackTrace]));
+        Result := E_FAIL;
+    end;
   end;
   Result := S_OK;
 end;