From 6ec13372aacdb79edeceabb2d452568a9483db12 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 10 Aug 2018 11:29:29 +0000
Subject: [PATCH] spready: drag and drop of files from Explorer (patch by
 Soner).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6583 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/spready/smain.lfm | 2 ++
 applications/spready/smain.pas | 9 +++++++++
 2 files changed, 11 insertions(+)

diff --git a/applications/spready/smain.lfm b/applications/spready/smain.lfm
index 34d1735c4..bf5abd5fa 100644
--- a/applications/spready/smain.lfm
+++ b/applications/spready/smain.lfm
@@ -3,12 +3,14 @@ object MainForm: TMainForm
   Height = 709
   Top = 190
   Width = 1120
+  AllowDropFiles = True
   Caption = 'spready'
   ClientHeight = 689
   ClientWidth = 1120
   Menu = MainMenu
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
+  OnDropFiles = FormDropFiles
   OnShow = FormShow
   ShowHint = True
   LCLVersion = '1.9.0.0'
diff --git a/applications/spready/smain.pas b/applications/spready/smain.pas
index 8e9149acf..bd313d9f6 100644
--- a/applications/spready/smain.pas
+++ b/applications/spready/smain.pas
@@ -457,6 +457,7 @@ type
     procedure ColorComboboxAddColors(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
+    procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
     procedure FormShow(Sender: TObject);
     procedure HyperlinkHandler(Sender: TObject; ACaption: String;
       var AHyperlink: TsHyperlink);
@@ -1047,6 +1048,14 @@ begin
  {$ENDIF}
 end;
 
+// Drag and drop files from the explorer onto the main form.
+procedure TMainForm.FormDropFiles(Sender: TObject;
+  const FileNames: array of String);
+begin
+  WorkbookSource.AutoDetectFormat := true;
+  LoadFile(FileNames[0]);
+end;
+
 procedure TMainForm.FormShow(Sender: TObject);
 begin
   UpdateInspectorColumns;