相关疑难解决方法(0)

当我开始在Delphi 7 IDE中编辑它时,我想自动检出文件.

ClearCase是我的版本控制系统,我真的很讨厌在开始编辑之前签出文件.它总是打破我的思维流程:我正在尝试解决问题,找到我需要更改的地方,尝试编辑它,失败因为文件是只读的,打开clearcase,搜索文件,最后结帐,尝试编辑文件再次失败,因为IDE仍然认为它是只读的,告诉IDE不是readonly.当我最终回到代码时,我忘记了我正在尝试做的事情.

我发现了这个简洁明了的ClearCase IDE集成代码.它可以工作,但使用已弃用的ToolIntf单元.我添加了几个快捷方式.这是它的简化版本(没有尝试编译):

unit clearcase;

interface
uses ToolsApi, ToolIntf;

implementation
uses
  Windows, Dialogs, Classes, ExptIntf, Menus, ShellApi, SysUtils;

type
  TDelphiClearcase = class
  private
    FClearcaseMenu,
    FDoCheckOutPasDfm,
    FDoCheckInPasDfm : TIMenuItemIntf;

    procedure ExecCommand(const command: string; path: PChar = nil);
  public
    destructor Destroy;override;
    procedure DoClick(Sender: TIMenuItemIntf);
    property ClearcaseMenu: TIMenuItemIntf read FClearcaseMenu write FClearcaseMenu;
    property DoCheckOutPasDfm:TIMenuItemIntf write FDoCheckOutPasDfm;
    property DoCheckInPasDfm: TIMenuItemIntf write FDoCheckInPasDfm;
  end;

var
  dcc: TDelphiClearcase = nil;

{ TDelphiClearcase }

destructor TDelphiClearcase.Destroy;
  procedure Remove(item: TIMenuItemIntf); …