tstatusfrmunit.pas

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

(* $Id: TStatusFrmunit.pas,v 1.3 2002/12/28 22:53:48 turbo Exp $
 *
 * Form for showing the CVS status of the project files
 *
 * Copyright 2001 by Thomas Bleier
 * For license details see LICENSE.txt
 *)

unit TStatusFrmunit;
{$I BORCVS.inc}
interface
//---------------------------------------------------------------------------
uses
  Classes,
  Controls,
  StdCtrls,
  Forms,
  ComCtrls,
  TFilesFrameunit,
  Menus;
//---------------------------------------------------------------------------
//class TProjectStatus;
type
  TStatusFrm = class(TForm)
    PFilesFrame: TFilesFrame;
    procedure FormShow(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure PFilesFramePUpdateBtnClick(Sender: TObject);
    procedure PFilesFramePCommitBtnClick(Sender: TObject);
  private // Anwender-Deklarationen
    FWhichFiles: TWhichFilesMode;
  protected
  public // Anwender-Deklarationen
    constructor create(Owner: TComponent); override;
    destructor destroy; override;
    procedure Exec;
  end;
//---------------------------------------------------------------------------
var
  StatusFrm: TStatusFrm;
//---------------------------------------------------------------------------

implementation
uses
  TDiffFrmunit,
  TLogFrmunit;
//---------------------------------------------------------------------------
{$R *.dfm}
//---------------------------------------------------------------------------

constructor TStatusFrm.create(Owner: TComponent);
begin
  inherited create(owner);
  FWhichFiles := wfmProject;
  //  Width := Screen.Width * 5 div 6;
//  Height := Screen.Height * 5 div 6;
//  Left := Screen.Width div 2 - Width div 2;
//  Top := Screen.Height div 2 - Height div 2;
end;
//---------------------------------------------------------------------------

destructor TStatusFrm.destroy;
begin
  inherited Destroy;
end;
//---------------------------------------------------------------------------

procedure TStatusFrm.Exec;
begin
  ShowModal;
end;
//---------------------------------------------------------------------------

procedure TStatusFrm.FormShow(Sender: TObject);
begin
  ActiveControl := PFilesFrame;
  PFilesFrame.LoadSettings;
  case (FWhichFiles) of
    wfmProject:
      begin
        PFilesFrame.SetFilesFromProject;
      end;
    wfmProjectGroup:
      begin
        PFilesFrame.SetFilesFromProjectGroup;
      end;
    else
      assert(false);
  end;
end;
//---------------------------------------------------------------------------

procedure TStatusFrm.FormHide(Sender: TObject);
begin
  PFilesFrame.SaveSettings;
end;
//---------------------------------------------------------------------------

procedure TStatusFrm.PFilesFramePUpdateBtnClick(Sender: TObject);
begin
  PFilesFrame.PActCmdUpdateExecute(Sender);
end;

procedure TStatusFrm.PFilesFramePCommitBtnClick(Sender: TObject);
begin
  PFilesFrame.PActCmdCommitExecute(Sender);
end;

end.