pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

spready: drag and drop of files from Explorer (patch by Soner).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6583 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-08-10 11:29:29 +00:00
parent fc35dffc82
commit 6ec13372aa
2 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/spready/smain.lfm
View File

@ -3,12 +3,14 @@ object MainForm: TMainForm
Height = 709 Height = 709
Top = 190 Top = 190
Width = 1120 Width = 1120
AllowDropFiles = True
Caption = 'spready' Caption = 'spready'
ClientHeight = 689 ClientHeight = 689
ClientWidth = 1120 ClientWidth = 1120
Menu = MainMenu Menu = MainMenu
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
OnDropFiles = FormDropFiles
OnShow = FormShow OnShow = FormShow
ShowHint = True ShowHint = True
LCLVersion = '1.9.0.0' LCLVersion = '1.9.0.0'

9
applications/spready/smain.pas
View File

@ -457,6 +457,7 @@ type
procedure ColorComboboxAddColors(Sender: TObject); procedure ColorComboboxAddColors(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure HyperlinkHandler(Sender: TObject; ACaption: String; procedure HyperlinkHandler(Sender: TObject; ACaption: String;
var AHyperlink: TsHyperlink); var AHyperlink: TsHyperlink);
@ -1047,6 +1048,14 @@ begin
{$ENDIF} {$ENDIF}
end; 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); procedure TMainForm.FormShow(Sender: TObject);
begin begin
UpdateInspectorColumns; UpdateInspectorColumns;