Class

TfrmOptionsLists

Module

fOptionsLists

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOptionsLists = class(TfrmBase508Form)
  pnlBottom: TPanel;
  btnOK: TButton;
  btnCancel: TButton;
  lblAddby: TLabel;
  lblPatientsAdd: TLabel;
  lblPersonalPatientList: TLabel;
  lblPersonalLists: TLabel;
  lstAddBy: TORComboBox;
  btnPersonalPatientRA: TButton;
  btnPersonalPatientR: TButton;
  lstListPats: TORListBox;
  lstPersonalPatients: TORListBox;
  btnListAddAll: TButton;
  btnNewList: TButton;
  btnDeleteList: TButton;
  lstPersonalLists: TORListBox;
  radAddByType: TRadioGroup;
  btnListSaveChanges: TButton;
  btnListAdd: TButton;
  lblInfo: TMemo;
  bvlBottom: TBevel;
  mnuPopPatient: TPopupMenu;
  mnuPatientID: TMenuItem;
  grpVisibility: TRadioGroup;
  procedure FormCreate(Sender: TObject);
  procedure btnNewListClick(Sender: TObject);
  procedure radAddByTypeClick(Sender: TObject);
  procedure lstPersonalListsChange(Sender: TObject);
  procedure lstAddByClick(Sender: TObject);
  procedure btnDeleteListClick(Sender: TObject);
  procedure btnListSaveChangesClick(Sender: TObject);
  procedure btnPersonalPatientRAClick(Sender: TObject);
  procedure btnListAddAllClick(Sender: TObject);
  procedure btnPersonalPatientRClick(Sender: TObject);
  procedure lstPersonalPatientsChange(Sender: TObject);
  procedure btnListAddClick(Sender: TObject);
  procedure lstListPatsChange(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure lstAddByNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure btnOKClick(Sender: TObject);
  procedure mnuPatientIDClick(Sender: TObject);
  procedure lstListPatsMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure lstPersonalPatientsMouseDown(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  procedure lstAddByKeyPress(Sender: TObject; var Key: Char);
  procedure grpVisibilityClick(Sender: TObject);
  procedure lstAddByChange(Sender: TObject);
private
  { Private declarations }
  FLastList: integer;
  FChanging: boolean;
  procedure AddIfUnique(entry: string; aList: TORListBox);
public
  { Public declarations }
end;

DFM Objects


frmOptionsLists : TfrmOptionsLists
 ├lblAddby : TLabel
 ├lblPatientsAdd : TLabel
 ├lblPersonalPatientList : TLabel
 ├lblPersonalLists : TLabel
 ├lblInfo : TMemo
 ├pnlBottom : TPanel
 │ ├bvlBottom : TBevel
 │ ├btnOK : TButton
 │ └btnCancel : TButton
 ├lstAddBy : TORComboBox
 ├btnPersonalPatientRA : TButton
 ├btnPersonalPatientR : TButton
 ├lstListPats : TORListBox
 ├lstPersonalPatients : TORListBox
 ├btnListAddAll : TButton
 ├btnNewList : TButton
 ├btnDeleteList : TButton
 ├lstPersonalLists : TORListBox
 ├radAddByType : TRadioGroup
 ├btnListSaveChanges : TButton
 ├btnListAdd : TButton
 ├grpVisibility : TRadioGroup
 ├amgrMain : TVA508AccessibilityManager
 └mnuPopPatient : TPopupMenu
   └mnuPatientID : TMenuItem

Class Hierarchy


Class Fields

Name Type Scope Comments
btnCancel TButton Public/Published -
btnDeleteList TButton Public/Published -
btnListAdd TButton Public/Published -
btnListAddAll TButton Public/Published -
btnListSaveChanges TButton Public/Published -
btnNewList TButton Public/Published -
btnOK TButton Public/Published -
btnPersonalPatientR TButton Public/Published -
btnPersonalPatientRA TButton Public/Published -
bvlBottom TBevel Public/Published -
FChanging Boolean Private -
FLastList Integer Private Private declarations
grpVisibility TRadioGroup Public/Published -
lblAddby TLabel Public/Published -
lblInfo TMemo Public/Published -
lblPatientsAdd TLabel Public/Published -
lblPersonalLists TLabel Public/Published -
lblPersonalPatientList TLabel Public/Published -
lstAddBy TORComboBox Public/Published -
lstListPats TORListBox Public/Published -
lstPersonalLists TORListBox Public/Published -
lstPersonalPatients TORListBox Public/Published -
mnuPatientID TMenuItem Public/Published -
mnuPopPatient TPopupMenu Public/Published -
pnlBottom TPanel Public/Published -
radAddByType TRadioGroup Public/Published -

Methods

Name Declaration Scope Comments
AddIfUnique procedure AddIfUnique(entry: string; aList: TORListBox); Private -
btnDeleteListClick procedure btnDeleteListClick(Sender: TObject); Public/Published -
btnListAddAllClick procedure btnListAddAllClick(Sender: TObject); Public/Published -
btnListAddClick procedure btnListAddClick(Sender: TObject); Public/Published -
btnListSaveChangesClick procedure btnListSaveChangesClick(Sender: TObject); Public/Published -
btnNewListClick procedure btnNewListClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
btnPersonalPatientRAClick procedure btnPersonalPatientRAClick(Sender: TObject); Public/Published -
btnPersonalPatientRClick procedure btnPersonalPatientRClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
grpVisibilityClick procedure grpVisibilityClick(Sender: TObject); Public/Published -
lstAddByChange procedure lstAddByChange(Sender: TObject); Public/Published -
lstAddByClick procedure lstAddByClick(Sender: TObject); Public/Published -
lstAddByKeyPress procedure lstAddByKeyPress(Sender: TObject; var Key: Char); Public/Published -
lstAddByNeedData procedure lstAddByNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
lstListPatsChange procedure lstListPatsChange(Sender: TObject); Public/Published -
lstListPatsMouseDown procedure lstListPatsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
lstPersonalListsChange procedure lstPersonalListsChange(Sender: TObject); Public/Published -
lstPersonalPatientsChange procedure lstPersonalPatientsChange(Sender: TObject); Public/Published -
lstPersonalPatientsMouseDown procedure lstPersonalPatientsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
mnuPatientIDClick procedure mnuPatientIDClick(Sender: TObject); Public/Published -
radAddByTypeClick procedure radAddByTypeClick(Sender: TObject); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fOptionsLists (71) frmOptionsLists Read
fOptionsLists (88) - Read
fOptionsLists (90) - Read