Class

TfrmOptions

Module

fOptions

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmOptions = class(TfrmAutoSz)
  pnlMain: TPanel;
  pnlBottom: TPanel;
  pagOptions: TPageControl;
  tsCoverSheet: TTabSheet;
  tsNotifications: TTabSheet;
  btnOK: TButton;
  btnCancel: TButton;
  btnApply: TButton;
  tsOrderChecks: TTabSheet;
  tsListsTeams: TTabSheet;
  lblCoverReminderDesc: TMemo;
  lblCoverReminders: TStaticText;
  lblCoverDaysDesc: TMemo;
  lblCoverDays: TStaticText;
  btnCoverDays: TButton;
  bvlCoverDays: TBevel;
  btnCoverReminders: TButton;
  bvlCoverReminders: TBevel;
  imgCoverDays: TImage;
  imgCoverReminders: TImage;
  lblPatientSelectionDesc: TMemo;
  lblPatientSelection: TStaticText;
  btnPatientSelection: TButton;
  bvlPatientSelection: TBevel;
  btnPersonalLists: TButton;
  imgPatientSelection: TImage;
  lblNotificationsOptions: TStaticText;
  lblNotifications: TStaticText;
  bvlNotifications: TBevel;
  imgNotifications: TImage;
  lblOrderChecksDesc: TLabel;
  lblOrderChecks: TStaticText;
  bvlOrderChecks: TBevel;
  imgOrderChecks: TImage;
  lblTeamsDesc: TMemo;
  lblTeams: TStaticText;
  btnTeams: TButton;
  bvlTeams: TBevel;
  lvwNotifications: TCaptionListView;
  lblNotificationView: TLabel;
  btnNotificationsRemove: TButton;
  chkNotificationsFlagged: TCheckBox;
  lvwOrderChecks: TCaptionListView;
  lblOrderChecksView: TLabel;
  btnSurrogate: TButton;
  lblNotificationsSurrogate: TStaticText;
  lblNotificationsSurrogateText: TStaticText;
  btnCombinations: TButton;
  bvlOtherParameters: TBevel;
  lblOtherParameters: TStaticText;
  imgOtherParameters: TImage;
  lblOtherParametersDesc: TMemo;
  btnOtherParameters: TButton;
  tsNotes: TTabSheet;
  lblNotesNotesDesc: TMemo;
  lblNotesNotes: TStaticText;
  bvlNotesNotes: TBevel;
  btnNotesNotes: TButton;
  lblNotesTitles: TStaticText;
  bvlNotesTitles: TBevel;
  lblNotesTitlesDesc: TMemo;
  btnNotesTitles: TButton;
  imgNotesNotes: TImage;
  imgNotes: TImage;
  imgTeams: TImage;
  tsCprsReports: TTabSheet;
  lblReports: TStaticText;
  bvlReports: TBevel;
  memReports: TMemo;
  imgReports: TImage;
  btnReports: TButton;
  lblReport1: TStaticText;
  memReport1: TMemo;
  btnReport1: TButton;
  bvlReport1: TBevel;
  btnDiagnoses: TButton;
  tsGraphs: TTabSheet;
  lblGraphSettings: TStaticText;
  bvlGraphSettings: TBevel;
  imgGraphSettings: TImage;
  btnGraphSettings: TButton;
  bvlGraphViews: TBevel;
  lblGraphViews: TStaticText;
  imgGraphViews: TImage;
  btnGraphViews: TButton;
  memGraphSettings: TMemo;
  memGraphViews: TMemo;
  bvlReport2: TBevel;
  lblReport2: TStaticText;
  memReport2: TMemo;
  imgReport1: TImage;
  imgReport2: TImage;
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure btnCoverDaysClick(Sender: TObject);
  procedure btnCoverRemindersClick(Sender: TObject);
  procedure btnOtherParametersClick(Sender: TObject);
  procedure btnPatientSelectionClick(Sender: TObject);
  procedure btnPersonalListsClick(Sender: TObject);
  procedure btnTeamsClick(Sender: TObject);
  procedure btnNotificationsRemoveClick(Sender: TObject);
  procedure btnApplyClick(Sender: TObject);
  procedure chkNotificationsFlaggedClick(Sender: TObject);
  procedure lvwNotificationsChange(Sender: TObject; Item: TListItem;
    Change: TItemChange);
  procedure lvwNotificationsColumnClick(Sender: TObject;
    Column: TListColumn);
  procedure lvwNotificationsCompare(Sender: TObject; Item1,
    Item2: TListItem; Data: Integer; var Compare: Integer);
  procedure lvwNotificationsDblClick(Sender: TObject);
  procedure btnSurrogateClick(Sender: TObject);
  procedure btnCombinationsClick(Sender: TObject);
  procedure btnNotesNotesClick(Sender: TObject);
  procedure btnNotesTitlesClick(Sender: TObject);
  procedure btnReportsClick(Sender: TObject);
  procedure btnReport1Click(Sender: TObject);
  procedure lvwNotificationsEnter(Sender: TObject);
  procedure lvwNotificationsMouseDown(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  procedure btnDiagnosesClick(Sender: TObject);
  procedure btnGraphSettingsClick(Sender: TObject);
  procedure btnGraphViewsClick(Sender: TObject);
  procedure pagOptionsEnter(Sender: TObject);
private
  { Private declarations }
  FdirtyNotifications: boolean;  // used to determine edit changes to Notifications
  FdirtyOrderChecks: boolean;    // used to determine edit changes to Order Checks
  FdirtyOtherStuff: boolean;     // used to determine edit changes to misc settings
  FuseCheckBoxes: boolean;
  FsortCol: integer;
  FsortAscending: boolean;
  FLastClickedItem: TListItem;
  FGiveMultiTabMessage: boolean;
  procedure Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer);
  procedure LoadNotifications;
  procedure LoadOrderChecks;
  procedure ApplyNotifications;
  procedure ApplyOrderChecks;
  procedure ApplyOtherStuff;
  procedure CheckApply;
  procedure LoadListView(aListView: TListView; aList: TStrings);
  procedure ChangeOnOff(aListView: TListView; aListItem: TListItem);
public
  { Public declarations }
end;

DFM Objects


frmOptions : TfrmOptions
 ├pnlBottom : TPanel
 │ ├btnOK : TButton
 │ ├btnCancel : TButton
 │ └btnApply : TButton
 ├pnlMain : TPanel
 │ └pagOptions : TPageControl
 │   ├tsCoverSheet : TTabSheet
 │   │ ├bvlCoverDays : TBevel
 │   │ ├bvlCoverReminders : TBevel
 │   │ ├imgCoverDays : TImage
 │   │ ├imgCoverReminders : TImage
 │   │ ├bvlOtherParameters : TBevel
 │   │ ├imgOtherParameters : TImage
 │   │ ├lblCoverReminderDesc : TMemo
 │   │ ├lblCoverReminders : TStaticText
 │   │ ├lblCoverDaysDesc : TMemo
 │   │ ├lblCoverDays : TStaticText
 │   │ ├lblOtherParameters : TStaticText
 │   │ ├lblOtherParametersDesc : TMemo
 │   │ ├btnCoverDays : TButton
 │   │ ├btnCoverReminders : TButton
 │   │ └btnOtherParameters : TButton
 │   ├tsNotifications : TTabSheet
 │   │ ├bvlNotifications : TBevel
 │   │ ├imgNotifications : TImage
 │   │ ├lblNotificationView : TLabel
 │   │ ├lblNotificationsOptions : TStaticText
 │   │ ├lblNotifications : TStaticText
 │   │ ├lblNotificationsSurrogate : TStaticText
 │   │ ├lblNotificationsSurrogateText : TStaticText
 │   │ ├lvwNotifications : TCaptionListView
 │   │ ├btnNotificationsRemove : TButton
 │   │ ├chkNotificationsFlagged : TCheckBox
 │   │ └btnSurrogate : TButton
 │   ├tsOrderChecks : TTabSheet
 │   │ ├lblOrderChecksDesc : TLabel
 │   │ ├bvlOrderChecks : TBevel
 │   │ ├imgOrderChecks : TImage
 │   │ ├lblOrderChecksView : TLabel
 │   │ ├lblOrderChecks : TStaticText
 │   │ └lvwOrderChecks : TCaptionListView
 │   ├tsListsTeams : TTabSheet
 │   │ ├bvlPatientSelection : TBevel
 │   │ ├imgPatientSelection : TImage
 │   │ ├bvlTeams : TBevel
 │   │ ├imgTeams : TImage
 │   │ ├lblPatientSelectionDesc : TMemo
 │   │ ├lblTeamsDesc : TMemo
 │   │ ├lblPatientSelection : TStaticText
 │   │ ├lblTeams : TStaticText
 │   │ ├btnPatientSelection : TButton
 │   │ ├btnPersonalLists : TButton
 │   │ ├btnTeams : TButton
 │   │ ├btnCombinations : TButton
 │   │ └btnDiagnoses : TButton
 │   ├tsNotes : TTabSheet
 │   │ ├bvlNotesNotes : TBevel
 │   │ ├bvlNotesTitles : TBevel
 │   │ ├imgNotesNotes : TImage
 │   │ ├imgNotes : TImage
 │   │ ├lblNotesNotesDesc : TMemo
 │   │ ├lblNotesTitlesDesc : TMemo
 │   │ ├lblNotesNotes : TStaticText
 │   │ ├lblNotesTitles : TStaticText
 │   │ ├btnNotesNotes : TButton
 │   │ └btnNotesTitles : TButton
 │   ├tsCprsReports : TTabSheet
 │   │ ├bvlReports : TBevel
 │   │ ├imgReports : TImage
 │   │ ├bvlReport1 : TBevel
 │   │ ├bvlReport2 : TBevel
 │   │ ├imgReport1 : TImage
 │   │ ├imgReport2 : TImage
 │   │ ├memReports : TMemo
 │   │ ├memReport1 : TMemo
 │   │ ├lblReports : TStaticText
 │   │ ├lblReport1 : TStaticText
 │   │ ├btnReports : TButton
 │   │ ├btnReport1 : TButton
 │   │ ├lblReport2 : TStaticText
 │   │ └memReport2 : TMemo
 │   └tsGraphs : TTabSheet
 │     ├bvlGraphSettings : TBevel
 │     ├imgGraphSettings : TImage
 │     ├bvlGraphViews : TBevel
 │     ├imgGraphViews : TImage
 │     ├lblGraphSettings : TStaticText
 │     ├btnGraphSettings : TButton
 │     ├lblGraphViews : TStaticText
 │     ├btnGraphViews : TButton
 │     ├memGraphSettings : TMemo
 │     └memGraphViews : TMemo
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnApply TButton Public/Published -
btnCancel TButton Public/Published -
btnCombinations TButton Public/Published -
btnCoverDays TButton Public/Published -
btnCoverReminders TButton Public/Published -
btnDiagnoses TButton Public/Published -
btnGraphSettings TButton Public/Published -
btnGraphViews TButton Public/Published -
btnNotesNotes TButton Public/Published -
btnNotesTitles TButton Public/Published -
btnNotificationsRemove TButton Public/Published -
btnOK TButton Public/Published -
btnOtherParameters TButton Public/Published -
btnPatientSelection TButton Public/Published -
btnPersonalLists TButton Public/Published -
btnReport1 TButton Public/Published -
btnReports TButton Public/Published -
btnSurrogate TButton Public/Published -
btnTeams TButton Public/Published -
bvlCoverDays TBevel Public/Published -
bvlCoverReminders TBevel Public/Published -
bvlGraphSettings TBevel Public/Published -
bvlGraphViews TBevel Public/Published -
bvlNotesNotes TBevel Public/Published -
bvlNotesTitles TBevel Public/Published -
bvlNotifications TBevel Public/Published -
bvlOrderChecks TBevel Public/Published -
bvlOtherParameters TBevel Public/Published -
bvlPatientSelection TBevel Public/Published -
bvlReport1 TBevel Public/Published -
bvlReport2 TBevel Public/Published -
bvlReports TBevel Public/Published -
bvlTeams TBevel Public/Published -
chkNotificationsFlagged TCheckBox Public/Published -
FdirtyNotifications Boolean Private
Private declarations 

 used to determine edit changes to Notifications
FdirtyOrderChecks Boolean Private Used to determine edit changes to Order Checks
FdirtyOtherStuff Boolean Private Used to determine edit changes to misc settings
FGiveMultiTabMessage Boolean Private -
FLastClickedItem TListItem Private -
FsortAscending Boolean Private -
FsortCol Integer Private -
FuseCheckBoxes Boolean Private -
imgCoverDays TImage Public/Published -
imgCoverReminders TImage Public/Published -
imgGraphSettings TImage Public/Published -
imgGraphViews TImage Public/Published -
imgNotes TImage Public/Published -
imgNotesNotes TImage Public/Published -
imgNotifications TImage Public/Published -
imgOrderChecks TImage Public/Published -
imgOtherParameters TImage Public/Published -
imgPatientSelection TImage Public/Published -
imgReport1 TImage Public/Published -
imgReport2 TImage Public/Published -
imgReports TImage Public/Published -
imgTeams TImage Public/Published -
lblCoverDays TStaticText Public/Published -
lblCoverDaysDesc TMemo Public/Published -
lblCoverReminderDesc TMemo Public/Published -
lblCoverReminders TStaticText Public/Published -
lblGraphSettings TStaticText Public/Published -
lblGraphViews TStaticText Public/Published -
lblNotesNotes TStaticText Public/Published -
lblNotesNotesDesc TMemo Public/Published -
lblNotesTitles TStaticText Public/Published -
lblNotesTitlesDesc TMemo Public/Published -
lblNotifications TStaticText Public/Published -
lblNotificationsOptions TStaticText Public/Published -
lblNotificationsSurrogate TStaticText Public/Published -
lblNotificationsSurrogateText TStaticText Public/Published -
lblNotificationView TLabel Public/Published -
lblOrderChecks TStaticText Public/Published -
lblOrderChecksDesc TLabel Public/Published -
lblOrderChecksView TLabel Public/Published -
lblOtherParameters TStaticText Public/Published -
lblOtherParametersDesc TMemo Public/Published -
lblPatientSelection TStaticText Public/Published -
lblPatientSelectionDesc TMemo Public/Published -
lblReport1 TStaticText Public/Published -
lblReport2 TStaticText Public/Published -
lblReports TStaticText Public/Published -
lblTeams TStaticText Public/Published -
lblTeamsDesc TMemo Public/Published -
lvwNotifications Simple (unknown) Public/Published -
lvwOrderChecks Simple (unknown) Public/Published -
memGraphSettings TMemo Public/Published -
memGraphViews TMemo Public/Published -
memReport1 TMemo Public/Published -
memReport2 TMemo Public/Published -
memReports TMemo Public/Published -
pagOptions Simple (unknown) Public/Published -
pnlBottom TPanel Public/Published -
pnlMain TPanel Public/Published -
tsCoverSheet Simple (unknown) Public/Published -
tsCprsReports Simple (unknown) Public/Published -
tsGraphs Simple (unknown) Public/Published -
tsListsTeams Simple (unknown) Public/Published -
tsNotes Simple (unknown) Public/Published -
tsNotifications Simple (unknown) Public/Published -
tsOrderChecks Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
ApplyNotifications procedure ApplyNotifications; Private Save Notification changes
ApplyOrderChecks procedure ApplyOrderChecks; Private Save Order Check changes
ApplyOtherStuff procedure ApplyOtherStuff; Private Save other changes
btnApplyClick procedure btnApplyClick(Sender: TObject); Public/Published Save actions without exiting
btnCombinationsClick procedure btnCombinationsClick(Sender: TObject); Public/Published Display Combination List Options
btnCoverDaysClick procedure btnCoverDaysClick(Sender: TObject); Public/Published Display Date Range Defaults on Cover Sheet
btnCoverRemindersClick procedure btnCoverRemindersClick(Sender: TObject); Public/Published Display Clinical Reminder Options
btnDiagnosesClick procedure btnDiagnosesClick(Sender: TObject); Public/Published Display Personal Diagnoses List
btnGraphSettingsClick procedure btnGraphSettingsClick(Sender: TObject); Public/Published Display GraphSettings
btnGraphViewsClick procedure btnGraphViewsClick(Sender: TObject); Public/Published Display Graph Views
btnNotesNotesClick procedure btnNotesNotesClick(Sender: TObject); Public/Published Display Notes Options
btnNotesTitlesClick procedure btnNotesTitlesClick(Sender: TObject); Public/Published Display Titles Options
btnNotificationsRemoveClick procedure btnNotificationsRemoveClick(Sender: TObject); Public/Published Confirm before clearing notifications
btnOtherParametersClick procedure btnOtherParametersClick(Sender: TObject); Public/Published Display Other Parameters Options
btnPatientSelectionClick procedure btnPatientSelectionClick(Sender: TObject); Public/Published Display Patient Selection Options
btnPersonalListsClick procedure btnPersonalListsClick(Sender: TObject); Public/Published Display Personal Lists Options
btnReport1Click procedure btnReport1Click(Sender: TObject); Public/Published -
btnReportsClick procedure btnReportsClick(Sender: TObject); Public/Published -
btnSurrogateClick procedure btnSurrogateClick(Sender: TObject); Public/Published Display Surrogate Options
btnTeamsClick procedure btnTeamsClick(Sender: TObject); Public/Published Display Team Options
ChangeOnOff procedure ChangeOnOff(aListView: TListView; aListItem: TListItem); Private Check if list items were edited
CheckApply procedure CheckApply; Private Determine if Apply button is enabled
chkNotificationsFlaggedClick procedure chkNotificationsFlaggedClick(Sender: TObject); Public/Published Set notification flagged status
FormCreate procedure FormCreate(Sender: TObject); Public/Published Initialize form
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published Cleanup creation of objects
LoadListView procedure LoadListView(aListView: TListView; aList: TStrings); Private Load a list view with: name, on/off, comment
LoadNotifications procedure LoadNotifications; Private Load Notification tab
LoadOrderChecks procedure LoadOrderChecks; Private Load Order Check tab
lvwNotificationsChange procedure lvwNotificationsChange(Sender: TObject; Item: TListItem; Change: TItemChange); Public/Published Change on/off on checkmark
lvwNotificationsColumnClick procedure lvwNotificationsColumnClick(Sender: TObject; Column: TListColumn); Public/Published Toggle sort
lvwNotificationsCompare procedure lvwNotificationsCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); Public/Published Sort columns
lvwNotificationsDblClick procedure lvwNotificationsDblClick(Sender: TObject); Public/Published Toggle check marks with double click
lvwNotificationsEnter procedure lvwNotificationsEnter(Sender: TObject); Public/Published -
lvwNotificationsMouseDown procedure lvwNotificationsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
Offset procedure Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer); Private Get positions to display dialog
pagOptionsEnter procedure pagOptionsEnter(Sender: TObject); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fOptions (158) frmOptions Read
fOptions (187) - Read
fOptions (189) - Read