Class

TfrmOptionsReportsCustom

Module

fOptionsReportsCustom

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOptionsReportsCustom = class(TfrmBase508Form)
  Panel1: TPanel;
  Bevel3: TBevel;
  btnApply: TButton;
  btnCancel: TButton;
  Panel2: TPanel;
  grdReport: TCaptionStringGrid;
  edtMax: TCaptionEdit;
  odbStop: TORDateBox;
  odbStart: TORDateBox;
  odbTool: TORDateBox;
  btnOK: TButton;
  Panel3: TPanel;
  edtSearch: TCaptionEdit;
  Label1: TLabel;
  function ValFor(ACol, ARow: Integer): string;
  procedure FormCreate(Sender: TObject);
  procedure grdReportMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure grdReportKeyPress(Sender: TObject; var Key: Char);
  procedure grdReportDrawCell(Sender: TObject; ACol, ARow: Integer;
    Rect: TRect; State: TGridDrawState);
  procedure UMDelayEvent(var Message: TMessage); Message UM_DELAYEVENT;
  procedure edtMaxExit(Sender: TObject);
  procedure btnApplyClick(Sender: TObject);
  procedure btnCancelClick(Sender: TObject);
  procedure odbStartExit(Sender: TObject);
  procedure odbStopExit(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure odbStartKeyPress(Sender: TObject; var Key: Char);
  procedure odbStopKeyPress(Sender: TObject; var Key: Char);
  procedure edtMaxKeyPress(Sender: TObject; var Key: Char);
  procedure btnOKClick(Sender: TObject);
  procedure edtSearchChange(Sender: TObject);
  procedure edtSearchKeyPress(Sender: TObject; var Key: Char);
  procedure FormShow(Sender: TObject);
  procedure grdReportKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  { Private declarations }
  //startDate,endDate,
  maxOcurs,signal: integer;
  rptList: TStringList;
  fDropColumn: Integer;
  sDate,eDate: string;
  procedure ShowEditor(ACol, ARow: Integer; AChar: Char);
public
  { Public declarations }
end;

DFM Objects


frmOptionsReportsCustom : TfrmOptionsReportsCustom
 ├Bevel3 : TBevel
 ├Panel1 : TPanel
 │ ├btnApply : TButton
 │ ├btnCancel : TButton
 │ └btnOK : TButton
 ├Panel2 : TPanel
 │ ├grdReport : TCaptionStringGrid
 │ ├edtMax : TCaptionEdit
 │ ├odbStop : TORDateBox
 │ ├odbStart : TORDateBox
 │ ├odbTool : TORDateBox
 │ └Panel3 : TPanel
 │   ├Label1 : TLabel
 │   └edtSearch : TCaptionEdit
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
Bevel3 TBevel Public/Published -
btnApply TButton Public/Published -
btnCancel TButton Public/Published -
btnOK TButton Public/Published -
eDate UnicodeString Private -
edtMax TCaptionEdit Public/Published -
edtSearch TCaptionEdit Public/Published -
fDropColumn Integer Private -
grdReport TCaptionStringGrid Public/Published -
Label1 TLabel Public/Published -
maxOcurs Integer Private
Private declarations 
startDate,endDate,
odbStart TORDateBox Public/Published -
odbStop TORDateBox Public/Published -
odbTool TORDateBox Public/Published -
Panel1 TPanel Public/Published -
Panel2 TPanel Public/Published -
Panel3 TPanel Public/Published -
rptList TStringList Private -
sDate UnicodeString Private -
signal Integer Private
Private declarations 
startDate,endDate,

Methods

Name Declaration Scope Comments
btnApplyClick procedure btnApplyClick(Sender: TObject); Public/Published -
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
edtMaxExit procedure edtMaxExit(Sender: TObject); Public/Published -
edtMaxKeyPress procedure edtMaxKeyPress(Sender: TObject; var Key: Char); Public/Published -
edtSearchChange procedure edtSearchChange(Sender: TObject); Public/Published -
edtSearchKeyPress procedure edtSearchKeyPress(Sender: TObject; var Key: Char); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
grdReportDrawCell procedure grdReportDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); Public/Published -
grdReportKeyDown procedure grdReportKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
grdReportKeyPress procedure grdReportKeyPress(Sender: TObject; var Key: Char); Public/Published -
grdReportMouseDown procedure grdReportMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
odbStartExit procedure odbStartExit(Sender: TObject); Public/Published -
odbStartKeyPress procedure odbStartKeyPress(Sender: TObject; var Key: Char); Public/Published -
odbStopExit procedure odbStopExit(Sender: TObject); Public/Published -
odbStopKeyPress procedure odbStopKeyPress(Sender: TObject; var Key: Char); Public/Published -
ShowEditor procedure ShowEditor(ACol, ARow: Integer; AChar: Char); Private -
UMDelayEvent procedure UMDelayEvent(var Message: TMessage); Message UM_DELAYEVENT; Public/Published After focusing events are completed for a combobox, set the key the user typed
ValFor function ValFor(ACol, ARow: Integer): string; Public/Published -

Referenced By (3)

Module (line) Referrer Type
fOptionsReportsCustom (61) frmOptionsReportsCustom Read
fOptionsReportsCustom (99) - Read
fOptionsReportsCustom (101) - Read