ver.1.2.3

Fixed: Close-All, now clear preview
Fixed: Save-to png context-menu

Author: carloBarazzetta

Setup/Output/SVGShellExtensionsSetup.exe

@@ -1,7 +1,7 @@
 ; Script generated by the Inno Setup Script Wizard.
 ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
 #define MyAppName 'SVG Shell Extensions and SVG Text Editor'
-#define MyAppVersion '1.2.2'
+#define MyAppVersion '1.2.3'
 
 [Setup]
 UsePreviousLanguage=no

Setup/SVGShellExtensions.iss

@@ -47,12 +47,10 @@ interface
   , Vcl.Styles.Utils
   , Vcl.Styles.Utils.SysControls
   , Vcl.Styles.UxTheme
-//  {$IFDEF WIN32}
   , Vcl.Styles.Hooks
   , Vcl.Styles.Utils.Forms
   , Vcl.Styles.Utils.ComCtrls
   , Vcl.Styles.Utils.StdCtrls
-//  {$ENDIF}
   , Vcl.Styles.Ext
   ;
 
@@ -441,7 +439,7 @@ function TfrmMain.OpenFile(const FileName : string;
     FProcessingFiles := True;
     if FileExists(FileName) then
     begin
-      //ciclo per cercare se il file è già aperto
+      //looking for the file already opened
       EditingFile := nil;
       I := -1;
       for J := 0 to EditFileList.Count -1 do
@@ -454,16 +452,15 @@ function TfrmMain.OpenFile(const FileName : string;
           break;
         end;
       end;
-      //Creo l'oggetto EditingFile
+      //searching EditingFile object
       Try
         if not Assigned(EditingFile) then
         begin
           EditingFile := TEditingFile.Create(FileName);
-          //Aggiungo il file alla lista
+          //Add file to list
           I := AddEditingFile(EditingFile);
         end;
 
-        //Apro il file
         EditingFile.ReadFromFile;
 
         Result := True;
@@ -747,7 +744,7 @@ procedure TfrmMain.FormCreate(Sender: TObject);
   InitialDir : string;
   FileVersionStr: string;
 begin
-  //creo la lista dei files aperti
+  //Build opened-files list
   EditFileList := TObjectList.Create(True);
   FEditorOptions := TSynEditorOptionsContainer.create(self);
   FEditorSettings := TEditorSettings.CreateSettings(nil, FEditorOptions);
@@ -763,7 +760,7 @@ procedure TfrmMain.FormCreate(Sender: TObject);
   //Bold font for image preview panel
   ImagePreviewPanel.Font.Style := ImagePreviewPanel.Font.Style + [fsBold];
 
-  //Versione
+  //Version
   FileVersionStr := uMisc.GetFileVersion(GetModuleLocation());
   Application.Title := Application.Title + ' (Ver.'+FileVersionStr+')';
   Caption := Application.Title;
@@ -772,25 +769,21 @@ procedure TfrmMain.FormCreate(Sender: TObject);
 
   UpdateFromSettings(nil);
 
-  //Aggancia l'imagelist che si sgancia
+  //Explicit attach imagelist
   ActionList.Images := VirtualImageList;
 
-  //directory di partenza
+  //staring folder
   CurrentDir := IncludeTrailingPathDelimiter(TPath.GetDocumentsPath);
 
-//  PageControl.Images := dmResources.Images;
-//  PageControl.Images := IconList;
-
-  //Inizializza output di stampa
+  //Initialize print output
   InitSynEditPrint;
 
-  //Carico i files che erano rimasti aperti
+  //Load previous opened-files
   LoadOpenedFiles;
 
-  //Inizializza Open e Save Dialog dalla Dir di lancio del programma
   if ParamStr(1) <> '' then
   begin
-    //Carico l'eventuale file esterno
+    //Load file passed at command line
     InitialDir := ParamStr(1);
     OpenFile(ParamStr(1));
     AssignSVGToImage;
@@ -801,7 +794,7 @@ procedure TfrmMain.FormCreate(Sender: TObject);
   OpenDialog.InitialDir := InitialDir;
   SaveDialog.InitialDir := InitialDir;
 
-  //Aggiorna le impostazioni di tutti gli editor aperti
+  //Update all editor options
   UpdateEditorsOptions;
 end;
 
@@ -811,11 +804,10 @@ procedure TfrmMain.acNewFileExecute(Sender: TObject);
   EditingFile : TEditingFile;
   NewFileType : TEditFileType;
 begin
-  //Chiedo che tipo di file vuoto voglio aggiungere
   NewExt := 'svg';
   NewFileType := dmResources.GetEditFileType(NewExt);
 
-  //Aggiungo un file vuoto
+  //Create object to manage new file
   EditingFile := TEditingFile.Create(CurrentDir+'New.'+NewExt);
   Try
     AddEditingFile(EditingFile);
@@ -839,7 +831,6 @@ procedure TfrmMain.acReplaceUpdate(Sender: TObject);
 
 procedure TfrmMain.acCloseExecute(Sender: TObject);
 begin
-  //Rimuovo il file da editare
   RemoveEditingFile(CurrentEditFile);
 end;
 
@@ -896,23 +887,23 @@ function TfrmMain.AddEditingFile(EditingFile: TEditingFile): Integer;
   ts : TTabSheet;
   Editor : TSynEdit;
 begin
-  //lo aggiungo alla lista dei file aperti
+  //Add file to opened-list
   Result := EditFileList.Add(EditingFile);
-  //Appena aggiungo un'oggetto alla lista creo la pagina Associata
+  //Create the Tabsheet page associated to the file
   ts := nil;
   Editor := nil;
   Try
     ts := TTabSheet.Create(self);
     ts.PageControl := PageControl;
-    //Attacco al TAG del tabsheet l'oggetto del file da editare
+    //Use TAG of tabsheet to store the object pointer
     ts.Tag := Integer(EditingFile);
     ts.Caption := EditingFile.Name;
     ts.Imagename := 'svg-logo-gray';
     ts.Parent := PageControl;
     ts.TabVisible := True;
     EditingFile.TabSheet := ts;
 
-    //Creo l'oggetto dell'editor all'interno della pagina con l'owner la pagina
+    //Create the SynEdit object editor into the TabSheet that is the owner
     Editor := TSynEdit.Create(ts);
     Editor.OnChange := SynEditChange;
     Editor.OnEnter := SynEditEnter;
@@ -921,27 +912,26 @@ function TfrmMain.AddEditingFile(EditingFile: TEditingFile): Integer;
     Editor.Parent := ts;
     Editor.SearchEngine := SynEditSearch;
     Editor.PopupMenu := popEditor;
-    //Assegna le preferenze dell'utente
+    //Assign user preferences to the editor
     FEditorOptions.AssignTo(Editor);
     Editor.MaxScrollWidth := 3000;
     EditingFile.SynEditor := Editor;
     UpdateFromSettings(Editor);
     UpdateHighlighter(Editor);
     Editor.Visible := True;
 
-    //Visualizzo il tabsheet
+    //Show the tabsheet
     ts.Visible := True;
+
+    //Make the Tabsheet the current page
+    //and call "change" of pagecontrol
+    PageControl.ActivePage := ts;
+    PageControl.OnChange(PageControl);
   Except
     ts.Free;
     Editor.Free;
     raise;
   End;
-
-  //Attivo la pagina appena creata
-  PageControl.ActivePage := ts;
-
-  //Forzo "change" della pagina
-  PageControl.OnChange(PageControl);
 end;
 
 procedure TfrmMain.AssignSVGToImage;
@@ -950,7 +940,7 @@ procedure TfrmMain.AssignSVGToImage;
 begin
   if FProcessingFiles then
     Exit;
-  //Assegna l'immagine SVG
+  //Assign SVG image
   try
     if CurrentEditor <> nil then
     begin
@@ -995,7 +985,7 @@ procedure TfrmMain.BackgroundTrackBarChange(Sender: TObject);
 
 procedure TfrmMain.PageControlChange(Sender: TObject);
 begin
-  //Imposto la caption dell'Editor
+  //Setting the Editor caption as the actual file opened
   if CurrentEditFile <> nil then
     Caption := Application.Title+' - '+CurrentEditFile.FileName;
   AssignSVGToImage;
@@ -1044,25 +1034,24 @@ procedure TfrmMain.RemoveEditingFile(EditingFile: TEditingFile);
   if pos = -1 then
     raise EComponentError.Create(CLOSING_PROBLEMS);
 
-  //Richiesta di abbandono delle modifiche pendenti
+  //Confirm abandon changes
   if EditingFile.SynEditor.Modified then
   begin
     if MessageDlg(Format(CONFIRM_ABANDON,[EditingFile.FileName]),
       mtWarning, [mbYes, mbNo], 0) = mrNo then
       Abort;
   end;
 
-  //Elimino il file dalla lista
+  //Delete the file from the Opened-List
   EditFileList.Delete(pos);
 
-  //Elimino la pagina
+  //Delete the TabSheet
   PageControl.Pages[pos].Free;
 
-  //Attivo la pagina nuova che ha preso il posto della precedente
+  //Activate the previous page and
+  //call "change" of pagecontrol
   if pos > 0 then
     PageControl.ActivePageIndex := pos-1;
-
-  //Forzo "change" della pagina
   PageControl.OnChange(PageControl);
 end;
 
@@ -1079,6 +1068,7 @@ procedure TfrmMain.acCloseAllExecute(Sender: TObject);
       RemoveEditingFile(TEditingFile(EditFileList.items[0]));
   finally
     FProcessingFiles := False;
+    AssignSVGToImage;
   end;
 end;
 
@@ -1271,7 +1261,7 @@ procedure TfrmMain.UpdateHighlighter(ASynEditor: TSynEdit);
   LBackgroundColor := StyleServices.GetSystemColor(clWindow);
   ASynEditor.Highlighter := dmResources.GetSynHighlighter(
     FEditorSettings.UseDarkStyle, LBackgroundColor);
-  //Assegna i colori "custom" all'Highlighter
+  //Assign custom colors to the Highlighter
   FEditorSettings.ReadSettings(ASynEditor.Highlighter, self.FEditorOptions);
 end;
 
@@ -1328,8 +1318,7 @@ procedure TfrmMain.actnSaveAsExecute(Sender: TObject);
       CurrentEditFile.FileName := SaveDialog.FileName;
     end;
     CurrentEditFile.SaveToFile;
-
-    //Forzo "change" della pagina
+    //call the "onchange" event of PageControl
     PageControl.OnChange(PageControl);
   end;
 end;
@@ -1435,7 +1424,7 @@ procedure TfrmMain.actnFormatXMLExecute(Sender: TObject);
 var
   OldText, NewText : string;
 begin
-  //formatta XML
+  //format XML text
   OldText := CurrentEditor.Text;
   NewText := Xml.XMLDoc.FormatXMLData(OldText);
   if OldText <> NewText then
@@ -1455,14 +1444,14 @@ procedure TfrmMain.AddOpenedFile(const AFileName: string);
 var
   i : integer;
 begin
-  //se esiste già la voce la cancello
+  //Add the opened file to the opened-file list
   i := FEditorSettings.HistoryFileList.IndexOf(AFileName);
   if i >= 0 then
     FEditorSettings.HistoryFileList.Delete(i);
-  //massimo 15 voci
+  //max 15 items
   if FEditorSettings.HistoryFileList.Count > 15 then
     FEditorSettings.HistoryFileList.Delete(14);
-  //Aggiungo la voce in prima posizione
+  //add the last opened-file at first position
   FEditorSettings.HistoryFileList.Insert(0, AFileName);
 end;
 
@@ -1551,7 +1540,7 @@ procedure TfrmMain.HistoryListClick(Sender: TObject);
   LFileName : string;
 begin
   LFilename := (Sender as TMenuItem).Hint;
-  //Carico il file selezionato
+  //Load the selected file
   OpenFile(LFileName);
   AssignSVGToImage;
   if (CurrentEditor <> nil) and (CurrentEditor.CanFocus) then
@@ -1565,7 +1554,9 @@ procedure TfrmMain.FormShow(Sender: TObject);
 end;
 
 initialization
+  {$IFDEF DEBUG}
   ReportMemoryLeaksOnShutdown := True;
+  {$ENDIF}
 
 end.
 

Source/EditorMainForm.pas

@@ -58,7 +58,7 @@
         <Icon_MainIcon>..\Icons\logo.ico</Icon_MainIcon>
         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
         <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=SVG Shell Extensions 64bit;FileVersion=1.2.2.0;InternalName=;LegalCopyright=Copyright © 2021 Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProductName=SVG Shell Extensions 64bit;ProductVersion=1.2;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=SVG Shell Extensions 64bit;FileVersion=1.2.3.0;InternalName=;LegalCopyright=Copyright © 2021 Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProductName=SVG Shell Extensions 64bit;ProductVersion=1.2;Comments=</VerInfo_Keys>
         <Custom_Styles>Glow|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glow.vsf;Sky|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Sky.vsf;Windows10|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10.vsf;&quot;Windows10 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Dark.vsf&quot;;&quot;Windows10 SlateGray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10SlateGray.vsf&quot;;&quot;Flat UI Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\FlatUILight.vsf&quot;;&quot;Windows10 BlackPearl|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10BlackPearl.vsf&quot;;&quot;Windows10 Blue Whale|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10BlueWhale.vsf&quot;;&quot;Windows10 Blue Whale LE|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10BlueWhaleLE.vsf&quot;;&quot;Windows10 Clear Day|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10ClearDay.vsf&quot;;&quot;Windows10 Malibu|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Malibu.vsf&quot;</Custom_Styles>
         <DCC_UsePackage>rtl;vcl;vclx;vclactnband;xmlrtl;VclSmp;vclimg;svnui;svn;bdertl;TeeUI;TeeDB;Tee;vcldb;dbrtl;vcldbx;vcltouch;dsnap;dsnapcon;vclib;ibxpress;adortl;IndyCore;IndySystem;IndyProtocols;inet;intrawebdb_110_150;Intraweb_110_150;vclie;websnap;webdsnap;inetdb;inetdbbde;inetdbxpress;soaprtl;vclribbon;dbexpress;DbxCommonDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;DbxClientDriver;DataSnapClient;dbxcds;DataSnapServer;AzureCloud;DBXInterBaseDriver;DBXMySQLDriver;DBXFirebirdDriver;DBXSybaseASEDriver;DBXSybaseASADriver;DBXOracleDriver;DBXMSSQLDriver;DBXInformixDriver;DBXDb2Driver;Hydra_Core_D15;SynEdit_RXE;mbColorLibDXE;JclDeveloperTools;Jcl;JclVcl;JclContainers;JvCore;JvSystem;JvStdCtrls;JvAppFrm;JvBands;JvDB;JvDlgs;JvBDE;JvControls;JvCmp;JvCrypt;JvCustom;JvDocking;JvDotNetCtrls;JvGlobus;JvHMI;JvJans;JvManagedThreads;JvMM;JvNet;JvPageComps;JvPascalInterpreter;JvPluginSystem;JvPrintPreview;JvRuntimeDesign;JvTimeFramework;JvWizards;JvXPCtrls;WinSkinDXE;bsfd2011;IceTabSet;$(DCC_UsePackage)</DCC_UsePackage>
         <DCC_DcuOutput>.\$(Config)\$(Platform)</DCC_DcuOutput>
@@ -68,7 +68,7 @@
         <DCC_ExeOutput>..\Bin64</DCC_ExeOutput>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_MinorVer>2</VerInfo_MinorVer>
-        <VerInfo_Release>2</VerInfo_Release>
+        <VerInfo_Release>3</VerInfo_Release>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
         <Debugger_HostApplication>D:\ETHEA\SVGShellExtensions\Debug\Preview Handlers\OpenDialog\OpenDialogTest.exe</Debugger_HostApplication>
@@ -199,8 +199,8 @@
                     <Parameters Name="DebugCWD">c:\temp</Parameters>
                 </Parameters>
                 <Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k270.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
                     <Excluded_Packages Name="$(BDSBIN)\dclofficexp270.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k270.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
                 </Excluded_Packages>
             </Delphi.Personality>
             <Platforms>

Source/SVGShellExtensions.dproj

@@ -58,7 +58,7 @@
         <Icon_MainIcon>..\Icons\logo.ico</Icon_MainIcon>
         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
         <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=SVG Shell Extensions 32bit;FileVersion=1.2.2.0;InternalName=;LegalCopyright=Copyright © 2021 Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProductName=SVG Shell Extensions 32bit;ProductVersion=1.2;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=SVG Shell Extensions 32bit;FileVersion=1.2.3.0;InternalName=;LegalCopyright=Copyright © 2021 Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProductName=SVG Shell Extensions 32bit;ProductVersion=1.2;Comments=</VerInfo_Keys>
         <Custom_Styles>Glow|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glow.vsf;Sky|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Sky.vsf;Windows10|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10.vsf;&quot;Windows10 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Dark.vsf&quot;;&quot;Windows10 SlateGray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10SlateGray.vsf&quot;;&quot;Flat UI Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\FlatUILight.vsf&quot;;&quot;Windows10 BlackPearl|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10BlackPearl.vsf&quot;;&quot;Windows10 Blue Whale|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10BlueWhale.vsf&quot;;&quot;Windows10 Blue Whale LE|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10BlueWhaleLE.vsf&quot;;&quot;Windows10 Clear Day|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10ClearDay.vsf&quot;;&quot;Windows10 Malibu|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Malibu.vsf&quot;</Custom_Styles>
         <DCC_UsePackage>rtl;vcl;vclx;vclactnband;xmlrtl;VclSmp;vclimg;svnui;svn;bdertl;TeeUI;TeeDB;Tee;vcldb;dbrtl;vcldbx;vcltouch;dsnap;dsnapcon;vclib;ibxpress;adortl;IndyCore;IndySystem;IndyProtocols;inet;intrawebdb_110_150;Intraweb_110_150;vclie;websnap;webdsnap;inetdb;inetdbbde;inetdbxpress;soaprtl;vclribbon;dbexpress;DbxCommonDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;DbxClientDriver;DataSnapClient;dbxcds;DataSnapServer;AzureCloud;DBXInterBaseDriver;DBXMySQLDriver;DBXFirebirdDriver;DBXSybaseASEDriver;DBXSybaseASADriver;DBXOracleDriver;DBXMSSQLDriver;DBXInformixDriver;DBXDb2Driver;Hydra_Core_D15;SynEdit_RXE;mbColorLibDXE;JclDeveloperTools;Jcl;JclVcl;JclContainers;JvCore;JvSystem;JvStdCtrls;JvAppFrm;JvBands;JvDB;JvDlgs;JvBDE;JvControls;JvCmp;JvCrypt;JvCustom;JvDocking;JvDotNetCtrls;JvGlobus;JvHMI;JvJans;JvManagedThreads;JvMM;JvNet;JvPageComps;JvPascalInterpreter;JvPluginSystem;JvPrintPreview;JvRuntimeDesign;JvTimeFramework;JvWizards;JvXPCtrls;WinSkinDXE;bsfd2011;IceTabSet;$(DCC_UsePackage)</DCC_UsePackage>
         <DCC_DcuOutput>.\$(Config)\$(Platform)</DCC_DcuOutput>
@@ -68,7 +68,7 @@
         <DCC_ExeOutput>..\Bin32</DCC_ExeOutput>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_MinorVer>2</VerInfo_MinorVer>
-        <VerInfo_Release>2</VerInfo_Release>
+        <VerInfo_Release>3</VerInfo_Release>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
         <Debugger_HostApplication>D:\ETHEA\SVGShellExtensions\Debug\Preview Handlers\OpenDialog\OpenDialogTest.exe</Debugger_HostApplication>
@@ -199,8 +199,8 @@
                     <Parameters Name="DebugCWD">c:\temp</Parameters>
                 </Parameters>
                 <Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k270.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
                     <Excluded_Packages Name="$(BDSBIN)\dclofficexp270.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k270.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
                 </Excluded_Packages>
             </Delphi.Personality>
             <Platforms>