tremovefrmunit.pas

CVS IDE plugin for Borland Delphi this is a good program,i like this kind of practise

(* $Id: TRemoveFrmunit.pas,v 1.4 2003/01/05 20:30:43 turbo Exp $
 *
 * Form for removing a file from CVS
 *
 * Copyright 2001 by Thomas Bleier
 * For license details see LICENSE.txt
 *)

unit TRemoveFrmunit;
{$I BORCVS.inc}
interface
//---------------------------------------------------------------------------
uses
  Classes,
  Controls,
  StdCtrls,
  Forms,
  TCvsBaseFrmunit,
  TRunCvsFrmunit,

  TFilesFrameunit;
//---------------------------------------------------------------------------
type
  TRemoveFrm = class(TCvsBaseFrm)
    PFilesFrame: TFilesFrame;
    PDeleteCheck: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure POkBtnClick(Sender: TObject);
  private
  protected
    procedure GetDirectories(Dirs: TStrings); override;
    procedure ApplyParameters(runcvs: TRunCvsFrm; InDirectory: string = ''); override;
  public
    constructor create(Owner: TComponent); override;
  end;
//---------------------------------------------------------------------------
var
  RemoveFrm: TRemoveFrm;
//---------------------------------------------------------------------------

implementation
uses
  sysutils,
  dialogs;
{$R *.dfm}
//---------------------------------------------------------------------------

constructor TRemoveFrm.create(Owner: TComponent);
begin
  inherited create(owner);
end;
//---------------------------------------------------------------------------

procedure TRemoveFrm.FormShow(Sender: TObject);
begin
            { TODO 1 -oturbo -cBUG : 
Obviosly needs some work !
shows blank filenames }
  ActiveControl := PFilesFrame;
  PFilesFrame.LoadSettings;
  PFilesFrame.SetFilesInCvsButNotProject(false);
end;
//---------------------------------------------------------------------------

procedure TRemoveFrm.POkBtnClick(Sender: TObject);
begin
  if (not PFilesFrame.IsValid(1)) then
  begin
    ShowMessage('You have to select at least one file!');
    ActiveControl := PFilesFrame;
    exit;
  end;
  PFilesFrame.SaveSettings;
  ModalResult := mrOk;
end;
//---------------------------------------------------------------------------

procedure TRemoveFrm.ApplyParameters(runcvs: TRunCvsFrm; InDirectory: string = '');
begin
  runcvs.Command := CVSCMD_REMOVE;
  PFilesFrame.ApplyParameters(runcvs, InDirectory);
  if (PDeleteCheck.Checked) then
    runcvs.CommandOptions.Add('-f');
end;
//---------------------------------------------------------------------------

procedure TRemoveFrm.GetDirectories(Dirs: TStrings);
begin
  PFilesFrame.GetDirectories(Dirs);
end;

end.