tlogfrmunit.pas

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

(* $Id: TLogFrmunit.pas,v 1.4 2002/12/27 16:22:43 turbo Exp $
 *
 * Form for showing the revision history of a file (cvs log)
 *
 * Copyright 2001 by Thomas Bleier
 * For license details see LICENSE.txt
 *)

unit TLogFrmunit;
{$I BORCVS.inc}
interface
//---------------------------------------------------------------------------
uses
  Classes,
  Controls,
  StdCtrls,
  Forms,
  TRunCvsFrmunit,
  TFileSelectorFrmunit;
//---------------------------------------------------------------------------
type
  TLogFrm = class(TFileSelectorFrm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    PDefaultBranch: TCheckBox;
    PNoTags: TCheckBox;
    PDate: TComboBox;
    PRevision: TComboBox;
    PLogin: TComboBox;

    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
  LogFrm: TLogFrm;
//---------------------------------------------------------------------------

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

//---------------------------------------------------------------------------

constructor TLogFrm.create(Owner: TComponent);
begin
  inherited create(owner);
  OnlyFileNameasParameter := true;
end;
//---------------------------------------------------------------------------

procedure TLogFrm.FormShow(Sender: TObject);
begin
  inherited FormShow(Sender);
//  TFileSelectorFrm.FormShow(Sender);
  if (PFiles.Enabled) then
    ActiveControl := PFiles
  else
    ActiveControl := PDefaultBranch;
  // load settings
  try
    BEGIN_LOAD_SETTINGS('Log');
    PDefaultBranch.Checked := LOAD_BOOL_SETTING('DefaultBranch', false);
    PNoTags.Checked := LOAD_BOOL_SETTING('NoTags', false);
    LOAD_COMBOLIST_SETTING('Date', PDate, '');
    LOAD_COMBOLIST_SETTING('Revision', PRevision, '');
    LOAD_COMBOLIST_SETTING('Login', PLogin, '');
    END_LOAD_SETTINGS;
  except
  end;

end;
//---------------------------------------------------------------------------

procedure TLogFrm.POkBtnClick(Sender: TObject);
begin
  handleok;
  // check input (valid date range, revision range, login list)
  // handle MRU lists

  ADD_COMBO_MRU_ENTRY_MAX(PDate, DEFAULT_MRU_ENTRIES);
  ADD_COMBO_MRU_ENTRY_MAX(PRevision, DEFAULT_MRU_ENTRIES);
  ADD_COMBO_MRU_ENTRY_MAX(PLogin, DEFAULT_MRU_ENTRIES);
  // save settings
  BEGIN_SAVE_SETTINGS('Log');
  SAVE_BOOL_SETTING('DefaultBranch', PDefaultBranch.Checked);
  SAVE_BOOL_SETTING('NoTags', PNoTags.Checked);
  SAVE_COMBOLIST_SETTING('Date', PDate);
  SAVE_COMBOLIST_SETTING('Revision', PRevision);
  SAVE_COMBOLIST_SETTING('Login', PLogin);
  END_SAVE_SETTINGS;
  ModalResult := mrOk;

end;
//---------------------------------------------------------------------------

procedure TLogFrm.ApplyParameters(runcvs: TRunCvsFrm; InDirectory: string = '');
begin
  inherited ApplyParameters(runcvs);
  runcvs.Command := CVSCMD_LOG;
  if (PDefaultBranch.Checked) then
    runcvs.CommandOptions.Add('-b');
  if (PNoTags.Checked) then
    runcvs.CommandOptions.Add('-N');
  if (Trim(PDate.Text) <> '') then
    runcvs.CommandOptions.Add('-d ' + GetOptQuotedString(PDate.Text));
  if (Trim(PRevision.Text) <> '') then
    runcvs.CommandOptions.Add(GetOptQuotedString('-r' + PRevision.Text));
  if (Trim(PLogin.Text) <> '') then
    runcvs.CommandOptions.Add(GetOptQuotedString('-w' + PLogin.Text));
end;
//---------------------------------------------------------------------------

procedure TLogFrm.GetDirectories(Dirs: TStrings);
begin

end;
//---------------------------------------------------------------------------

end.