prjform.pas

Delphi高级开发指南是开发程序的好帮手

unit PrjForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, ExtCtrls, ToolIntf, EditIntf, ExptIntf;

type
  TPrjInfoForm = class(TForm)
    TreeView1: TTreeView;
    procedure TreeView1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure UpdateTree;
  end;

var
  PrjInfoForm: TPrjInfoForm;

implementation

{$R *.DFM}

procedure TPrjInfoForm.UpdateTree;
var
  Node1: TTreeNode;
  I, nTot: Integer;
begin
  if ToolServices.GetProjectName = '' then
    Caption := 'Project VCS'
  else
  begin
    Caption := 'Project VCS - ' +
      ExtractFileName (ToolServices.GetProjectName);
    with TreeView1.Items do
    begin
      Clear;
      BeginUpdate;
      // add units
      Node1 := AddChild (nil, 'Units');
      nTot := ToolServices.GetUnitCount;
      for I := 0 to nTot - 1 do
        AddChild (Node1,
          ToolServices.GetUnitName (I));

      // add forms
      Node1 := AddChild (nil, 'Forms');
      nTot := ToolServices.GetFormCount;
      for I := 0 to nTot - 1 do
        AddChild (Node1,
          ToolServices.GetFormName (I));
      EndUpdate;
    end;
    TreeView1.FullExpand;
  end;
end;

procedure TPrjInfoForm.TreeView1DblClick(Sender: TObject);
begin
  if TreeView1.Selected.Level = 1 then
  begin
    ToolServices.OpenFile (TreeView1.Selected.Text);
    ModalResult := mrOK;
  end;
end;

end.