Added drag-drop support for external files into editor.

Setup with signed certificate.

Author: carloBarazzetta

Build.bat

@@ -6,9 +6,12 @@ msbuild.exe "Source\SVGTextEditor.dproj" /target:Clean;Build /p:Platform=Win64 /
 :INNO
 "C:\Program Files (x86)\Inno Setup 6\iscc.exe" "D:\ETHEA\SVGShellExtensions\Setup\SVGShellExtensions.iss"
 set INNO_STATUS=%ERRORLEVEL%
-if %INNO_STATUS%==0 GOTO END
+if %INNO_STATUS%==0 GOTO SIGNSETUP
 pause
 EXIT
 
+:SIGNSETUP
+call D:\ETHEA\Certificate\SignFileWithSectico.bat D:\ETHEA\SVGShellExtensions\Setup\Output\SVGShellExtensionsSetup.exe
+
 :END
 pause

Images/Setup.png

@@ -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.3.0'
+#define MyAppVersion '1.4.0'
 
 [Setup]
 AppName={#MyAppName}

Setup/Output/SVGShellExtensionsSetup.exe

@@ -52,6 +52,7 @@ interface
   , Vcl.Styles.Utils.ComCtrls
   , Vcl.Styles.Utils.StdCtrls
   , Vcl.Styles.Ext
+  , uDragDropUtils
   ;
 
 const
@@ -96,7 +97,7 @@   TEditingFile = class
     property Extension : string read FExtension;
   end;
 
-  TfrmMain = class(TForm)
+  TfrmMain = class(TForm, IDragDrop)
     OpenDialog: TOpenDialog;
     ActionList: TActionList;
     acOpenFile: TAction;
@@ -182,6 +183,7 @@   TfrmMain = class(TForm)
     StatusStaticText: TStaticText;
     StatusSplitter: TSplitter;
     CloseAll1: TMenuItem;
+    procedure WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
     procedure acOpenFileExecute(Sender: TObject);
     procedure acSaveExecute(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -255,6 +257,7 @@   TfrmMain = class(TForm)
       MousePos: TPoint; var Handled: Boolean);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
+    MinFormWidth, MinFormHeight, MaxFormWidth, MaxFormHeight: Integer;
     FProcessingFiles: Boolean;
     FEditorSettings: TEditorSettings;
     currentDir: string;
@@ -272,6 +275,10 @@   TfrmMain = class(TForm)
     gsReplaceTextHistory: string;
     FEditorOptions: TSynEditorOptionsContainer;
     FFontSize: Integer;
+    FDropTarget: TDropTarget;
+    // implement IDragDrop
+    function DropAllowed(const FileNames: array of string): Boolean;
+    procedure Drop(const FileNames: array of string);
     procedure CloseSplitViewMenu;
     procedure UpdateHighlighters;
     procedure UpdateFromSettings(AEditor: TSynEdit);
@@ -297,7 +304,12 @@   TfrmMain = class(TForm)
     procedure UpdateHighlighter(ASynEditor: TSynEdit);
     procedure SetEditorFontSize(const Value: Integer);
     procedure LoadOpenedFiles;
+    function CanAcceptFileName(const AFileName: string): Boolean;
+    function AcceptedExtensions: string;
     property EditorFontSize: Integer read FFontSize write SetEditorFontSize;
+  protected
+    procedure CreateWindowHandle(const Params: TCreateParams); override;
+    procedure DestroyWindowHandle; override;
   end;
 
 var
@@ -428,6 +440,17 @@ procedure TfrmMain.acOpenFileExecute(Sender: TObject);
   AssignSVGToImage;
 end;
 
+function TfrmMain.CanAcceptFileName(const AFileName: string): Boolean;
+begin
+  Result := pos(ExtractFileExt(AFileName), AcceptedExtensions) <> 0;
+end;
+
+function TfrmMain.AcceptedExtensions: string;
+begin
+  //Check file extension
+  Result := '.svg;.xml';
+end;
+
 function TfrmMain.OpenFile(const FileName : string;
   const ARaiseError: Boolean = True): Boolean;
 var
@@ -439,6 +462,10 @@ function TfrmMain.OpenFile(const FileName : string;
     FProcessingFiles := True;
     if FileExists(FileName) then
     begin
+      if not CanAcceptFileName(FileName) then
+        raise Exception.CreateFmt('Cannot open file with extensions different from "%s"',
+        [AcceptedExtensions]);
+
       //looking for the file already opened
       EditingFile := nil;
       I := -1;
@@ -505,10 +532,10 @@ procedure TfrmMain.acSaveExecute(Sender: TObject);
 
 procedure TfrmMain.FormDestroy(Sender: TObject);
 begin
-  EditFileList.Free;
-  SynEditPrint.Free;
-  FEditorSettings.Free;
-  FEditorOptions.Free;
+  FreeAndNil(EditFileList);
+  FreeAndNil(SynEditPrint);
+  FreeAndNil(FEditorSettings);
+  FreeAndNil(FEditorOptions);
   inherited;
 end;
 
@@ -632,6 +659,12 @@ procedure TfrmMain.SVOpening(Sender: TObject);
   catMenuItems.ButtonOptions := catMenuItems.ButtonOptions + [boShowCaptions];
 end;
 
+procedure TfrmMain.DestroyWindowHandle;
+begin
+  FreeAndNil(FDropTarget);
+  inherited;
+end;
+
 function TfrmMain.DialogPosRect: TRect;
 begin
   GetWindowRect(Self.Handle, Result);
@@ -670,6 +703,32 @@ procedure TfrmMain.DoSearchReplaceText(AReplace: boolean;
     ConfirmReplaceDialog.Free;
 end;
 
+procedure TfrmMain.Drop(const FileNames: array of string);
+var
+  LFileName: string;
+  i: Integer;
+begin
+  for i := 0 to Length(FileNames)-1 do
+  begin
+    if CanAcceptFileName(FileNames[i]) then
+      OpenFile(FileNames[i], False);
+  end;
+  AssignSVGToImage;
+end;
+
+function TfrmMain.DropAllowed(const FileNames: array of string): Boolean;
+var
+  i: Integer;
+begin
+  Result := False;
+  for i := 0 to Length(FileNames)-1 do
+  begin
+    Result := CanAcceptFileName(FileNames[i]);
+    if Result then
+      Break;
+  end;
+end;
+
 procedure TfrmMain.ExportToPNGActionExecute(Sender: TObject);
 var
   LFileName: string;
@@ -1005,6 +1064,12 @@ procedure TfrmMain.CloseSplitViewMenu;
   Screen.Cursor := crDefault;
 end;
 
+procedure TfrmMain.CreateWindowHandle(const Params: TCreateParams);
+begin
+  inherited;
+  FDropTarget := TDropTarget.Create(WindowHandle, Self);
+end;
+
 function TfrmMain.CurrentEditFile: TEditingFile;
 begin
   if (PageControl.ActivePage <> nil) then
@@ -1388,6 +1453,32 @@ procedure TfrmMain.UpdateStatusBarPanels;
   end;
 end;
 
+procedure TfrmMain.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
+var
+  LMinMaxInfo: PMinMaxInfo;
+begin
+  if not (csReading in ComponentState) then
+  begin
+    LMinMaxInfo := Message.MinMaxInfo;
+    with LMinMaxInfo^ do
+    begin
+      with ptMinTrackSize do
+      begin
+        if MinFormWidth > 0 then X := MinFormWidth;
+        if MinFormHeight > 0 then Y := MinFormHeight;
+      end;
+      with ptMaxTrackSize do
+      begin
+        if MaxFormWidth > 0 then X := MaxFormWidth;
+        if MaxFormHeight > 0 then Y := MaxFormHeight;
+      end;
+      ConstrainedResize(ptMinTrackSize.X, ptMinTrackSize.Y, ptMaxTrackSize.X,
+        ptMaxTrackSize.Y);
+    end;
+  end;
+  inherited;
+end;
+
 procedure TfrmMain.ActionListExecute(Action: TBasicAction;
   var Handled: Boolean);
 begin