que - ¿Cómo conectar un método al evento Edit en Delphi 7 IDE?

que es delphi 2010

Question

Me gustaría descargar automáticamente un archivo cuando empiece a editarlo en Delphi 7 IDE.

ClearCase es mi sistema de control de versiones y realmente odio la necesidad de comprar un archivo antes de comenzar a editarlo. Siempre rompe mi flujo de pensamiento: estoy tratando de resolver un problema, encontrar dónde tengo que cambiar, intentar editarlo, fallar porque el archivo es de solo lectura, abrir la caja fuerte, buscar el archivo, finalmente pagar, intentar editar el archivo de nuevo, fallar porque el IDE todavía piensa que es de solo lectura, decirle al IDE que no es de solo lectura. Cuando finalmente regreso al código, olvidé lo que estaba intentando hacer.

Encontré este código de integración ClearCase IDE agradable y simple . Funciona, pero usa la unidad ToolIntf obsoleta. He agregado un par de atajos. Aquí hay una versión simplificada de la misma (no intenté compilar):

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);
begin
if( item = nil )then
Exit;
item.DestroyMenuItem;
FreeAndNil(item);
end;
begin
Remove(FDoCheckOutPasDfm);
Remove(FDoCheckInPasDfm);
inherited;
end;
procedure TDelphiClearcase.DoClick(Sender: TIMenuItemIntf);
function GetPasDfm(const f: string): string;
var
aux: string;
begin
aux := Copy(f, 1, Length(f) - 4);
Result := aux + ''.pas'' + '' '' + aux + ''.dfm''
end;
var
command, fileName : string;
begin
fileName := ToolServices.GetCurrentFile;
if( Sender = FDoCheckOutPasDfm )then
command := ''cleartool co '' + GetPasDfm(fileName)
else if( Sender = FDoCheckInPasDfm )then
command := ''cleartool ci '' + GetPasDfm(fileName);
ExecCommand(command);
ToolServices.ReloadFile(fileName);
end;
procedure TDelphiClearcase.ExecCommand(const command: string; path: PChar);
var
pi : TProcessInformation;
stinfo : TStartupInfo;
begin
FillChar(stinfo, SizeOf(stinfo), 0);
stinfo.cb := SizeOf(stinfo);
if( CreateProcess(nil, PChar(command), nil, nil, True, CREATE_NEW_CONSOLE,
nil, path, stinfo, pi) )then begin
WaitForSingleObject(pi.hProcess, INFINITE);
CloseHandle(pi.hProcess)
end
end;
procedure CreateMenus;
var
services: TIToolServices;
begin
if( BorlandIDEServices = nil )then
Exit;
services := ToolServices;
if( services = nil )then
Exit;
dcc := TDelphiClearcase.Create;
dcc.ClearcaseMenu := services.GetMainMenu.GetMenuItems.InsertItem(6,
''C&learcase'', ''ClearcaseMenu'', ''ClearcaseTools'', 0, 0, 0,
[mfEnabled, mfVisible], nil);
dcc.DoCheckOutPasDfm := dcc.ClearcaseMenu.InsertItem(2,
''Check Out pas and dfm'', ''DoCheckOutPasDfm'', ''Undo the check outs'', ShortCut(Ord(''>''),
[ssCtrl]), 0, 2,
[mfEnabled, mfVisible], dcc.DoClick);
dcc.DoCheckInPasDfm:= dcc.ClearcaseMenu.InsertItem(4,
''Check In pas and dfm'', ''DoCheckInPasDfm'', ''Check in current files'', ShortCut(Ord(''<''),
[ssCtrl]), 0, 2,
[mfEnabled, mfVisible], dcc.DoClick);
end;
procedure DestroyMenus;
begin
FreeAndNil(dcc);
end;
initialization
CreateMenus;
finalization
DestroyMenus
end.

Me gustaría verificar el archivo cuando empiezo a editarlo y es de solo lectura. No tengo idea de cómo conectar una función al evento de edición IDE de un archivo. Cualquier puntero es bienvenido.

Answer 1

Alternativamente, puede usar ToolsAPI abierto para escuchar los cambios en el editor y extraer el archivo cuando el usuario haya cambiado el contenido del archivo.

Answer 2

Una alternativa para escribir API o similar es simplemente usar vistas de instantáneas y escribir automáticamente archivos usando la funcionalidad "Highjack" ... luego simplemente verifícalos más tarde.