Class

TfrmGraphSettings

Module

fGraphSettings

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmGraphSettings = class(TfrmBase508Form)
  brnClear: TButton;
  btnAll: TButton;
  btnClose: TButton;
  btnPersonal: TButton;
  btnPersonalSave: TButton;
  btnPublic: TButton;
  btnPublicSave: TButton;
  bvlBase: TBevel;
  bvlDefaults: TBevel;
  bvlMid: TBevel;
  cboConversions: TORComboBox;
  cboDateRangeInpatient: TORComboBox;
  cboDateRangeOutpatient: TORComboBox;
  chklstOptions: TCheckListBox;
  lblConversions: TLabel;
  lblInpatient: TLabel;
  lblMaxGraphs: TLabel;
  lblMaxGraphsRef: TLabel;
  lblMaxSelect: TLabel;
  lblMaxSelectRef: TLabel;
  lblMinGraphHeight: TLabel;
  lblMinGraphHeightRef: TLabel;
  lblOptions: TLabel;
  lblOptionsInfo: TLabel;
  lblOutpatient: TLabel;
  lblSave: TLabel;
  lblShow: TLabel;
  lblSources: TLabel;
  lstATypes: TListBox;
  lstOptions: TListBox;
  lstSources: TCheckListBox;
  lstSourcesCopy: TListBox;
  spnMaxGraphs: TUpDown;
  spnMaxSelect: TUpDown;
  spnMinGraphHeight: TUpDown;
  txtMaxGraphs: TEdit;
  txtMaxSelect: TEdit;
  txtMinGraphHeight: TEdit;

  procedure FormCreate(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormShow(Sender: TObject);

  procedure AssignHints;
  procedure btnAllClick(Sender: TObject);
  procedure btnCloseClick(Sender: TObject);
  procedure btnPublicClick(Sender: TObject);
  procedure CheckSetting(setting: string; turnon: boolean);
  procedure chklstOptionsClickCheck(Sender: TObject);
  procedure SaveClick(Sender: TObject);
  procedure spnMaxGraphsClick(Sender: TObject; Button: TUDBtnType);
  procedure spnMaxSelectClick(Sender: TObject; Button: TUDBtnType);
  procedure spnMinGraphHeightClick(Sender: TObject; Button: TUDBtnType);
  procedure txtMaxGraphsChange(Sender: TObject);
  procedure txtMaxGraphsExit(Sender: TObject);
  procedure txtMaxGraphsKeyPress(Sender: TObject; var Key: Char);
  procedure txtMaxSelectChange(Sender: TObject);
  procedure txtMaxSelectExit(Sender: TObject);
  procedure txtMaxSelectKeyPress(Sender: TObject; var Key: Char);
  procedure txtMinGraphHeightChange(Sender: TObject);
  procedure txtMinGraphHeightExit(Sender: TObject);
  procedure txtMinGraphHeightKeyPress(Sender: TObject; var Key: Char);

  function DisplaySettings: string;

private
  FHintPauseTime: integer;
public
  procedure ChangeSettings(aGraphSetting: TGraphSetting);
  procedure ChangeSources(DisplaySource: TStrings);
  procedure Conversion(conv: integer);
  procedure GetTypeList(aList: TStrings);
  procedure SetSettings(aGraphSetting: TGraphSetting);
  procedure SetSources(aList, DisplaySource: TStrings);
  procedure wmNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
end;

DFM Objects


frmGraphSettings : TfrmGraphSettings
 ├lblMinGraphHeight : TLabel
 ├lblMaxGraphs : TLabel
 ├lblOptions : TLabel
 ├bvlBase : TBevel
 ├lblSources : TLabel
 ├lblConversions : TLabel
 ├lblMaxSelect : TLabel
 ├lblShow : TLabel
 ├lblSave : TLabel
 ├bvlDefaults : TBevel
 ├lblOptionsInfo : TLabel
 ├lblMaxGraphsRef : TLabel
 ├lblMinGraphHeightRef : TLabel
 ├lblMaxSelectRef : TLabel
 ├bvlMid : TBevel
 ├lblOutpatient : TLabel
 ├lblInpatient : TLabel
 ├lstATypes : TListBox
 ├lstSourcesCopy : TListBox
 ├chklstOptions : TCheckListBox
 ├txtMinGraphHeight : TEdit
 ├txtMaxGraphs : TEdit
 ├spnMinGraphHeight : TUpDown
 ├spnMaxGraphs : TUpDown
 ├btnClose : TButton
 ├lstSources : TCheckListBox
 ├btnAll : TButton
 ├brnClear : TButton
 ├btnPersonal : TButton
 ├cboConversions : TORComboBox
 ├txtMaxSelect : TEdit
 ├spnMaxSelect : TUpDown
 ├btnPublic : TButton
 ├btnPersonalSave : TButton
 ├btnPublicSave : TButton
 ├lstOptions : TListBox
 ├cboDateRangeOutpatient : TORComboBox
 ├cboDateRangeInpatient : TORComboBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
brnClear TButton Public/Published -
btnAll TButton Public/Published -
btnClose TButton Public/Published -
btnPersonal TButton Public/Published -
btnPersonalSave TButton Public/Published -
btnPublic TButton Public/Published -
btnPublicSave TButton Public/Published -
bvlBase Simple (unknown) Public/Published -
bvlDefaults Simple (unknown) Public/Published -
bvlMid Simple (unknown) Public/Published -
cboConversions TORComboBox Public/Published -
cboDateRangeInpatient TORComboBox Public/Published -
cboDateRangeOutpatient TORComboBox Public/Published -
chklstOptions Simple (unknown) Public/Published -
FHintPauseTime Integer Private -
lblConversions TLabel Public/Published -
lblInpatient TLabel Public/Published -
lblMaxGraphs TLabel Public/Published -
lblMaxGraphsRef TLabel Public/Published -
lblMaxSelect TLabel Public/Published -
lblMaxSelectRef TLabel Public/Published -
lblMinGraphHeight TLabel Public/Published -
lblMinGraphHeightRef TLabel Public/Published -
lblOptions TLabel Public/Published -
lblOptionsInfo TLabel Public/Published -
lblOutpatient TLabel Public/Published -
lblSave TLabel Public/Published -
lblShow TLabel Public/Published -
lblSources TLabel Public/Published -
lstATypes TListBox Public/Published -
lstOptions TListBox Public/Published -
lstSources Simple (unknown) Public/Published -
lstSourcesCopy TListBox Public/Published -
spnMaxGraphs Simple (unknown) Public/Published -
spnMaxSelect Simple (unknown) Public/Published -
spnMinGraphHeight Simple (unknown) Public/Published -
txtMaxGraphs TEdit Public/Published -
txtMaxSelect TEdit Public/Published -
txtMinGraphHeight TEdit Public/Published -

Methods

Name Declaration Scope Comments
AssignHints procedure AssignHints; Public/Published -
btnAllClick procedure btnAllClick(Sender: TObject); Public/Published -
btnCloseClick procedure btnCloseClick(Sender: TObject); Public/Published -
btnPublicClick procedure btnPublicClick(Sender: TObject); Public/Published -
ChangeSettings procedure ChangeSettings(aGraphSetting: TGraphSetting); Public -
ChangeSources procedure ChangeSources(DisplaySource: TStrings); Public -
CheckSetting procedure CheckSetting(setting: string; turnon: boolean); Public/Published -
chklstOptionsClickCheck procedure chklstOptionsClickCheck(Sender: TObject); Public/Published -
Conversion procedure Conversion(conv: integer); Public -
DisplaySettings function DisplaySettings: string; Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetTypeList procedure GetTypeList(aList: TStrings); Public -
SaveClick procedure SaveClick(Sender: TObject); Public/Published -
SetSettings procedure SetSettings(aGraphSetting: TGraphSetting); Public -
SetSources procedure SetSources(aList, DisplaySource: TStrings); Public -
spnMaxGraphsClick procedure spnMaxGraphsClick(Sender: TObject; Button: TUDBtnType); Public/Published -
spnMaxSelectClick procedure spnMaxSelectClick(Sender: TObject; Button: TUDBtnType); Public/Published -
spnMinGraphHeightClick procedure spnMinGraphHeightClick(Sender: TObject; Button: TUDBtnType); Public/Published -
txtMaxGraphsChange procedure txtMaxGraphsChange(Sender: TObject); Public/Published -
txtMaxGraphsExit procedure txtMaxGraphsExit(Sender: TObject); Public/Published -
txtMaxGraphsKeyPress procedure txtMaxGraphsKeyPress(Sender: TObject; var Key: Char); Public/Published -
txtMaxSelectChange procedure txtMaxSelectChange(Sender: TObject); Public/Published -
txtMaxSelectExit procedure txtMaxSelectExit(Sender: TObject); Public/Published -
txtMaxSelectKeyPress procedure txtMaxSelectKeyPress(Sender: TObject; var Key: Char); Public/Published -
txtMinGraphHeightChange procedure txtMinGraphHeightChange(Sender: TObject); Public/Published -
txtMinGraphHeightExit procedure txtMinGraphHeightExit(Sender: TObject); Public/Published -
txtMinGraphHeightKeyPress procedure txtMinGraphHeightKeyPress(Sender: TObject; var Key: Char); Public/Published -
wmNCLButtonDown procedure wmNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN; Public -

Referenced By (3)

Module (line) Referrer Type
fGraphSettings (90) frmGraphSettings Read
fGraphSettings (154) - Read
fGraphSettings (160) - Read