vcsprj2.dpr

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

library VcsPrj2;

uses
  Sharemem, SysUtils, Classes, ExptIntf, Forms,
  ToolIntf, Dialogs, Windows, VcsIntf, VirtIntf,
  ComCtrls, PrjForm in 'PrjForm.pas' {PrjInfoForm};

type
  TDdhProjectVcs = class (TIVCSClient)
  public
    function GetIDString: string; override;
    procedure ExecuteVerb(Index: Integer); override;
    function GetMenuName: string; override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
    function GetVerbState(Index: Integer): Word; override;
    procedure ProjectChange; override;
    destructor Destroy; override;
  end;

  TDDHPrjNotifier = class(TIAddInNotifier)
  public
    procedure FileNotification(NotifyCode: TFileNotification;
      const FileName: string; var Cancel: Boolean); override;
    procedure EventNotification(NotifyCode: TEventNotification;
      var Cancel: Boolean); override;
  end;

var
  PrjNotif: TDDHPrjNotifier;

// VCS methods

function TDdhProjectVcs.GetIDString: string;
begin
  Result := 'DDHandbook.DDHProjectVCS';
end;

function TDdhProjectVcs.GetMenuName: string;
begin
  Result := 'DHH Project VCS';
end;

function TDdhProjectVcs.GetVerbCount: Integer;
begin
  Result := 3;
end;

function TDdhProjectVcs.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := '&Project Information...';
    1: Result := ''; // separator
    2: Result := '&About DDH Project VCS...';
  end;
end;

procedure TDdhProjectVcs.ExecuteVerb(Index: Integer);
begin
  case Index of
    0: try
        PrjInfoForm.UpdateTree;
        PrjInfoForm.Show;
      except
        ToolServices.RaiseException(ReleaseException);
      end;
    2: MessageDlg ('DDH Project Version Control System'#13#13 +
      'From the "Delphi Developer''s Handbook"'#13 +
      'by Marco Cant