From 80738eec178dbc2222dbbeed5de34e70f2d6d560 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 4 Jun 2015 15:31:20 +0000
Subject: [PATCH] fpspreadsheet: Implement drag and drop of file to
 biffexplorer

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4177 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas   | 4 ++--
 .../fpspreadsheet/reference/BIFFExplorer/bemain.lfm       | 2 ++
 .../fpspreadsheet/reference/BIFFExplorer/bemain.pas       | 8 ++++++++
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/components/fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas b/components/fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas
index d9125fd22..cce3c1636 100644
--- a/components/fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas
+++ b/components/fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas
@@ -530,8 +530,8 @@ begin
 end;
 
 
-procedure TBIFFGrid.SetBIFFNodeData(AData: TBIFFNodeData; ABuffer: TBIFFBuffer;
-  AFormat: TsSpreadsheetFormat);
+procedure TBIFFGrid.SetBIFFNodeData(AData: TBIFFNodeData;
+  ABuffer: TBIFFBuffer; AFormat: TsSpreadsheetFormat);
 begin
   if AData = nil then
     exit;
diff --git a/components/fpspreadsheet/reference/BIFFExplorer/bemain.lfm b/components/fpspreadsheet/reference/BIFFExplorer/bemain.lfm
index bfda43b2d..8570d1fb0 100644
--- a/components/fpspreadsheet/reference/BIFFExplorer/bemain.lfm
+++ b/components/fpspreadsheet/reference/BIFFExplorer/bemain.lfm
@@ -3,6 +3,7 @@ object MainForm: TMainForm
   Height = 576
   Top = 177
   Width = 1089
+  AllowDropFiles = True
   Caption = 'BIFF Explorer'
   ClientHeight = 556
   ClientWidth = 1089
@@ -10,6 +11,7 @@ object MainForm: TMainForm
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnDropFiles = FormDropFiles
   OnShow = FormShow
   ShowHint = True
   LCLVersion = '1.5'
diff --git a/components/fpspreadsheet/reference/BIFFExplorer/bemain.pas b/components/fpspreadsheet/reference/BIFFExplorer/bemain.pas
index 81caf91d7..ebc67c5fa 100644
--- a/components/fpspreadsheet/reference/BIFFExplorer/bemain.pas
+++ b/components/fpspreadsheet/reference/BIFFExplorer/bemain.pas
@@ -110,6 +110,7 @@ type
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
     procedure FormShow(Sender: TObject);
     procedure GridClick(Sender: TObject);
     procedure HexGridPrepareCanvas(sender: TObject; aCol, aRow: Integer;
@@ -677,6 +678,13 @@ begin
 end;
 
 
+procedure TMainForm.FormDropFiles(Sender: TObject;
+  const FileNames: array of String);
+begin
+  LoadFile(FileNames[0]);
+end;
+
+
 procedure TMainForm.FormShow(Sender: TObject);
 begin
   Width := Width + 1;     // remove black rectangle next to ValueGrid