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

projects group, allow to add several files from dialog

This commit is contained in:
Basile Burg 2016-07-06 06:52:43 +02:00
parent 614f6bdc21
commit 89bf138285
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/ce_projgroup.pas
View File

@ -431,15 +431,24 @@ end;
{$REGION Widget project group things -------------------------------------------} {$REGION Widget project group things -------------------------------------------}
procedure TCEProjectGroupWidget.BtnAddProjClick(Sender: TObject); procedure TCEProjectGroupWidget.BtnAddProjClick(Sender: TObject);
var
fname: string;
added: boolean;
begin begin
with TOpenDialog.Create(nil) do with TOpenDialog.Create(nil) do
try try
Options:= [ofAllowMultiSelect, ofEnableSizing];
if not execute then if not execute then
exit; exit;
if projectGroup.findProject(filename) <> nil then for fname in Files do
exit; begin
projectGroup.addItem(filename); if projectGroup.findProject(fname) <> nil then
updateList; continue;
projectGroup.addItem(fname);
added := true;
end;
if added then
updateList;
finally finally
free; free;
end; end;