Class

TfrmConsultsByStatus

Module

fConsultBSt

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmConsultsByStatus = class(TfrmBase508Form)
  pnlBase: TORAutoPanel;
  lblStatus: TLabel;
  radSort: TRadioGroup;
  lstStatus: TORListBox;
  cmdOK: TButton;
  cmdCancel: TButton;
  procedure cmdCancelClick(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
private
  FChanged: Boolean;
  FStatus: string;
  FStatusName: string;
  FAscending: Boolean;
end;

DFM Objects


frmConsultsByStatus : TfrmConsultsByStatus
 ├pnlBase : TORAutoPanel
 │ ├lblStatus : TLabel
 │ ├radSort : TRadioGroup
 │ ├lstStatus : TORListBox
 │ ├cmdOK : TButton
 │ └cmdCancel : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
FAscending Boolean Private -
FChanged Boolean Private -
FStatus UnicodeString Private -
FStatusName UnicodeString Private -
lblStatus TLabel Public/Published -
lstStatus TORListBox Public/Published -
pnlBase TORAutoPanel Public/Published -
radSort TRadioGroup Public/Published -

Methods

Name Declaration Scope Comments
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fConsultBSt (49) - Read
fConsultBSt (53) - Read