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

style

This commit is contained in:
Basile Burg 2015-12-26 04:49:59 +01:00
parent 660d504ba1
commit 2d0b493783
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/ce_projinspect.pas
View File

@ -10,6 +10,9 @@ uses
ce_common, ce_widget, ce_observer, ce_dialogs, ce_sharedres; ce_common, ce_widget, ce_observer, ce_dialogs, ce_sharedres;
type type
{ TCEProjectInspectWidget }
TCEProjectInspectWidget = class(TCEWidget, ICEProjectObserver) TCEProjectInspectWidget = class(TCEWidget, ICEProjectObserver)
btnRemFold: TSpeedButton; btnRemFold: TSpeedButton;
imgList: TImageList; imgList: TImageList;
@ -247,7 +250,8 @@ begin
else if DirectoryExists(fLastFileOrFolder) then else if DirectoryExists(fLastFileOrFolder) then
InitialDir := fLastFileOrFolder; InitialDir := fLastFileOrFolder;
filter := DdiagFilter; filter := DdiagFilter;
if execute then begin if execute then
begin
fProject.beginUpdate; fProject.beginUpdate;
fProject.addSource(filename); fProject.addSource(filename);
fProject.endUpdate; fProject.endUpdate;
@ -326,7 +330,8 @@ begin
begin begin
fname := Tree.Selected.Text; fname := Tree.Selected.Text;
i := fProject.Sources.IndexOf(fname); i := fProject.Sources.IndexOf(fname);
if i > -1 then begin if i > -1 then
begin
fProject.beginUpdate; fProject.beginUpdate;
fProject.Sources.Delete(i); fProject.Sources.Delete(i);
fProject.endUpdate; fProject.endUpdate;
@ -379,7 +384,6 @@ var
src, fold, conf, str: string; src, fold, conf, str: string;
lst: TStringList; lst: TStringList;
itm: TTreeNode; itm: TTreeNode;
hasProj: boolean;
i: NativeInt; i: NativeInt;
begin begin
fConfNode.DeleteChildren; fConfNode.DeleteChildren;
@ -388,8 +392,8 @@ begin
fInclNode.DeleteChildren; fInclNode.DeleteChildren;
fXtraNode.DeleteChildren; fXtraNode.DeleteChildren;
// //
hasProj := fProject <> nil; if not assigned(fProject) then
if not hasProj then exit; exit;
// //
Tree.BeginUpdate; Tree.BeginUpdate;
// display main sources // display main sources
@ -449,11 +453,13 @@ begin
src := symbolExpander.get(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, 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, src); itm := Tree.Items.AddChild(fXtraNode, src);
itm.ImageIndex := 2; itm.ImageIndex := 2;
itm.SelectedIndex := 2; itm.SelectedIndex := 2;