Class

TfrmOptionsTeams

Module

fOptionsTeams

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOptionsTeams = class(TfrmBase508Form)
  pnlBottom: TPanel;
  btnClose: TButton;
  lstPatients: TORListBox;
  lstTeams: TORListBox;
  lblTeams: TLabel;
  lblPatients: TLabel;
  lstUsers: TORListBox;
  lblTeamMembers: TLabel;
  btnRemove: TButton;
  chkPersonal: TCheckBox;
  chkRestrict: TCheckBox;
  bvlBottom: TBevel;
  lblInfo: TMemo;
  lblSubscribe: TLabel;
  cboSubscribe: TORComboBox;
  mnuPopPatient: TPopupMenu;
  mnuPatientID: TMenuItem;
  procedure FormCreate(Sender: TObject);
  procedure chkPersonalClick(Sender: TObject);
  procedure lstTeamsClick(Sender: TObject);
  procedure chkRestrictClick(Sender: TObject);
  procedure cboSubscribeClick(Sender: TObject);
  procedure btnRemoveClick(Sender: TObject);
  procedure mnuPatientIDClick(Sender: TObject);
  procedure lstPatientsMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure cboSubscribeKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cboSubscribeMouseClick(Sender: TObject);
private
  FKeyBoarding: boolean;
  { Private declarations }
  procedure FillATeams;
  procedure FillList(alist: TORListBox; members: TStrings);
  procedure MergeList(alist: TORListBox; members: TStrings);
  function ItemNotAMember(alist: TStrings; listnum: string): boolean;
  function MemberNotOnList(alist: TStrings; listnum: string): boolean;
public
  { Public declarations }
end;

DFM Objects


frmOptionsTeams : TfrmOptionsTeams
 ├lblTeams : TLabel
 ├lblPatients : TLabel
 ├lblTeamMembers : TLabel
 ├lblSubscribe : TLabel
 ├lblInfo : TMemo
 ├pnlBottom : TPanel
 │ ├bvlBottom : TBevel
 │ └btnClose : TButton
 ├lstPatients : TORListBox
 ├lstTeams : TORListBox
 ├lstUsers : TORListBox
 ├btnRemove : TButton
 ├chkPersonal : TCheckBox
 ├chkRestrict : TCheckBox
 ├cboSubscribe : TORComboBox
 ├amgrMain : TVA508AccessibilityManager
 └mnuPopPatient : TPopupMenu
   └mnuPatientID : TMenuItem

Class Hierarchy


Class Fields

Name Type Scope Comments
btnClose TButton Public/Published -
btnRemove TButton Public/Published -
bvlBottom TBevel Public/Published -
cboSubscribe TORComboBox Public/Published -
chkPersonal TCheckBox Public/Published -
chkRestrict TCheckBox Public/Published -
FKeyBoarding Boolean Private -
lblInfo TMemo Public/Published -
lblPatients TLabel Public/Published -
lblSubscribe TLabel Public/Published -
lblTeamMembers TLabel Public/Published -
lblTeams TLabel Public/Published -
lstPatients TORListBox Public/Published -
lstTeams TORListBox Public/Published -
lstUsers TORListBox Public/Published -
mnuPatientID TMenuItem Public/Published -
mnuPopPatient TPopupMenu Public/Published -
pnlBottom TPanel Public/Published -

Methods

Name Declaration Scope Comments
btnRemoveClick procedure btnRemoveClick(Sender: TObject); Public/Published -
cboSubscribeClick procedure cboSubscribeClick(Sender: TObject); Public/Published -
cboSubscribeKeyDown procedure cboSubscribeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboSubscribeMouseClick procedure cboSubscribeMouseClick(Sender: TObject); Public/Published -
chkPersonalClick procedure chkPersonalClick(Sender: TObject); Public/Published -
chkRestrictClick procedure chkRestrictClick(Sender: TObject); Public/Published -
FillATeams procedure FillATeams; Private Private declarations
FillList procedure FillList(alist: TORListBox; members: TStrings); Private -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
ItemNotAMember function ItemNotAMember(alist: TStrings; listnum: string): boolean; Private -
lstPatientsMouseDown procedure lstPatientsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
lstTeamsClick procedure lstTeamsClick(Sender: TObject); Public/Published -
MemberNotOnList function MemberNotOnList(alist: TStrings; listnum: string): boolean; Private -
MergeList procedure MergeList(alist: TORListBox; members: TStrings); Private -
mnuPatientIDClick procedure mnuPatientIDClick(Sender: TObject); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fOptionsTeams (54) frmOptionsTeams Read
fOptionsTeams (67) - Read
fOptionsTeams (69) - Read