Class

TfrmLabTestGroups

Module

fLabTestGroups

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmLabTestGroups = class(TfrmBase508Form)
  pnlLabTestGroups: TORAutoPanel;
  cmdOK: TButton;
  cmdCancel: TButton;
  cmdClear: TButton;
  cmdRemove: TButton;
  lstList: TORListBox;
  cboTests: TORComboBox;
  cmdUp: TSpeedButton;
  pnlUpButton: TKeyClickPanel;
  cmdDown: TSpeedButton;
  pnlDownButton: TKeyClickPanel;
  bvlTestGroups: TBevel;
  cboUsers: TORComboBox;
  lstTestGroups: TORListBox;
  cmdReplace: TButton;
  lblTests: TLabel;
  lblList: TLabel;
  cboSpecimen: TORComboBox;
  lblSpecimen: TLabel;
  lblTestGroups: TLabel;
  lblUsers: TLabel;
  lblOrder: TLabel;
  cmdDelete: TButton;
  cmdAdd: TButton;
  cmdAddTest: TButton;
  lblDefine: TVA508StaticText;
  lblTestGroup: TLabel;
  procedure FormCreate(Sender: TObject);
  procedure cboTestsNeedData(Sender: TObject; const StartFrom: string;
    Direction, InsertAt: Integer);
  procedure cmdOKClick(Sender: TObject);
  procedure cmdClearClick(Sender: TObject);
  procedure cmdRemoveClick(Sender: TObject);
  procedure cmdUpClick(Sender: TObject);
  procedure cmdDownClick(Sender: TObject);
  procedure lstListClick(Sender: TObject);
  procedure cboUsersNeedData(Sender: TObject; const StartFrom: string;
    Direction, InsertAt: Integer);
  procedure cboSpecimenNeedData(Sender: TObject; const StartFrom: string;
    Direction, InsertAt: Integer);
  procedure cboUsersClick(Sender: TObject);
  procedure cmdReplaceClick(Sender: TObject);
  procedure cmdAddClick(Sender: TObject);
  procedure cmdDeleteClick(Sender: TObject);
  procedure cboTestsChange(Sender: TObject);
  procedure cboTestsEnter(Sender: TObject);
  procedure cboTestsExit(Sender: TObject);
  procedure cmdAddTestClick(Sender: TObject);
  procedure pnlUpButtonEnter(Sender: TObject);
  procedure pnlUpButtonExit(Sender: TObject);
  procedure pnlDownButtonEnter(Sender: TObject);
  procedure pnlDownButtonExit(Sender: TObject);
  procedure pnlUpButtonResize(Sender: TObject);
  procedure pnlDownButtonResize(Sender: TObject);
  procedure lstTestGroupsChange(Sender: TObject);
private
  { Private declarations }
  procedure AddTests(tests: TStrings);
  procedure TestGroupEnable;
public
  { Public declarations }
end;

DFM Objects


frmLabTestGroups : TfrmLabTestGroups
 ├pnlLabTestGroups : TORAutoPanel
 │ ├bvlTestGroups : TBevel
 │ ├lblTests : TLabel
 │ ├lblList : TLabel
 │ ├lblSpecimen : TLabel
 │ ├lblTestGroups : TLabel
 │ ├lblUsers : TLabel
 │ ├lblOrder : TLabel
 │ ├lblTestGroup : TLabel
 │ ├lblDefine : TVA508StaticText
 │ ├pnlUpButton : TKeyClickPanel
 │ │ └cmdUp : TSpeedButton
 │ ├pnlDownButton : TKeyClickPanel
 │ │ └cmdDown : TSpeedButton
 │ ├cmdOK : TButton
 │ ├cmdCancel : TButton
 │ ├cmdClear : TButton
 │ ├cmdRemove : TButton
 │ ├lstList : TORListBox
 │ ├cboTests : TORComboBox
 │ ├cboUsers : TORComboBox
 │ ├lstTestGroups : TORListBox
 │ ├cmdReplace : TButton
 │ ├cboSpecimen : TORComboBox
 │ ├cmdDelete : TButton
 │ ├cmdAdd : TButton
 │ └cmdAddTest : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
bvlTestGroups TBevel Public/Published -
cboSpecimen TORComboBox Public/Published -
cboTests TORComboBox Public/Published -
cboUsers TORComboBox Public/Published -
cmdAdd TButton Public/Published -
cmdAddTest TButton Public/Published -
cmdCancel TButton Public/Published -
cmdClear TButton Public/Published -
cmdDelete TButton Public/Published -
cmdDown TSpeedButton Public/Published -
cmdOK TButton Public/Published -
cmdRemove TButton Public/Published -
cmdReplace TButton Public/Published -
cmdUp TSpeedButton Public/Published -
lblDefine TVA508StaticText Public/Published -
lblList TLabel Public/Published -
lblOrder TLabel Public/Published -
lblSpecimen TLabel Public/Published -
lblTestGroup TLabel Public/Published -
lblTestGroups TLabel Public/Published -
lblTests TLabel Public/Published -
lblUsers TLabel Public/Published -
lstList TORListBox Public/Published -
lstTestGroups TORListBox Public/Published -
pnlDownButton TKeyClickPanel Public/Published -
pnlLabTestGroups TORAutoPanel Public/Published -
pnlUpButton TKeyClickPanel Public/Published -

Methods

Name Declaration Scope Comments
AddTests procedure AddTests(tests: TStrings); Private Private declarations
cboSpecimenNeedData procedure cboSpecimenNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published -
cboTestsChange procedure cboTestsChange(Sender: TObject); Public/Published -
cboTestsEnter procedure cboTestsEnter(Sender: TObject); Public/Published -
cboTestsExit procedure cboTestsExit(Sender: TObject); Public/Published -
cboTestsNeedData procedure cboTestsNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published -
cboUsersClick procedure cboUsersClick(Sender: TObject); Public/Published -
cboUsersNeedData procedure cboUsersNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published -
cmdAddClick procedure cmdAddClick(Sender: TObject); Public/Published -
cmdAddTestClick procedure cmdAddTestClick(Sender: TObject); Public/Published -
cmdClearClick procedure cmdClearClick(Sender: TObject); Public/Published
Var
i: integer;
cmdDeleteClick procedure cmdDeleteClick(Sender: TObject); Public/Published -
cmdDownClick procedure cmdDownClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
cmdRemoveClick procedure cmdRemoveClick(Sender: TObject); Public/Published -
cmdReplaceClick procedure cmdReplaceClick(Sender: TObject); Public/Published -
cmdUpClick procedure cmdUpClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
lstListClick procedure lstListClick(Sender: TObject); Public/Published -
lstTestGroupsChange procedure lstTestGroupsChange(Sender: TObject); Public/Published -
pnlDownButtonEnter procedure pnlDownButtonEnter(Sender: TObject); Public/Published -
pnlDownButtonExit procedure pnlDownButtonExit(Sender: TObject); Public/Published -
pnlDownButtonResize procedure pnlDownButtonResize(Sender: TObject); Public/Published -
pnlUpButtonEnter procedure pnlUpButtonEnter(Sender: TObject); Public/Published -
pnlUpButtonExit procedure pnlUpButtonExit(Sender: TObject); Public/Published -
pnlUpButtonResize procedure pnlUpButtonResize(Sender: TObject); Public/Published -
TestGroupEnable procedure TestGroupEnable; Private -

Referenced By (2)

Module (line) Referrer Type
fLabTestGroups (84) - Read
fLabTestGroups (87) - Read