Class

TfrmOptionsReportsDefault

Module

fOptionsReportsDefault

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOptionsReportsDefault = class(TfrmBase508Form)
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  edtDefaultMax: TCaptionEdit;
  Bevel1: TBevel;
  Bevel2: TBevel;
  Panel1: TPanel;
  btnOK: TButton;
  btnReset: TButton;
  lblDefaultText: TMemo;
  btnCancel: TButton;
  odcDfStart: TORDateBox;
  odcDfStop: TORDateBox;
  procedure btnOKClick(Sender: TObject);
  procedure btnCancelClick(Sender: TObject);
  procedure btnResetClick(Sender: TObject);
  procedure edtDefaultMaxExit(Sender: TObject);
  procedure edtDefaultStartKeyPress(Sender: TObject; var Key: Char);
  procedure edtDefaultEndKeyPress(Sender: TObject; var Key: Char);
  procedure edtDefaultMaxKeyPress(Sender: TObject; var Key: Char);
  procedure FormCreate(Sender: TObject);
  procedure odcDfStartExit(Sender: TObject);
  procedure odcDfStopExit(Sender: TObject);
  procedure odcDfStartKeyPress(Sender: TObject; var Key: Char);
  procedure odcDfStopKeyPress(Sender: TObject; var Key: Char);
  procedure odcDfStartClick(Sender: TObject);
  procedure odcDfStopClick(Sender: TObject);
  procedure edtDefaultMaxClick(Sender: TObject);
private
  { Private declarations }
  startDate, endDate, maxOcurs: integer;
  sDate,eDate: String;
public
  { Public declarations }
  procedure fillLabelText;

end;

DFM Objects


frmOptionsReportsDefault : TfrmOptionsReportsDefault
 ├Label2 : TLabel
 ├Label3 : TLabel
 ├Label4 : TLabel
 ├Bevel1 : TBevel
 ├Bevel2 : TBevel
 ├lblDefaultText : TMemo
 ├edtDefaultMax : TCaptionEdit
 ├Panel1 : TPanel
 │ ├btnOK : TButton
 │ ├btnReset : TButton
 │ └btnCancel : TButton
 ├odcDfStart : TORDateBox
 ├odcDfStop : TORDateBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
Bevel1 TBevel Public/Published -
Bevel2 TBevel Public/Published -
btnCancel TButton Public/Published -
btnOK TButton Public/Published -
btnReset TButton Public/Published -
eDate UnicodeString Private -
edtDefaultMax TCaptionEdit Public/Published -
endDate Integer Private Private declarations
Label2 TLabel Public/Published -
Label3 TLabel Public/Published -
Label4 TLabel Public/Published -
lblDefaultText TMemo Public/Published -
maxOcurs Integer Private Private declarations
odcDfStart TORDateBox Public/Published -
odcDfStop TORDateBox Public/Published -
Panel1 TPanel Public/Published -
sDate UnicodeString Private -
startDate Integer Private Private declarations

Methods

Name Declaration Scope Comments
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
btnResetClick procedure btnResetClick(Sender: TObject); Public/Published -
edtDefaultEndKeyPress procedure edtDefaultEndKeyPress(Sender: TObject; var Key: Char); Public/Published -
edtDefaultMaxClick procedure edtDefaultMaxClick(Sender: TObject); Public/Published -
edtDefaultMaxExit procedure edtDefaultMaxExit(Sender: TObject); Public/Published -
edtDefaultMaxKeyPress procedure edtDefaultMaxKeyPress(Sender: TObject; var Key: Char); Public/Published -
edtDefaultStartKeyPress procedure edtDefaultStartKeyPress(Sender: TObject; var Key: Char); Public/Published -
fillLabelText procedure fillLabelText; Public Public declarations
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
odcDfStartClick procedure odcDfStartClick(Sender: TObject); Public/Published -
odcDfStartExit procedure odcDfStartExit(Sender: TObject); Public/Published -
odcDfStartKeyPress procedure odcDfStartKeyPress(Sender: TObject; var Key: Char); Public/Published -
odcDfStopClick procedure odcDfStopClick(Sender: TObject); Public/Published -
odcDfStopExit procedure odcDfStopExit(Sender: TObject); Public/Published -
odcDfStopKeyPress procedure odcDfStopKeyPress(Sender: TObject; var Key: Char); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fOptionsReportsDefault (51) frmOptionsReportsDefault Read
fOptionsReportsDefault (62) - Read
fOptionsReportsDefault (64) - Read