Class

TfrmReportsAdhocComponent1

Module

fReportsAdhocComponent1

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmReportsAdhocComponent1 = class(TfrmAutoSz)
  ORComboBox1: TORComboBox;
  Splitter1: TSplitter;
  Panel2: TPanel;
  Panel3: TPanel;
  btnCancelMain: TButton;
  btnOKMain: TButton;
  Panel1: TPanel;
  ORListBox2: TORListBox;
  Panel6: TPanel;
  btnRemoveComponent: TButton;
  btnRemoveAllComponents: TButton;
  Splitter4: TSplitter;
  Panel7: TPanel;
  lblHeaderName: TLabel;
  edtHeaderName: TCaptionEdit;
  lblOccuranceLimit: TLabel;
  edtOccuranceLimit: TCaptionEdit;
  lblTimeLimit: TLabel;
  cboTimeLimit: TCaptionComboBox;
  gpbDisplay: TGroupBox;
  ckbHospitalLocation: TCheckBox;
  ckbProviderNarrative: TCheckBox;
  cboICD: TCaptionComboBox;
  lblICD: TLabel;
  btnAddComponent: TButton;
  pnl5Button: TKeyClickPanel;
  SpeedButton5: TSpeedButton;
  pnl6Button: TKeyClickPanel;
  SpeedButton6: TSpeedButton;
  Timer1: TTimer;
  ORListBox1: TORListBox;
  lblItems: TLabel;
  btnEditSubitems: TButton;
  GroupBox1: TGroupBox;
  rbtnHeader: TRadioButton;
  rbtnAbbrev: TRadioButton;
  rbtnName: TRadioButton;
  procedure FormCreate(Sender: TObject);
  procedure btnCancelMainClick(Sender: TObject);
  procedure btnOKMainClick(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure HideEdits;
  procedure ORListBox2Click(Sender: TObject);
  procedure btnRemoveComponentClick(Sender: TObject);
  procedure btnRemoveAllComponentsClick(Sender: TObject);
  procedure Splitter4CanResize(Sender: TObject; var NewSize: Integer;
    var Accept: Boolean);
  procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer;
    var Accept: Boolean);
  procedure btnAddComponentClick(Sender: TObject);
  procedure SpeedButton5Click(Sender: TObject);
  procedure SpeedButton6Click(Sender: TObject);
  procedure ORListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
    State: TDragState; var Accept: Boolean);
  procedure ORListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
  procedure ORListBox2EndDrag(Sender, Target: TObject; X, Y: Integer);
  procedure Timer1Timer(Sender: TObject);
  procedure btnEditSubitemsClick(Sender: TObject);
  procedure edtHeaderNameExit(Sender: TObject);
  procedure edtOccuranceLimitExit(Sender: TObject);
  procedure cboTimeLimitExit(Sender: TObject);
  procedure ckbHospitalLocationExit(Sender: TObject);
  procedure ckbProviderNarrativeExit(Sender: TObject);
  procedure cboICDExit(Sender: TObject);
  procedure LoadComponents(Dest: TStrings);
  procedure FormShow(Sender: TObject);
  procedure rbtnAbbrevClick(Sender: TObject);
  procedure rbtnNameClick(Sender: TObject);
  procedure rbtnHeaderClick(Sender: TObject);
  procedure pnl5ButtonEnter(Sender: TObject);
  procedure pnl5ButtonExit(Sender: TObject);
  procedure ORComboBox1KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  { Private declarations }
  GoingUp: Boolean;
  OKPressed: Boolean;
public
  { Public declarations }
end;

DFM Objects


frmReportsAdhocComponent1 : TfrmReportsAdhocComponent1
 ├Splitter1 : TSplitter
 ├ORComboBox1 : TORComboBox
 ├Panel2 : TPanel
 │ ├btnCancelMain : TButton
 │ ├btnOKMain : TButton
 │ └GroupBox1 : TGroupBox
 │   ├rbtnHeader : TRadioButton
 │   ├rbtnAbbrev : TRadioButton
 │   └rbtnName : TRadioButton
 ├Panel3 : TPanel
 │ ├Splitter4 : TSplitter
 │ ├Panel1 : TPanel
 │ ├ORListBox2 : TORListBox
 │ ├Panel6 : TPanel
 │ │ ├btnRemoveComponent : TButton
 │ │ ├btnRemoveAllComponents : TButton
 │ │ └btnAddComponent : TButton
 │ └Panel7 : TPanel
 │   ├lblHeaderName : TLabel
 │   ├lblOccuranceLimit : TLabel
 │   ├lblTimeLimit : TLabel
 │   ├lblItems : TLabel
 │   ├pnl5Button : TKeyClickPanel
 │   │ └SpeedButton5 : TSpeedButton
 │   ├pnl6Button : TKeyClickPanel
 │   │ └SpeedButton6 : TSpeedButton
 │   ├edtHeaderName : TCaptionEdit
 │   ├edtOccuranceLimit : TCaptionEdit
 │   ├cboTimeLimit : TCaptionComboBox
 │   ├gpbDisplay : TGroupBox
 │   │ ├lblICD : TLabel
 │   │ ├ckbHospitalLocation : TCheckBox
 │   │ ├ckbProviderNarrative : TCheckBox
 │   │ └cboICD : TCaptionComboBox
 │   ├ORListBox1 : TORListBox
 │   └btnEditSubitems : TButton
 ├amgrMain : TVA508AccessibilityManager
 └Timer1 : TTimer

Class Hierarchy


Class Fields

Name Type Scope Comments
btnAddComponent TButton Public/Published -
btnCancelMain TButton Public/Published -
btnEditSubitems TButton Public/Published -
btnOKMain TButton Public/Published -
btnRemoveAllComponents TButton Public/Published -
btnRemoveComponent TButton Public/Published -
cboICD Simple (unknown) Public/Published -
cboTimeLimit Simple (unknown) Public/Published -
ckbHospitalLocation TCheckBox Public/Published -
ckbProviderNarrative TCheckBox Public/Published -
edtHeaderName TCaptionEdit Public/Published -
edtOccuranceLimit TCaptionEdit Public/Published -
GoingUp Boolean Private Private declarations
gpbDisplay TGroupBox Public/Published -
GroupBox1 TGroupBox Public/Published -
lblHeaderName TLabel Public/Published -
lblICD TLabel Public/Published -
lblItems TLabel Public/Published -
lblOccuranceLimit TLabel Public/Published -
lblTimeLimit TLabel Public/Published -
OKPressed Boolean Private -
ORComboBox1 TORComboBox Public/Published -
ORListBox1 TORListBox Public/Published -
ORListBox2 TORListBox Public/Published -
Panel1 TPanel Public/Published -
Panel2 TPanel Public/Published -
Panel3 TPanel Public/Published -
Panel6 TPanel Public/Published -
Panel7 TPanel Public/Published -
pnl5Button Simple (unknown) Public/Published -
pnl6Button Simple (unknown) Public/Published -
rbtnAbbrev TRadioButton Public/Published -
rbtnHeader TRadioButton Public/Published -
rbtnName TRadioButton Public/Published -
SpeedButton5 Simple (unknown) Public/Published -
SpeedButton6 Simple (unknown) Public/Published -
Splitter1 TSplitter Public/Published -
Splitter4 TSplitter Public/Published -
Timer1 TTimer Public/Published -

Methods

Name Declaration Scope Comments
btnAddComponentClick procedure btnAddComponentClick(Sender: TObject); Public/Published -
btnCancelMainClick procedure btnCancelMainClick(Sender: TObject); Public/Published -
btnEditSubitemsClick procedure btnEditSubitemsClick(Sender: TObject); Public/Published -
btnOKMainClick procedure btnOKMainClick(Sender: TObject); Public/Published -
btnRemoveAllComponentsClick procedure btnRemoveAllComponentsClick(Sender: TObject); Public/Published -
btnRemoveComponentClick procedure btnRemoveComponentClick(Sender: TObject); Public/Published -
cboICDExit procedure cboICDExit(Sender: TObject); Public/Published -
cboTimeLimitExit procedure cboTimeLimitExit(Sender: TObject); Public/Published -
ckbHospitalLocationExit procedure ckbHospitalLocationExit(Sender: TObject); Public/Published -
ckbProviderNarrativeExit procedure ckbProviderNarrativeExit(Sender: TObject); Public/Published -
edtHeaderNameExit procedure edtHeaderNameExit(Sender: TObject); Public/Published -
edtOccuranceLimitExit procedure edtOccuranceLimitExit(Sender: TObject); 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 -
HideEdits procedure HideEdits; Public/Published -
LoadComponents procedure LoadComponents(Dest: TStrings); Public/Published -
ORComboBox1KeyDown procedure ORComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
ORListBox2Click procedure ORListBox2Click(Sender: TObject); Public/Published -
ORListBox2DragDrop procedure ORListBox2DragDrop(Sender, Source: TObject; X, Y: Integer); Public/Published -
ORListBox2DragOver procedure ORListBox2DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); Public/Published -
ORListBox2EndDrag procedure ORListBox2EndDrag(Sender, Target: TObject; X, Y: Integer); Public/Published -
pnl5ButtonEnter procedure pnl5ButtonEnter(Sender: TObject); Public/Published -
pnl5ButtonExit procedure pnl5ButtonExit(Sender: TObject); Public/Published -
rbtnAbbrevClick procedure rbtnAbbrevClick(Sender: TObject); Public/Published -
rbtnHeaderClick procedure rbtnHeaderClick(Sender: TObject); Public/Published -
rbtnNameClick procedure rbtnNameClick(Sender: TObject); Public/Published -
SpeedButton5Click procedure SpeedButton5Click(Sender: TObject); Public/Published -
SpeedButton6Click procedure SpeedButton6Click(Sender: TObject); Public/Published -
Splitter1CanResize procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
Splitter4CanResize procedure Splitter4CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
Timer1Timer procedure Timer1Timer(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fReportsAdhocComponent1 (94) frmReportsAdhocComponent1 Read
fReportsAdhocComponent1 (132) - Read