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

tweaked project inspector 

- only d sources can be opened by dbl click
- extra sources can also be opened by dbl click
- importStringPaths and ImportModulePaths are not shorten anymore
This commit is contained in:
Basile Burg 2015-02-04 02:30:28 +01:00
parent 2fbed556fb
commit bb311ce049
1 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/ce_projinspect.pas
View File

@ -197,16 +197,15 @@ begin
if fProject = nil then exit; if fProject = nil then exit;
if Tree.Selected = nil then exit; if Tree.Selected = nil then exit;
// //
if Tree.Selected.Parent = fFileNode then if (Tree.Selected.Parent = fFileNode) or (Tree.Selected.Parent = fXtraNode) then
begin begin
fname := Tree.Selected.Text; fname := Tree.Selected.Text;
i := fProject.Sources.IndexOf(fname); i := fProject.Sources.IndexOf(fname);
if i > -1 then if i > -1 then
begin
fname := fProject.getAbsoluteSourceName(i); fname := fProject.getAbsoluteSourceName(i);
if dExtList.IndexOf(ExtractFileExt(fname)) <> -1 then
if fileExists(fname) then if fileExists(fname) then
CEMainForm.openFile(fname); CEMainForm.openFile(fname);
end;
end end
else if Tree.Selected.Parent = fConfNode then else if Tree.Selected.Parent = fConfNode then
begin begin
@ -317,7 +316,9 @@ var
begin begin
CEMainForm.FormDropFiles(Sender, Filenames); CEMainForm.FormDropFiles(Sender, Filenames);
if fProject = nil then exit; if fProject = nil then exit;
for fname in Filenames do fProject.addSource(fname); for fname in Filenames do
if FileExists(fname) then
fProject.addSource(fname);
end; end;
procedure TCEProjectInspectWidget.UpdateByEvent; procedure TCEProjectInspectWidget.UpdateByEvent;
@ -336,11 +337,11 @@ begin
Tree.BeginUpdate; Tree.BeginUpdate;
// display main sources // display main sources
for src in fProject.Sources do for src in fProject.Sources do
begin begin
itm := Tree.Items.AddChild(fFileNode, src); itm := Tree.Items.AddChild(fFileNode, src);
itm.ImageIndex := 2; itm.ImageIndex := 2;
itm.SelectedIndex := 2; itm.SelectedIndex := 2;
end; end;
// display configurations // display configurations
for i := 0 to fProject.OptionsCollection.Count-1 do for i := 0 to fProject.OptionsCollection.Count-1 do
begin begin
@ -355,7 +356,9 @@ begin
begin begin
if fold = '' then if fold = '' then
continue; continue;
itm := Tree.Items.AddChild(fImpsNode, shortenPath(symbolExpander.get(fold))); fold := fProject.getAbsoluteFilename(fold);
fold := symbolExpander.get(fold);
itm := Tree.Items.AddChild(fImpsNode, fold);
itm.ImageIndex := 5; itm.ImageIndex := 5;
itm.SelectedIndex := 5; itm.SelectedIndex := 5;
end; end;
@ -365,7 +368,9 @@ begin
begin begin
if fold = '' then if fold = '' then
continue; continue;
itm := Tree.Items.AddChild(fInclNode, shortenPath(symbolExpander.get(fold))); fold := fProject.getAbsoluteFilename(fold);
fold := symbolExpander.get(fold);
itm := Tree.Items.AddChild(fInclNode, fold);
itm.ImageIndex := 5; itm.ImageIndex := 5;
itm.SelectedIndex := 5; itm.SelectedIndex := 5;
end; end;
@ -375,14 +380,16 @@ begin
begin begin
if src = '' then if src = '' then
continue; continue;
src := fProject.getAbsoluteFilename(src);
src := symbolExpander.get(src);
lst := TStringList.Create; lst := TStringList.Create;
try try
if listAsteriskPath(src, lst) then for src in lst do begin if listAsteriskPath(src, lst) then for src in lst do begin
itm := Tree.Items.AddChild(fXtraNode, shortenPath(symbolExpander.get(src))); itm := Tree.Items.AddChild(fXtraNode, src);
itm.ImageIndex := 2; itm.ImageIndex := 2;
itm.SelectedIndex := 2; itm.SelectedIndex := 2;
end else begin end else begin
itm := Tree.Items.AddChild(fXtraNode, shortenPath(symbolExpander.get(src))); itm := Tree.Items.AddChild(fXtraNode, src);
itm.ImageIndex := 2; itm.ImageIndex := 2;
itm.SelectedIndex := 2; itm.SelectedIndex := 2;
end; end;