Class

TfrmFlags

Module

fPatientFlagMulti

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmFlags = class(TfrmBase508Form)
  Panel1: TPanel;
  Splitter3: TSplitter;
  Splitter1: TSplitter;
  lblFlags: TLabel;
  lstFlagsCat2: TORListBox;
  memFlags: TRichEdit;
  pnlNotes: TPanel;
  lvPRF: TCaptionListView;
  lblNoteTitle: TLabel;
  Splitter2: TSplitter;
  pnlBottom: TORAutoPanel;
  btnClose: TButton;
  lstFlagsCat1: TORListBox;
  lblCat1: TLabel;
  TimerTextFlash: TTimer;
  procedure lstFlagsCat1Click(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure FormShow(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormDestroy(Sender: TObject);
  procedure lvPRFClick(Sender: TObject);
  procedure lvPRFKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure TimerTextFlashTimer(Sender: TObject);
  procedure lstFlagsCat2Click(Sender: TObject);
private
  FFlagID: integer;
  FPRFNotes : TPRFNotes;
  FNoteTitle: String;
  procedure GetNotes(SelectedList : TORListBox);
  procedure MakeCat1FlagsStandOut;
  procedure LoadSelectedFlagData(SelectedList : TORListBox);
  procedure ActivateSpecificFlag;
  procedure PutFlagsOnLists(flags, Cat1List,  Cat2List: TStrings);
  function GetListToActivate : TORListBox;
public
  { Public declarations }
end;

DFM Objects


frmFlags : TfrmFlags
 ├Panel1 : TPanel
 │ ├Splitter3 : TSplitter
 │ ├lblFlags : TLabel
 │ ├Splitter1 : TSplitter
 │ ├lblCat1 : TLabel
 │ ├Splitter2 : TSplitter
 │ ├memFlags : TRichEdit
 │ ├lstFlagsCat2 : TORListBox
 │ ├lstFlagsCat1 : TORListBox
 │ └pnlNotes : TPanel
 │   ├lblNoteTitle : TLabel
 │   ├lvPRF : TCaptionListView
 │   └pnlBottom : TORAutoPanel
 │     └btnClose : TButton
 ├amgrMain : TVA508AccessibilityManager
 └TimerTextFlash : TTimer

Class Hierarchy


Class Fields

Name Type Scope Comments
btnClose TButton Public/Published -
FFlagID Integer Private -
FNoteTitle UnicodeString Private -
FPRFNotes TPRFNotes Private -
lblCat1 TLabel Public/Published -
lblFlags TLabel Public/Published -
lblNoteTitle TLabel Public/Published -
lstFlagsCat1 TORListBox Public/Published -
lstFlagsCat2 TORListBox Public/Published -
lvPRF TCaptionListView Public/Published -
memFlags TRichEdit Public/Published -
Panel1 TPanel Public/Published -
pnlBottom TORAutoPanel Public/Published -
pnlNotes TPanel Public/Published -
Splitter1 TSplitter Public/Published -
Splitter2 TSplitter Public/Published -
Splitter3 TSplitter Public/Published -
TimerTextFlash TTimer Public/Published -

Methods

Name Declaration Scope Comments
ActivateSpecificFlag procedure ActivateSpecificFlag; Private -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormKeyDown procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetListToActivate function GetListToActivate : TORListBox; Private -
GetNotes procedure GetNotes(SelectedList : TORListBox); Private -
LoadSelectedFlagData procedure LoadSelectedFlagData(SelectedList : TORListBox); Private -
lstFlagsCat1Click procedure lstFlagsCat1Click(Sender: TObject); Public/Published -
lstFlagsCat2Click procedure lstFlagsCat2Click(Sender: TObject); Public/Published -
lvPRFClick procedure lvPRFClick(Sender: TObject); Public/Published -
lvPRFKeyDown procedure lvPRFKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
MakeCat1FlagsStandOut procedure MakeCat1FlagsStandOut; Private -
PutFlagsOnLists procedure PutFlagsOnLists(flags, Cat1List, Cat2List: TStrings); Private -
TimerTextFlashTimer procedure TimerTextFlashTimer(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fPatientFlagMulti (87) - Read
fPatientFlagMulti (89) - Read