getinfotemplateu.pas

source for card readers

unit GetInfoTemplateU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, TemplateU, StdCtrls, Buttons, ExtCtrls,
  SightingU, Spin, ComCtrls;

type
  TfrmGetInfoTemplate = class(TfrmTemplate)
    gpbGrid: TGroupBox;
    edtGrid: TEdit;
    gpbNumber: TGroupBox;
    sedNumber: TSpinEdit;
    btnCapture: TButton;
    procedure btnCaptureClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
  private
    function GetGrid: string;
    function GetNumber: integer;
  protected
    FInfoValid: boolean;        
    FSightType: string;
    function GetSightType: string;
  public
    property Grid: string read GetGrid;
    property InfoValid: boolean read FInfoValid;
    property Number: integer read GetNumber; 
    property SightType: string read GetSightType;
    function ElicitInfo: boolean; // request & capture data
  end; // end TfrmGetInfo = class(TfrmTemplate)

var
  frmGetInfoTemplate: TfrmGetInfoTemplate;

implementation

{$R *.dfm}

function TfrmGetInfoTemplate.ElicitInfo: boolean;
begin 
  // Initialise
  edtGrid.Text := '';
  sedNumber.Value := 0;

  ShowModal; // Elicit Info
  Result := FInfoValid;
end;  // end function TfrmGetTreeInfo.ElicitInfo

function TfrmGetInfoTemplate.GetSightType: string;
begin
  Result := 'Unknown';
end;  // end function TfrmGetTreeInfo.GetSightType

function TfrmGetInfoTemplate.GetGrid: string;
begin
  Result := edtGrid.Text;
end; // end function TfrmGetTreeInfo.GetGrid

function TfrmGetInfoTemplate.GetNumber: integer;
begin
  Result := sedNumber.Value;
end; // end function TfrmGetTreeInfo.GetNumber

procedure TfrmGetInfoTemplate.btnCaptureClick(Sender: TObject);
begin
  inherited;
  FInfoValid := True;
  Close;
end; // end procedure TfrmGetTreeInfo.btnCaptureClick

procedure TfrmGetInfoTemplate.btnCloseClick(Sender: TObject);
begin
  FInfoValid := (MessageDlg ('Capture input?', mtConfirmation,
                             [mbYes, mbNo], 0) = mrYes);
  inherited;
end; // end procedure TfrmGetTreeInfo.btnCloseClick

end. // end unit GetInfoTemplateU