paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 22:20:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: qt, gtk1, win32: dropfiles for sub forms

Browse Source 
git-svn-id: trunk@45561 -
This commit is contained in:
mattias 2014-06-16 22:32:25 +00:00
parent 0768cb0727
commit bbf6c0d283
3 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2830,8 +2830,8 @@ begin
TCustomForm(LCLObject).IntfDropFiles(Files)
else
begin
ParentForm := LCLObject.IntfGetDropFilesTarget;
if Assigned(ParentForm) then
ParentForm := TCustomForm(LCLObject.IntfGetDropFilesTarget);
if ParentForm is TCustomForm then
ParentForm.IntfDropFiles(Files);
end;

8
lcl/interfaces/win32/win32callback.inc
View File

@ -918,7 +918,7 @@ var
Drop: HDROP;
L: LongWord;
I, C: Integer;
aForm: TCustomForm;
DropForm: TWinControl;
{$IFDEF WindowsUnicodeSupport}
AnsiBuffer: string;
WideBuffer: WideString;
@ -958,9 +958,9 @@ var
if Length(Files) > 0 then
begin
aForm := lWinControl.IntfGetDropFilesTarget;
if aForm<>nil then
aForm.IntfDropFiles(Files);
DropForm := lWinControl.IntfGetDropFilesTarget;
if DropForm is TCustomForm then
TCustomForm(DropForm).IntfDropFiles(Files);
if Application <> nil then
Application.IntfDropFiles(Files);
end;

1
packager/packageeditor.pas
View File

@ -1360,6 +1360,7 @@ procedure TPackageEditorForm.FormDropFiles(Sender: TObject;
const FileNames: array of String);
begin
debugln(['TPackageEditorForm.FormDropFiles ',length(FileNames)]);
IntfGetDropFilesTarget;
end;
procedure TPackageEditorForm.RevertClick(Sender: TObject);