Class

TfrmDrawers

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmDrawers = class(TfrmBase508Form)
  lbOrders: TORListBox;
  sbOrders: TORAlignSpeedButton;
  sbReminders: TORAlignSpeedButton;
  sbEncounter: TORAlignSpeedButton;
  sbTemplates: TORAlignSpeedButton;
  pnlOrdersButton: TKeyClickPanel;
  pnlRemindersButton: TKeyClickPanel;
  pnlEncounterButton: TKeyClickPanel;
  pnlTemplatesButton: TKeyClickPanel;
  lbEncounter: TORListBox;
  popTemplates: TPopupMenu;
  mnuPreviewTemplate: TMenuItem;
  pnlTemplates: TPanel;
  tvTemplates: TORTreeView;
  N1: TMenuItem;
  mnuCollapseTree: TMenuItem;
  N2: TMenuItem;
  mnuEditTemplates: TMenuItem;
  pnlTemplateSearch: TPanel;
  btnFind: TORAlignButton;
  edtSearch: TCaptionEdit;
  mnuFindTemplates: TMenuItem;
  mnuNewTemplate: TMenuItem;
  cbMatchCase: TCheckBox;
  cbWholeWords: TCheckBox;
  mnuInsertTemplate: TMenuItem;
  tvReminders: TORTreeView;
  mnuDefault: TMenuItem;
  N3: TMenuItem;
  mnuGotoDefault: TMenuItem;
  N4: TMenuItem;
  mnuViewNotes: TMenuItem;
  mnuCopyTemplate: TMenuItem;
  N5: TMenuItem;
  mnuViewTemplateIconLegend: TMenuItem;
  fldAccessTemplates: TVA508ComponentAccessibility;
  fldAccessReminders: TVA508ComponentAccessibility;
  imgLblReminders: TVA508ImageListLabeler;
  imgLblTemplates: TVA508ImageListLabeler;
  procedure FormCanResize(Sender: TObject; var NewWidth,
    NewHeight: Integer; var Resize: Boolean);
  procedure FormResize(Sender: TObject);
  procedure sbTemplatesClick(Sender: TObject);
  procedure sbEncounterClick(Sender: TObject);
  procedure sbRemindersClick(Sender: TObject);
  procedure sbOrdersClick(Sender: TObject);
  procedure sbResize(Sender: TObject);
  procedure tvTemplatesGetImageIndex(Sender: TObject; Node: TTreeNode);
  procedure tvTemplatesGetSelectedIndex(Sender: TObject;
    Node: TTreeNode);
  procedure tvTemplatesExpanding(Sender: TObject; Node: TTreeNode;
    var AllowExpansion: Boolean);
  procedure tvTemplatesClick(Sender: TObject);
  procedure tvTemplatesDblClick(Sender: TObject);
  procedure tvTemplatesCollapsing(Sender: TObject; Node: TTreeNode;
    var AllowCollapse: Boolean);
  procedure tvTemplatesKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure tvTemplatesKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure popTemplatesPopup(Sender: TObject);
  procedure mnuPreviewTemplateClick(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure mnuCollapseTreeClick(Sender: TObject);
  procedure btnFindClick(Sender: TObject);
  procedure edtSearchChange(Sender: TObject);
  procedure ToggleMenuItem(Sender: TObject);
  procedure edtSearchEnter(Sender: TObject);
  procedure edtSearchExit(Sender: TObject);
  procedure mnuFindTemplatesClick(Sender: TObject);
  procedure tvTemplatesDragging(Sender: TObject; Node: TTreeNode;
    var CanDrag: Boolean);
  procedure mnuEditTemplatesClick(Sender: TObject);
  procedure mnuNewTemplateClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure pnlTemplateSearchResize(Sender: TObject);
  procedure cbFindOptionClick(Sender: TObject);
  procedure mnuInsertTemplateClick(Sender: TObject);
  procedure tvRemindersMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure tvRemindersCurListChanged(Sender: TObject; Node: TTreeNode);
  procedure mnuDefaultClick(Sender: TObject);
  procedure mnuGotoDefaultClick(Sender: TObject);
  procedure mnuViewNotesClick(Sender: TObject);
  procedure mnuCopyTemplateClick(Sender: TObject);
  procedure mnuViewTemplateIconLegendClick(Sender: TObject);
  procedure pnlTemplatesButtonEnter(Sender: TObject);
  procedure pnlTemplatesButtonExit(Sender: TObject);
  procedure tvRemindersKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure tvRemindersNodeCaptioning(Sender: TObject;
    var Caption: String);
  procedure fldAccessTemplatesStateQuery(Sender: TObject; var Text: string);
  procedure fldAccessTemplatesInstructionsQuery(Sender: TObject;
    var Text: string);
  procedure fldAccessRemindersInstructionsQuery(Sender: TObject;
    var Text: string);
  procedure fldAccessRemindersStateQuery(Sender: TObject; var Text: string);
private
  FOpenToNode: string;
  FOldMouseUp: TMouseEvent;
  FEmptyNodeCount: integer;
  FOldDragDrop: TDragDropEvent;
  FOldDragOver: TDragOverEvent;
  FOldFontChanged: TNotifyEvent;
  FTextIconWidth: integer;
  FInternalResize: integer;
  FHoldResize: integer;
  FOpenDrawer: TDrawer;
  FLastOpenSize: integer;
  FButtonHeights: integer;
  FInternalExpand :boolean;
  FInternalHiddenExpand :boolean;
  FAsk :boolean;
  FAskExp :boolean;
  FAskNode :TTreeNode;
  FDragNode :TTreeNode;
  FClickOccurred: boolean;
  FRichEditControl: TRichEdit;
  FFindNext: boolean;
  FLastFoundNode: TTreeNode;
  FSplitter: TSplitter;
  FOldCanResize: TCanResizeEvent;
  FSplitterActive: boolean;
  FHasPersonalTemplates: boolean;
  FRemNotifyList: TORNotifyList;
  FDefTempPiece: integer;
  FNewNoteButton: TButton;
  FCurrentVisibleDrawers: TDrawers;
  FCurrentEnabledDrawers: TDrawers;
  function GetAlign: TAlign;
  procedure SetAlign(const Value: TAlign);
  function MinDrawerControlHeight: integer;
  procedure DisableArrowKeyMove(Sender: TObject);
protected
  procedure PositionToReminder(Sender: TObject);
  procedure RemindersChanged(Sender: TObject);
  procedure SetFindNext(const Value: boolean);
  procedure ReloadTemplates;
  procedure SetRichEditControl(const Value: TRichEdit);
  procedure CheckAsk;
  procedure FontChanged(Sender: TObject);
  procedure InitButtons;
  procedure StartInternalResize;
  procedure EndInternalResize;
  procedure ResizeToVisible;
  function ButtonHeights: integer;
  procedure GetDrawerControls(Drawer: TDrawer;
                              var Btn: TORAlignSpeedButton;
                              var Ctrl: TWinControl);
  procedure AddTemplateNode(const tmpl: TTemplate; const Owner: TTreeNode = nil);
  procedure MoveCaret(X, Y: integer);
  procedure NewRECDragDrop(Sender, Source: TObject; X, Y: Integer);
  procedure NewRECDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState;
                           var Accept: Boolean);
  procedure InsertText;
  procedure SetSplitter(const Value: TSplitter);
  procedure SplitterCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean);
  procedure SetSplitterActive(Active: boolean);
  function EnableDrawer(Drawer: TDrawer; EnableIt: boolean): boolean;
  function InsertOK(Ask: boolean): boolean;
  procedure OpenToNode(Path: string = '');
  property FindNext: boolean read FFindNext write SetFindNext;
public
  constructor CreateDrawers(AOwner: TComponent; AParent: TWinControl;
                            VisibleDrawers, EnabledDrawers: TDrawers);
  procedure ExternalReloadTemplates;
  procedure OpenDrawer(Drawer: TDrawer);
  procedure ToggleDrawer(Drawer: TDrawer);
  procedure ShowDrawers(Drawers: TDrawers);
  procedure EnableDrawers(Drawers: TDrawers);
  procedure DisplayDrawers(Show: Boolean); overload;
  procedure DisplayDrawers(Show: Boolean; AEnable, ADisplay: TDrawers); overload;
  function CanEditTemplates: boolean;
  function CanEditShared: boolean;
  procedure UpdatePersonalTemplates;
  procedure NotifyWhenRemTreeChanges(Proc: TNotifyEvent);
  procedure RemoveNotifyWhenRemTreeChanges(Proc: TNotifyEvent);
  procedure ResetTemplates;
  property RichEditControl: TRichEdit read FRichEditControl write SetRichEditControl;
  property NewNoteButton: TButton read FNewNoteButton write FNewNoteButton;
  property Splitter: TSplitter read FSplitter write SetSplitter;
  property HasPersonalTemplates: boolean read FHasPersonalTemplates;
  property LastOpenSize: integer read FLastOpenSize write FLastOpenSize;
  property DefTempPiece: integer read FDefTempPiece write FDefTempPiece;
  property TheOpenDrawer: TDrawer read FOpenDrawer;
published
  property Align: TAlign read GetAlign write SetAlign;
end;

DFM Objects


frmDrawers : TfrmDrawers
 ├pnlRemindersButton : TKeyClickPanel
 │ └sbReminders : TORAlignSpeedButton
 ├pnlEncounterButton : TKeyClickPanel
 │ └sbEncounter : TORAlignSpeedButton
 ├pnlTemplatesButton : TKeyClickPanel
 │ └sbTemplates : TORAlignSpeedButton
 ├pnlOrdersButton : TKeyClickPanel
 │ └sbOrders : TORAlignSpeedButton
 ├lbOrders : TORListBox
 ├lbEncounter : TORListBox
 ├pnlTemplates : TPanel
 │ ├tvTemplates : TORTreeView
 │ └pnlTemplateSearch : TPanel
 │   ├btnFind : TORAlignButton
 │   ├edtSearch : TCaptionEdit
 │   ├cbMatchCase : TCheckBox
 │   └cbWholeWords : TCheckBox
 ├tvReminders : TORTreeView
 ├amgrMain : TVA508AccessibilityManager
 ├popTemplates : TPopupMenu
 │ ├mnuCopyTemplate : TMenuItem
 │ ├mnuInsertTemplate : TMenuItem
 │ ├mnuPreviewTemplate : TMenuItem
 │ ├N1 : TMenuItem
 │ ├mnuGotoDefault : TMenuItem
 │ ├mnuDefault : TMenuItem
 │ ├N3 : TMenuItem
 │ ├mnuViewNotes : TMenuItem
 │ ├N4 : TMenuItem
 │ ├mnuFindTemplates : TMenuItem
 │ ├mnuCollapseTree : TMenuItem
 │ ├N2 : TMenuItem
 │ ├mnuEditTemplates : TMenuItem
 │ ├mnuNewTemplate : TMenuItem
 │ ├N5 : TMenuItem
 │ └mnuViewTemplateIconLegend : TMenuItem
 ├fldAccessTemplates : TVA508ComponentAccessibility
 ├fldAccessReminders : TVA508ComponentAccessibility
 ├imgLblReminders : TVA508ImageListLabeler
 └imgLblTemplates : TVA508ImageListLabeler

Class Hierarchy


Class Fields

Name Type Scope Comments
btnFind Simple (unknown) Public/Published -
cbMatchCase Simple (unknown) Public/Published -
cbWholeWords Simple (unknown) Public/Published -
edtSearch Simple (unknown) Public/Published -
FAsk Boolean Private -
FAskExp Boolean Private -
FAskNode TTreeNode Private -
FButtonHeights Integer Private -
FClickOccurred Boolean Private -
FCurrentEnabledDrawers Private -
FCurrentVisibleDrawers Private -
FDefTempPiece Integer Private -
FDragNode TTreeNode Private -
FEmptyNodeCount Integer Private -
FFindNext Boolean Private -
FHasPersonalTemplates Boolean Private -
FHoldResize Integer Private -
FInternalExpand Boolean Private -
FInternalHiddenExpand Boolean Private -
FInternalResize Integer Private -
FLastFoundNode TTreeNode Private -
FLastOpenSize Integer Private -
fldAccessReminders TVA508ComponentAccessibility Public/Published -
fldAccessTemplates TVA508ComponentAccessibility Public/Published -
FNewNoteButton TButton Private -
FOldCanResize Simple (unknown) Private -
FOldDragDrop Simple (unknown) Private -
FOldDragOver Simple (unknown) Private -
FOldFontChanged TNotifyEvent Private -
FOldMouseUp Simple (unknown) Private -
FOpenDrawer Private -
FOpenToNode UnicodeString Private -
FRemNotifyList Simple (unknown) Private -
FRichEditControl TRichEdit Private -
FSplitter TSplitter Private -
FSplitterActive Boolean Private -
FTextIconWidth Integer Private -
imgLblReminders Simple (unknown) Public/Published -
imgLblTemplates Simple (unknown) Public/Published -
lbEncounter TORListBox Public/Published -
lbOrders TORListBox Public/Published -
mnuCollapseTree TMenuItem Public/Published -
mnuCopyTemplate TMenuItem Public/Published -
mnuDefault TMenuItem Public/Published -
mnuEditTemplates TMenuItem Public/Published -
mnuFindTemplates TMenuItem Public/Published -
mnuGotoDefault TMenuItem Public/Published -
mnuInsertTemplate TMenuItem Public/Published -
mnuNewTemplate TMenuItem Public/Published -
mnuPreviewTemplate TMenuItem Public/Published -
mnuViewNotes TMenuItem Public/Published -
mnuViewTemplateIconLegend TMenuItem Public/Published -
N1 TMenuItem Public/Published -
N2 TMenuItem Public/Published -
N3 TMenuItem Public/Published -
N4 TMenuItem Public/Published -
N5 TMenuItem Public/Published -
pnlEncounterButton Simple (unknown) Public/Published -
pnlOrdersButton Simple (unknown) Public/Published -
pnlRemindersButton Simple (unknown) Public/Published -
pnlTemplates TPanel Public/Published -
pnlTemplatesButton Simple (unknown) Public/Published -
pnlTemplateSearch TPanel Public/Published -
popTemplates TPopupMenu Public/Published -
sbEncounter Simple (unknown) Public/Published -
sbOrders Simple (unknown) Public/Published -
sbReminders Simple (unknown) Public/Published -
sbTemplates Simple (unknown) Public/Published -
tvReminders TORTreeView Public/Published -
tvTemplates TORTreeView Public/Published -

Properties

Name Type Scope Comments
Align TAlign Published -
DefTempPiece Integer Public -
FindNext Boolean Protected -
HasPersonalTemplates Boolean Public -
LastOpenSize Integer Public -
NewNoteButton TButton Public -
RichEditControl TRichEdit Public -
Splitter TSplitter Public -
TheOpenDrawer Public -

Constructors

Name Declaration Scope Comments
CreateDrawers constructor CreateDrawers(AOwner: TComponent; AParent: TWinControl; VisibleDrawers, EnabledDrawers: TDrawers); Public -

Methods

Name Declaration Scope Comments
AddTemplateNode procedure AddTemplateNode(const tmpl: TTemplate; const Owner: TTreeNode = nil); Protected -
btnFindClick procedure btnFindClick(Sender: TObject); Public/Published -
ButtonHeights function ButtonHeights: integer; Protected -
CanEditShared function CanEditShared: boolean; Public -
CanEditTemplates function CanEditTemplates: boolean; Public -
cbFindOptionClick procedure cbFindOptionClick(Sender: TObject); Public/Published -
CheckAsk procedure CheckAsk; Protected -
DisableArrowKeyMove procedure DisableArrowKeyMove(Sender: TObject); Private -
DisplayDrawers procedure DisplayDrawers(Show: Boolean; AEnable, ADisplay: TDrawers); overload; Public -
DisplayDrawers procedure DisplayDrawers(Show: Boolean); overload; Public -
edtSearchChange procedure edtSearchChange(Sender: TObject); Public/Published -
edtSearchEnter procedure edtSearchEnter(Sender: TObject); Public/Published -
edtSearchExit procedure edtSearchExit(Sender: TObject); Public/Published -
EnableDrawer function EnableDrawer(Drawer: TDrawer; EnableIt: boolean): boolean; Protected -
EnableDrawers procedure EnableDrawers(Drawers: TDrawers); Public -
EndInternalResize procedure EndInternalResize; Protected -
ExternalReloadTemplates procedure ExternalReloadTemplates; Public -
fldAccessRemindersInstructionsQuery procedure fldAccessRemindersInstructionsQuery(Sender: TObject; var Text: string); Public/Published -
fldAccessRemindersStateQuery procedure fldAccessRemindersStateQuery(Sender: TObject; var Text: string); Public/Published -
fldAccessTemplatesInstructionsQuery procedure fldAccessTemplatesInstructionsQuery(Sender: TObject; var Text: string); Public/Published -
fldAccessTemplatesStateQuery procedure fldAccessTemplatesStateQuery(Sender: TObject; var Text: string); Public/Published -
FontChanged procedure FontChanged(Sender: TObject); Protected -
FormCanResize procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
GetAlign function GetAlign: TAlign; Private -
GetDrawerControls procedure GetDrawerControls(Drawer: TDrawer; var Btn: TORAlignSpeedButton; var Ctrl: TWinControl); Protected -
InitButtons procedure InitButtons; Protected -
InsertOK function InsertOK(Ask: boolean): boolean; Protected -
InsertText procedure InsertText; Protected -
MinDrawerControlHeight function MinDrawerControlHeight: integer; Private -
mnuCollapseTreeClick procedure mnuCollapseTreeClick(Sender: TObject); Public/Published -
mnuCopyTemplateClick procedure mnuCopyTemplateClick(Sender: TObject); Public/Published -
mnuDefaultClick procedure mnuDefaultClick(Sender: TObject); Public/Published -
mnuEditTemplatesClick procedure mnuEditTemplatesClick(Sender: TObject); Public/Published -
mnuFindTemplatesClick procedure mnuFindTemplatesClick(Sender: TObject); Public/Published -
mnuGotoDefaultClick procedure mnuGotoDefaultClick(Sender: TObject); Public/Published -
mnuInsertTemplateClick procedure mnuInsertTemplateClick(Sender: TObject); Public/Published -
mnuNewTemplateClick procedure mnuNewTemplateClick(Sender: TObject); Public/Published -
mnuPreviewTemplateClick procedure mnuPreviewTemplateClick(Sender: TObject); Public/Published -
mnuViewNotesClick procedure mnuViewNotesClick(Sender: TObject); Public/Published -
mnuViewTemplateIconLegendClick procedure mnuViewTemplateIconLegendClick(Sender: TObject); Public/Published -
MoveCaret procedure MoveCaret(X, Y: integer); Protected -
NewRECDragDrop procedure NewRECDragDrop(Sender, Source: TObject; X, Y: Integer); Protected -
NewRECDragOver procedure NewRECDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); Protected -
NotifyWhenRemTreeChanges procedure NotifyWhenRemTreeChanges(Proc: TNotifyEvent); Public -
OpenDrawer procedure OpenDrawer(Drawer: TDrawer); Public -
OpenToNode procedure OpenToNode(Path: string = ''); Protected -
pnlTemplatesButtonEnter procedure pnlTemplatesButtonEnter(Sender: TObject); Public/Published -
pnlTemplatesButtonExit procedure pnlTemplatesButtonExit(Sender: TObject); Public/Published -
pnlTemplateSearchResize procedure pnlTemplateSearchResize(Sender: TObject); Public/Published -
popTemplatesPopup procedure popTemplatesPopup(Sender: TObject); Public/Published -
PositionToReminder procedure PositionToReminder(Sender: TObject); Protected -
ReloadTemplates procedure ReloadTemplates; Protected -
RemindersChanged procedure RemindersChanged(Sender: TObject); Protected -
RemoveNotifyWhenRemTreeChanges procedure RemoveNotifyWhenRemTreeChanges(Proc: TNotifyEvent); Public -
ResetTemplates procedure ResetTemplates; Public -
ResizeToVisible procedure ResizeToVisible; Protected -
sbEncounterClick procedure sbEncounterClick(Sender: TObject); Public/Published -
sbOrdersClick procedure sbOrdersClick(Sender: TObject); Public/Published -
sbRemindersClick procedure sbRemindersClick(Sender: TObject); Public/Published -
sbResize procedure sbResize(Sender: TObject); Public/Published -
sbTemplatesClick procedure sbTemplatesClick(Sender: TObject); Public/Published -
SetAlign procedure SetAlign(const Value: TAlign); Private -
SetFindNext procedure SetFindNext(const Value: boolean); Protected -
SetRichEditControl procedure SetRichEditControl(const Value: TRichEdit); Protected -
SetSplitter procedure SetSplitter(const Value: TSplitter); Protected -
SetSplitterActive procedure SetSplitterActive(Active: boolean); Protected -
ShowDrawers procedure ShowDrawers(Drawers: TDrawers); Public -
SplitterCanResize procedure SplitterCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Protected -
StartInternalResize procedure StartInternalResize; Protected -
ToggleDrawer procedure ToggleDrawer(Drawer: TDrawer); Public -
ToggleMenuItem procedure ToggleMenuItem(Sender: TObject); Public/Published -
tvRemindersCurListChanged procedure tvRemindersCurListChanged(Sender: TObject; Node: TTreeNode); Public/Published -
tvRemindersKeyDown procedure tvRemindersKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
tvRemindersMouseUp procedure tvRemindersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
tvRemindersNodeCaptioning procedure tvRemindersNodeCaptioning(Sender: TObject; var Caption: String); Public/Published -
tvTemplatesClick procedure tvTemplatesClick(Sender: TObject); Public/Published -
tvTemplatesCollapsing procedure tvTemplatesCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean); Public/Published -
tvTemplatesDblClick procedure tvTemplatesDblClick(Sender: TObject); Public/Published -
tvTemplatesDragging procedure tvTemplatesDragging(Sender: TObject; Node: TTreeNode; var CanDrag: Boolean); Public/Published -
tvTemplatesExpanding procedure tvTemplatesExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean); Public/Published -
tvTemplatesGetImageIndex procedure tvTemplatesGetImageIndex(Sender: TObject; Node: TTreeNode); Public/Published -
tvTemplatesGetSelectedIndex procedure tvTemplatesGetSelectedIndex(Sender: TObject; Node: TTreeNode); Public/Published -
tvTemplatesKeyDown procedure tvTemplatesKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
tvTemplatesKeyUp procedure tvTemplatesKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
UpdatePersonalTemplates procedure UpdatePersonalTemplates; Public -

Referenced By (28)

Module (line) Referrer Type
dShared (523) - Read
dShared (695) - Read
fConsults (337) GetDrawers Read
fConsults (368) TfrmConsults Read
fConsults (547) frmDrawers Read
fConsults (3008) - Read
fConsults (3567) - Read
fDCSumm (262) GetDrawers Read
fDCSumm (281) TfrmDCSumm Read
fDCSumm (384) frmDrawers Read
fDCSumm (1981) - Read
fDCSumm (2320) - Read
fDrawers (1565) - Read
fNotes (290) GetDrawers Read
fNotes (316) TfrmNotes Read
fNotes (412) frmDrawers Read
fNotes (1309) - Read
fNotes (2858) - Read
fSurgery (236) GetDrawers Read
fSurgery (261) TfrmSurgery Read
fSurgery (349) frmDrawers Read
fSurgery (468) - Read
fSurgery (534) - Read
fTemplateEditor (504) - Read
fTemplateEditor (517) - Read
fTemplateEditor (518) - Read
fTemplateEditor (521) - Read
uReminders (294) - Read