forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

D&D, try to open an editor first, then proj then always editor

This commit is contained in:
Basile Burg 2015-10-01 07:05:50 +02:00
parent caf568c934
commit e442c1fea2
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_main.pas
View File

@ -188,7 +188,7 @@ type
procedure actEdUnIndentExecute(Sender: TObject); procedure actEdUnIndentExecute(Sender: TObject);
procedure ApplicationProperties1Exception(Sender: TObject; E: Exception); procedure ApplicationProperties1Exception(Sender: TObject; E: Exception);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormDropFiles(Sender: TObject; const FileNames: array of String); procedure FormDropFiles(Sender: TObject; const FileNames: array of string);
private private
fDoc: TCESynMemo; fDoc: TCESynMemo;
@ -1458,13 +1458,15 @@ begin
saveFile(fMultidoc.document[i]); saveFile(fMultidoc.document[i]);
end; end;
procedure TCEMainForm.FormDropFiles(Sender: TObject;const FileNames: array of String); procedure TCEMainForm.FormDropFiles(Sender: TObject;const FileNames: array of string);
var var
fname: string; fname: string;
begin begin
for fname in FileNames do for fname in FileNames do
begin begin
if isValidNativeProject(fname) or isValidDubProject(fname) then if isEditable(fname) then
openFile(fname)
else if isValidNativeProject(fname) or isValidDubProject(fname) then
begin begin
openProj(fname); openProj(fname);
break; break;