Class

TfrmVitals

Module

fVitals

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmVitals = class(TfrmBase508Form)
  pnlTop: TPanel;
  chtChart: TChart;
  serTest: TLineSeries;
  pnlLeft: TORAutoPanel;
  lstDates: TORListBox;
  pnlBottom: TPanel;
  grdVitals: TCaptionStringGrid;
  pnlButtons: TPanel;
  lstVitals: TCaptionListBox;
  serTestX: TLineSeries;
  serTime: TPointSeries;
  lblNoResults: TStaticText;
  serTestY: TLineSeries;
  pnlLeftClient: TORAutoPanel;
  chkValues: TCheckBox;
  chk3D: TCheckBox;
  chkZoom: TCheckBox;
  pnlEnterVitals: TPanel;
  btnEnterVitals: TButton;
  popChart: TPopupMenu;
  popValues: TMenuItem;
  pop3D: TMenuItem;
  popZoom: TMenuItem;
  popZoomBack: TMenuItem;
  N1: TMenuItem;
  popCopy: TMenuItem;
  N2: TMenuItem;
  popDetails: TMenuItem;
  calVitalsRange: TORDateRangeDlg;
  N3: TMenuItem;
  popPrint: TMenuItem;
  dlgWinPrint: TPrintDialog;
  procedure lstDatesClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure lstVitalsClick(Sender: TObject);
  procedure grdVitalsSelectCell(Sender: TObject; Col, Row: Integer;
    var CanSelect: Boolean);
  procedure chkZoomClick(Sender: TObject);
  procedure chk3DClick(Sender: TObject);
  procedure chkValuesClick(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure pnlEnterVitalsResize(Sender: TObject);
  procedure btnEnterVitalsClick(Sender: TObject);
  procedure chtChartUndoZoom(Sender: TObject);
  procedure popValuesClick(Sender: TObject);
  procedure pop3DClick(Sender: TObject);
  procedure popZoomClick(Sender: TObject);
  procedure popZoomBackClick(Sender: TObject);
  procedure popCopyClick(Sender: TObject);
  procedure popDetailsClick(Sender: TObject);
  procedure chtChartClickSeries(Sender: TCustomChart;
    Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure chtChartMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure chtChartClickLegend(Sender: TCustomChart;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  procedure popChartPopup(Sender: TObject);
  procedure popPrintClick(Sender: TObject);
  procedure BeginEndDates(var ADate1, ADate2: TFMDateTime; var ADaysBack: integer);
  procedure FormKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  { Private declarations }
  procedure VGrid(griddata: TStrings);
  procedure WorksheetChart(test: string; aitems: TStrings);
  procedure GetStartStop(var start, stop: string; aitems: TStrings);
public
  { Public declarations }
  function FMToDateTime(FMDateTime: string): TDateTime;
end;

DFM Objects


frmVitals : TfrmVitals
 ├pnlTop : TPanel
 │ ├lblNoResults : TStaticText
 │ ├chtChart : TChart
 │ │ ├serTestY : TLineSeries
 │ │ ├serTestX : TLineSeries
 │ │ ├serTest : TLineSeries
 │ │ └serTime : TPointSeries
 │ └pnlLeft : TORAutoPanel
 │   ├lstDates : TORListBox
 │   ├pnlLeftClient : TORAutoPanel
 │   │ ├chkValues : TCheckBox
 │   │ ├chk3D : TCheckBox
 │   │ └chkZoom : TCheckBox
 │   └pnlEnterVitals : TPanel
 │     └btnEnterVitals : TButton
 ├pnlBottom : TPanel
 │ ├grdVitals : TCaptionStringGrid
 │ └pnlButtons : TPanel
 │   └lstVitals : TCaptionListBox
 ├amgrMain : TVA508AccessibilityManager
 ├popChart : TPopupMenu
 │ ├popValues : TMenuItem
 │ ├pop3D : TMenuItem
 │ ├popZoom : TMenuItem
 │ ├popZoomBack : TMenuItem
 │ ├N1 : TMenuItem
 │ ├popCopy : TMenuItem
 │ ├N2 : TMenuItem
 │ ├popDetails : TMenuItem
 │ ├N3 : TMenuItem
 │ └popPrint : TMenuItem
 ├calVitalsRange : TORDateRangeDlg
 └dlgWinPrint : TPrintDialog

Class Hierarchy


Class Fields

Name Type Scope Comments
btnEnterVitals TButton Public/Published -
calVitalsRange Simple (unknown) Public/Published -
chk3D TCheckBox Public/Published -
chkValues TCheckBox Public/Published -
chkZoom TCheckBox Public/Published -
chtChart Simple (unknown) Public/Published -
dlgWinPrint Simple (unknown) Public/Published -
grdVitals Simple (unknown) Public/Published -
lblNoResults TStaticText Public/Published -
lstDates TORListBox Public/Published -
lstVitals TCaptionListBox Public/Published -
N1 TMenuItem Public/Published -
N2 TMenuItem Public/Published -
N3 TMenuItem Public/Published -
pnlBottom TPanel Public/Published -
pnlButtons TPanel Public/Published -
pnlEnterVitals TPanel Public/Published -
pnlLeft Simple (unknown) Public/Published -
pnlLeftClient Simple (unknown) Public/Published -
pnlTop TPanel Public/Published -
pop3D TMenuItem Public/Published -
popChart TPopupMenu Public/Published -
popCopy TMenuItem Public/Published -
popDetails TMenuItem Public/Published -
popPrint TMenuItem Public/Published -
popValues TMenuItem Public/Published -
popZoom TMenuItem Public/Published -
popZoomBack TMenuItem Public/Published -
serTest Simple (unknown) Public/Published -
serTestX Simple (unknown) Public/Published -
serTestY Simple (unknown) Public/Published -
serTime Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
BeginEndDates procedure BeginEndDates(var ADate1, ADate2: TFMDateTime; var ADaysBack: integer); Public/Published -
btnEnterVitalsClick procedure btnEnterVitalsClick(Sender: TObject); Public/Published -
chk3DClick procedure chk3DClick(Sender: TObject); Public/Published -
chkValuesClick procedure chkValuesClick(Sender: TObject); Public/Published -
chkZoomClick procedure chkZoomClick(Sender: TObject); Public/Published -
chtChartClickLegend procedure chtChartClickLegend(Sender: TCustomChart; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
chtChartClickSeries procedure chtChartClickSeries(Sender: TCustomChart; Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
chtChartMouseDown procedure chtChartMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
chtChartUndoZoom procedure chtChartUndoZoom(Sender: TObject); Public/Published -
FMToDateTime function FMToDateTime(FMDateTime: string): TDateTime; Public Public declarations
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormKeyUp procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetStartStop procedure GetStartStop(var start, stop: string; aitems: TStrings); Private -
grdVitalsSelectCell procedure grdVitalsSelectCell(Sender: TObject; Col, Row: Integer; var CanSelect: Boolean); Public/Published -
lstDatesClick procedure lstDatesClick(Sender: TObject); Public/Published -
lstVitalsClick procedure lstVitalsClick(Sender: TObject); Public/Published -
pnlEnterVitalsResize procedure pnlEnterVitalsResize(Sender: TObject); Public/Published -
pop3DClick procedure pop3DClick(Sender: TObject); Public/Published -
popChartPopup procedure popChartPopup(Sender: TObject); Public/Published -
popCopyClick procedure popCopyClick(Sender: TObject); Public/Published -
popDetailsClick procedure popDetailsClick(Sender: TObject); Public/Published -
popPrintClick procedure popPrintClick(Sender: TObject); Public/Published -
popValuesClick procedure popValuesClick(Sender: TObject); Public/Published -
popZoomBackClick procedure popZoomBackClick(Sender: TObject); Public/Published -
popZoomClick procedure popZoomClick(Sender: TObject); Public/Published -
VGrid procedure VGrid(griddata: TStrings); Private
Private declarations
procedure SelectVitals(FontSize: Integer);
var
  frmVitals: TfrmVitals;
  firstchar: string;
  i: integer;
begin
  frmVitals := TfrmVitals.Create(Application);
  try
    ResizeAnchoredFormToFont(frmVitals);
    with frmVitals do
    begin
      with frmCover do
        for i := ComponentCount - 1 downto 0 do
          begin
            if Components[i] is TORListBox then
              begin
                case Components[i].Tag of
                  70:
                  if (Components[i] as TORListBox).ItemIndex > -1 then
                    begin
                      // changed to look at 2 chars so pain & pulse not confused {*KCM*}
                      firstchar := UpperCase(Copy(Piece((Components[i] as TORListBox).Items[(Components[i] as TORListBox).ItemIndex], '^', 2), 1, 2));
                      if firstchar = 'T' then
                        lstVitals.ItemIndex := 0
                      else if firstchar = 'P' then
                        lstVitals.ItemIndex := 1
                      else if firstchar = 'R' then
                        lstVitals.ItemIndex := 2
                      else if firstchar = 'BP' then
                        lstVitals.ItemIndex := 3
                      else if firstchar = 'HT' then
                        lstVitals.ItemIndex := 4
                      else if firstchar = 'WT' then
                        lstVitals.ItemIndex := 5
                      else if firstchar = 'PN' then
                        lstVitals.ItemIndex := 6;
                    end
                    else
                    begin
                      firstchar := '';
                      lstVitals.ItemIndex := 0;
                    end;
                end;
              end;
          end;
      ShowModal;
    end;
  finally
    frmVitals.Release;
  end;
end;
WorksheetChart procedure WorksheetChart(test: string; aitems: TStrings); Private -

Referenced By (3)

Module (line) Referrer Type
fVitals (119) frmVitals Read
fVitals (140) - Read
fVitals (142) - Read