getbirdinfou.pas

source for card readers

unit GetBirdInfoU;

interface

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

type
  TfrmGetBirdInfo = class(TfrmGetInfoTemplate)
    rgpType: TRadioGroup;
    chkBreeding: TCheckBox;
    dtpDate: TDateTimePicker;
    procedure rgpTypeClick(Sender: TObject);
  protected
    function GetBreeding: boolean;
    function GetSightDate: string;
    function GetSightType: string; // override
  public
    property Breeding: boolean read GetBreeding;    
    property SightDate: string read GetSightDate; 
    property SightType: string read GetSightType; // override
    function ElicitInfo: boolean; // override: request & capture data
  end;  // end TfrmGetBirdInfo = class(TfrmGetInfoTemplate)

var
  frmGetBirdInfo: TfrmGetBirdInfo;

implementation

{$R *.dfm}

function TfrmGetBirdInfo.ElicitInfo: boolean;
begin  
  // Initialise
  edtGrid.Text := '';
  sedNumber.Value := 0;
  chkBreeding.Checked := False;
  rgpType.ItemIndex := -1;

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

function TfrmGetBirdInfo.GetBreeding: boolean;
begin
  Result := chkBreeding.Checked;
end;  // end TfrmGetBirdInfo.GetBreeding

function TfrmGetBirdInfo.GetSightDate: string;
begin
  Result := DateToStr (dtpDate.DateTime);
end;  // end function TfrmGetBirdInfo.GetSightDate

procedure TfrmGetBirdInfo.rgpTypeClick(Sender: TObject);
begin
  //inherited;
  gpbGrid.Enabled := true;
  gpbNumber.Enabled := true;
end;  // end procedure TfrmGetBirdInfo.rgpTypeClick

function TfrmGetBirdInfo.GetSightType: string; // generalise up & override? No
begin
  Result := rgpType.Items[rgpType.ItemIndex];
end; // end function TfrmGetBirdInfo.GetSightType

end.  // end GetBirdInfoU