paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Implement drag and drop of file to biffexplorer

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4177 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2015-06-04 15:31:20 +00:00
parent 54e0dc8d6f
commit 80738eec17
3 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas
View File

@ -530,8 +530,8 @@ begin
end; end;
procedure TBIFFGrid.SetBIFFNodeData(AData: TBIFFNodeData; ABuffer: TBIFFBuffer; procedure TBIFFGrid.SetBIFFNodeData(AData: TBIFFNodeData;
AFormat: TsSpreadsheetFormat); ABuffer: TBIFFBuffer; AFormat: TsSpreadsheetFormat);
begin begin
if AData = nil then if AData = nil then
exit; exit;

2
components/fpspreadsheet/reference/BIFFExplorer/bemain.lfm
View File

@ -3,6 +3,7 @@ object MainForm: TMainForm
Height = 576 Height = 576
Top = 177 Top = 177
Width = 1089 Width = 1089
AllowDropFiles = True
Caption = 'BIFF Explorer' Caption = 'BIFF Explorer'
ClientHeight = 556 ClientHeight = 556
ClientWidth = 1089 ClientWidth = 1089
@ -10,6 +11,7 @@ object MainForm: TMainForm
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnDropFiles = FormDropFiles
OnShow = FormShow OnShow = FormShow
ShowHint = True ShowHint = True
LCLVersion = '1.5' LCLVersion = '1.5'

8
components/fpspreadsheet/reference/BIFFExplorer/bemain.pas
View File

@ -110,6 +110,7 @@ type
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure GridClick(Sender: TObject); procedure GridClick(Sender: TObject);
procedure HexGridPrepareCanvas(sender: TObject; aCol, aRow: Integer; procedure HexGridPrepareCanvas(sender: TObject; aCol, aRow: Integer;
@ -677,6 +678,13 @@ begin
end; end;
procedure TMainForm.FormDropFiles(Sender: TObject;
const FileNames: array of String);
begin
LoadFile(FileNames[0]);
end;
procedure TMainForm.FormShow(Sender: TObject); procedure TMainForm.FormShow(Sender: TObject);
begin begin
Width := Width + 1; // remove black rectangle next to ValueGrid Width := Width + 1; // remove black rectangle next to ValueGrid