source: trunk/IDE/Forms/FormProject.pas

unit FormProject;

interface

uses
  Classes, SysUtils, LazFileUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
  Menus, ActnList, Project;

type
  TShowProjectEvent = procedure (ProjectFile: TProjectFile) of object;

  { TFormProject }

  TFormProject = class(TForm)
    AAdd: TAction;
    AShow: TAction;
    ARename: TAction;
    ADelete: TAction;
    ActionList1: TActionList;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    OpenDialog1: TOpenDialog;
    PopupMenuFile: TPopupMenu;
    TreeViewProject: TTreeView;
    procedure AAddExecute(Sender: TObject);
    procedure ADeleteExecute(Sender: TObject);
    procedure ARenameExecute(Sender: TObject);
    procedure AShowExecute(Sender: TObject);
    procedure TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
    procedure TreeViewProjectDblClick(Sender: TObject);
  private
    FOnShowProject: TShowProjectEvent;
    procedure UpdateProjectFiles(Node: TTreeNode; Files: TProjectFiles);
  public
    procedure UpdateProjectTree;
    procedure UpdateInterface;
    property OnShowProject: TShowProjectEvent read FOnShowProject write FOnShowProject;
  end;

var
  FormProject: TFormProject;


implementation

{$R *.lfm}

uses
  Core, FormMain, FormSourceCode, FormTargetCode, FormCodeTree;

resourcestring
  SRenameSourceFile = 'Rename source file';
  SEnterNewFileName = 'Enter new file name';

{ TFormProject }

procedure TFormProject.TreeViewProjectChange(Sender: TObject; Node: TTreeNode
  );
begin
  if Assigned(Node) then begin
    if TProjectFile(Node.Data) is TProjectFile then begin
      TreeViewProject.PopupMenu := PopupMenuFile;
      AShow.Execute;
(*        if FileExists(TProjectFile(Node.Data).ProducedFileName) then
        CompiledForm.SynEdit1.Lines.LoadFromFile(FileName) else
          CompiledForm.SynEdit1.Lines.Clear;
        if ComboBoxTargetSelection.ItemIndex = 0 then
          CompiledForm.SynEdit1.Highlighter := CompiledForm.SynPasSyn1;
        if ComboBoxTargetSelection.ItemIndex = 1 then
          CompiledForm.SynEdit1.Highlighter := CompiledForm.SynCppSyn1;
        if ComboBoxTargetSelection.ItemIndex = 2 then
          CompiledForm.SynEdit1.Highlighter := nil;
        if ComboBoxTargetSelection.ItemIndex = 3 then
          CompiledForm.SynEdit1.Highlighter := CompiledForm.SynXMLSyn1;
  *)
      (*// Load code tree view
      Compiler.Producer.Free;
      Compiler.Producer := TProducerTreeView.Create;
      Compiler.Init;
      Compiler.Parser.OnGetSource := GetSource;
      with TProjectFile(Project.Items[0]) do begin
        Compiler.Compile(Parent.GetDir + Name, Source);
      end;
      //CodeTreeForm.TreeView1.Assign(TProducerTreeView(Compiler.Producer).TreeView);
      *)
    end else
      TreeViewProject.PopupMenu := nil;
  end;
end;

procedure TFormProject.TreeViewProjectDblClick(Sender: TObject);
begin
  AShow.Execute;
end;

procedure TFormProject.AAddExecute(Sender: TObject);
begin
  if Sender is TMenuItem then
  with TMenuItem(Sender) do begin
    if OpenDialog1.Execute then begin

      UpdateProjectTree;
    end;
  end;
end;

procedure TFormProject.ADeleteExecute(Sender: TObject);
begin
  if Assigned(TreeViewProject.Selected) then
    Core.Core.Project.Files.Remove(TreeViewProject.Selected.Data);
  UpdateProjectTree;
end;

procedure TFormProject.ARenameExecute(Sender: TObject);
var
  NewName: string;
begin
  if Assigned(TreeViewProject.Selected) then begin
    NewName := TProjectFile(TreeViewProject.Selected.Data).FileName;
    if InputQuery(SRenameSourceFile, SEnterNewFileName, NewName) then
      TProjectFile(TreeViewProject.Selected.Data).FileName := NewName;
    UpdateProjectTree;
  end;
end;

procedure TFormProject.AShowExecute(Sender: TObject);
begin
  if Assigned(TreeViewProject.Selected) then begin
    if Assigned(FOnShowProject) then
      FOnShowProject(TProjectFile(TreeViewProject.Selected.Data));
  end;
end;

procedure TFormProject.UpdateProjectTree;
var
  NewNode: TTreeNode;
begin
  with Core.Core, TreeViewProject, Items do
  try
    BeginUpdate;
    Clear;
    if Assigned(Project) then begin
      NewNode := AddChildObject(nil, ExtractFileNameWithoutExt(Project.FileName), Project);
      UpdateProjectFiles(NewNode, Project.Files);
      NewNode.Expand(True);
    end;
    if Assigned(TreeViewProject.TopItem) and
      (TreeViewProject.TopItem.Count > 0) then
      TreeViewProject.TopItem.Items[0].Selected := True
      else begin
        if Assigned(FOnShowProject) then
          FOnShowProject(nil);
      end;
  finally
    EndUpdate;
  end;
end;

procedure TFormProject.UpdateInterface;
begin
  UpdateProjectTree;
end;

procedure TFormProject.UpdateProjectFiles(Node: TTreeNode; Files: TProjectFiles);
var
  I: Integer;
  NewNode: TTreeNode;
  FileName: string;
  NamePart: string;
  SelNode: TTreeNode;
  SubNode: TTreeNode;
begin
  for I := 0 to Files.Count - 1 do begin
    FileName := TProjectFile(Files[I]).FileName;
    SelNode := Node;
    while Pos(DirectorySeparator, FileName) > 0 do begin
      NamePart := Copy(FileName, 1, Pos(DirectorySeparator, FileName) - 1);
      Delete(FileName, 1, Length(NamePart) + 1);
      SubNode := SelNode.FindNode(NamePart);
      if Assigned(SubNode) then SelNode := SubNode
      else begin
        SelNode := TreeViewProject.Items.AddChild(SelNode, NamePart);
      end;
    end;
    NewNode := TreeViewProject.Items.AddChildObject(SelNode, FileName, Pointer(Files[I]));
  end;
end;

end.