Class

TfrmGraphs

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmGraphs = class(TfrmBase508Form)
  btnChangeSettings: TButton;
  btnClose: TButton;
  btnGraphSelections: TButton;
  bvlBottomLeft: TBevel;
  bvlBottomRight: TBevel;
  bvlTopLeft: TBevel;
  bvlTopRight: TBevel;
  calDateRange: TORDateRangeDlg;
  cboDateRange: TORComboBox;
  chartBase: TChart;
  chartDatelineBottom: TChart;
  chartDatelineTop: TChart;
  chkDualViews: TCheckBox;
  chkItemsBottom: TCheckBox;
  chkItemsTop: TCheckBox;
  dlgDate: TORDateTimeDlg;
  lblDateRange: TLabel;
  lstViewsBottom: TORListBox;
  lstViewsTop: TORListBox;
  lvwItemsBottom: TListView;
  lvwItemsTop: TListView;
  memBottom: TMemo;
  memTop: TMemo;
  memViewsBottom: TRichEdit;
  memViewsTop: TRichEdit;
  mnuCustom: TMenuItem;
  mnuFunctions1: TMenuItem;
  mnuGraphData: TMenuItem;
  mnuInverseValues: TMenuItem;
  mnuMHasNumeric1: TMenuItem;
  mnuPopGraph3D: TMenuItem;
  mnuPopGraphClear: TMenuItem;
  mnuPopGraphCopy: TMenuItem;
  mnuPopGraphDates: TMenuItem;
  mnuPopGraphDefineViews: TMenuItem;
  mnuPopGraphDetails: TMenuItem;
  mnuPopGraphDualViews: TMenuItem;
  mnuPopGraphGradient: TMenuItem;
  mnuPopGraphExport: TMenuItem;
  mnuPopGraphFixed: TMenuItem;
  mnuPopGraphHints: TMenuItem;
  mnuPopGraphHorizontal: TMenuItem;
  mnuPopGraphIsolate: TMenuItem;
  mnuPopGraphLegend: TMenuItem;
  mnuPopGraphLines: TMenuItem;
  mnuPopGraphMergeLabs: TMenuItem;
  mnuPopGraphPrint: TMenuItem;
  mnuPopGraphRemove: TMenuItem;
  mnuPopGraphReset: TMenuItem;
  mnuPopGraphSeparate1: TMenuItem;
  mnuPopGraphSort: TMenuItem;
  mnuPopGraphSplit: TMenuItem;
  mnuPopGraphStayOnTop: TMenuItem;
  mnuPopGraphStuff: TPopupMenu;
  mnuPopGraphSwap: TMenuItem;
  mnuPopGraphToday: TMenuItem;
  mnuPopGraphValues: TMenuItem;
  mnuPopGraphValueMarks: TMenuItem;
  mnuPopGraphVertical: TMenuItem;
  mnuPopGraphViewDefinition: TMenuItem;
  mnuPopGraphZoomBack: TMenuItem;
  mnuStandardDeviations: TMenuItem;
  mnuTest: TMenuItem;
  mnuTestCount: TMenuItem;
  N1: TMenuItem;
  N2: TMenuItem;
  N3: TMenuItem;
  N4: TMenuItem;
  pcBottom: TPageControl;
  pcTop: TPageControl;
  pnlBlankBottom: TPanel;
  pnlBlankTop: TPanel;
  pnlBottom: TPanel;
  pnlBottomRightPad: TPanel;
  pnlDatelineBottom: TPanel;
  pnlDatelineBottomSpacer: TORAutoPanel;
  pnlDatelineTop: TPanel;
  pnlDatelineTopSpacer: TORAutoPanel;
  pnlFooter: TPanel;
  pnlHeader: TPanel;
  pnlInfo: TORAutoPanel;
  pnlItemsBottom: TPanel;
  pnlItemsBottomInfo: TPanel;
  pnlItemsTop: TPanel;
  pnlItemsTopInfo: TPanel;
  pnlMain: TPanel;
  pnlScrollBottomBase: TPanel;
  pnlScrollTopBase: TPanel;
  pnlTemp: TPanel;
  pnlTop: TPanel;
  pnlTopRightPad: TPanel;
  scrlBottom: TScrollBox;
  scrlTop: TScrollBox;
  serDatelineBottom: TGanttSeries;
  serDatelineTop: TGanttSeries;
  splGraphs: TSplitter;
  splItemsBottom: TSplitter;
  splItemsTop: TSplitter;
  splViewsBottom: TSplitter;
  splViewsTop: TSplitter;
  timHintPause: TTimer;
  tsBottomCustom: TTabSheet;
  tsBottomItems: TTabSheet;
  tsBottomViews: TTabSheet;
  tsTopCustom: TTabSheet;
  tsTopItems: TTabSheet;
  tsTopViews: TTabSheet;

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

  procedure btnCloseClick(Sender: TObject);
  procedure btnChangeSettingsClick(Sender: TObject);
  procedure btnGraphSelectionsClick(Sender: TObject);

  procedure chkDualViewsClick(Sender: TObject);
  procedure chkItemsBottomClick(Sender: TObject);
  procedure chkItemsBottomEnter(Sender: TObject);
  procedure chkItemsTopClick(Sender: TObject);
  procedure mnuPopGraph3DClick(Sender: TObject);
  procedure mnuPopGraphClearClick(Sender: TObject);
  procedure mnuPopGraphDatesClick(Sender: TObject);
  procedure mnuPopGraphDetailsClick(Sender: TObject);
  procedure mnuPopGraphDualViewsClick(Sender: TObject);
  procedure mnuPopGraphExportClick(Sender: TObject);
  procedure mnuPopGraphFixedClick(Sender: TObject);
  procedure mnuPopGraphGradientClick(Sender: TObject);
  procedure mnuPopGraphHintsClick(Sender: TObject);
  procedure mnuPopGraphHorizontalClick(Sender: TObject);
  procedure mnuPopGraphIsolateClick(Sender: TObject);
  procedure mnuPopGraphLegendClick(Sender: TObject);
  procedure mnuPopGraphLinesClick(Sender: TObject);
  procedure mnuPopGraphMergeLabsClick(Sender: TObject);
  procedure mnuPopGraphPrintClick(Sender: TObject);
  procedure mnuPopGraphRemoveClick(Sender: TObject);
  procedure mnuPopGraphResetClick(Sender: TObject);
  procedure mnuPopGraphSeparate1Click(Sender: TObject);
  procedure mnuPopGraphStayOnTopClick(Sender: TObject);
  procedure mnuPopGraphSortClick(Sender: TObject);
  procedure mnuPopGraphSplitClick(Sender: TObject);
  procedure mnuPopGraphStuffPopup(Sender: TObject);
  procedure mnuPopGraphSwapClick(Sender: TObject);
  procedure mnuPopGraphTodayClick(Sender: TObject);
  procedure mnuPopGraphValueMarksClick(Sender: TObject);
  procedure mnuPopGraphValuesClick(Sender: TObject);
  procedure mnuPopGraphVerticalClick(Sender: TObject);
  procedure mnuPopGraphZoomBackClick(Sender: TObject);

  procedure splGraphsMoved(Sender: TObject);
  procedure splItemsBottomMoved(Sender: TObject);
  procedure splItemsTopMoved(Sender: TObject);

  procedure lvwItemsBottomChange(Sender: TObject; Item: TListItem;
    Change: TItemChange);
  procedure lvwItemsBottomClick(Sender: TObject);
  procedure lvwItemsBottomColumnClick(Sender: TObject; Column: TListColumn);
  procedure lvwItemsBottomCompare(Sender: TObject; Item1,
    Item2: TListItem; Data: Integer; var Compare: Integer);
  procedure lvwItemsTopChange(Sender: TObject; Item: TListItem;
    Change: TItemChange);
  procedure lvwItemsTopClick(Sender: TObject);
  procedure lvwItemsTopColumnClick(Sender: TObject; Column: TListColumn);
  procedure lvwItemsTopCompare(Sender: TObject; Item1, Item2: TListItem;
    Data: Integer; var Compare: Integer);
  procedure lvwItemsTopKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);

  procedure cboDateRangeChange(Sender: TObject);
  procedure cboDateRangeDropDown(Sender: TObject);

  procedure chartBaseClickLegend(Sender: TCustomChart;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  procedure chartBaseClickSeries(Sender: TCustomChart; Series: TChartSeries;
    ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  procedure chartBaseMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure chartBaseMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure chartBaseMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  procedure serDatelineTopGetMarkText(Sender: TChartSeries;
    ValueIndex: Integer; var MarkText: String);

  procedure ChartOnUndoZoom(Sender: TObject);
  procedure ChartOnZoom(Sender: TObject);
  procedure DateSteps(dateranges: string);
  procedure DisplayData(aSection: string);
  procedure DisplayDataInfo(aScrollBox: TScrollBox; aMemo: TMemo);
  procedure GraphSwap(bottomview, topview: integer);
  procedure GraphSwitch(bottomview, topview: integer);
  procedure FormatHint(var astring: string);
  procedure HideDates(aChart: TChart);
  procedure LabelClicks(aChart: TChart; aSeries: TChartSeries; lbutton: boolean; tmp: integer);
  procedure LabNameResults(astring: string; var labname, labresult: string);
  procedure MouseClicks(aChart: TChart; lbutton: boolean; X, Y: Integer);
  procedure PositionSelections(aListView: TListView);
  procedure SeriesClicks(aChart: TChart; aSeries: TChartSeries; aIndex: integer; lbutton: boolean);
  procedure SetupFields(settings: string);
  procedure SourcesDefault;
  procedure StayOnTop;

  procedure ZoomUpdate;
  procedure ZoomUpdateInfo(SmallTime, BigTime: TDateTime);
  procedure ZoomTo(SmallTime, BigTime: TDateTime);

  procedure lvwItemsBottomEnter(Sender: TObject);
  procedure lvwItemsTopEnter(Sender: TObject);

  procedure memBottomEnter(Sender: TObject);
  procedure memBottomExit(Sender: TObject);
  procedure memBottomKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  procedure memTopEnter(Sender: TObject);
  procedure memTopExit(Sender: TObject);
  procedure memTopKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

  procedure pnlScrollTopBaseResize(Sender: TObject);
  procedure timHintPauseTimer(Sender: TObject);

  procedure GetSize;
  procedure SetSize;
  procedure lstViewsBottomChange(Sender: TObject);
  procedure lstViewsBottomEnter(Sender: TObject);
  procedure lstViewsTopChange(Sender: TObject);
  procedure lstViewsTopEnter(Sender: TObject);
  procedure lstViewsTopMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure mnuCustomClick(Sender: TObject);
  procedure mnuGraphDataClick(Sender: TObject);
  procedure mnuMHasNumeric1Click(Sender: TObject);
  procedure mnuPopGraphViewDefinitionClick(Sender: TObject);
  procedure splViewsTopMoved(Sender: TObject);

private
  FBSortAscending: boolean;
  FBSortCol: integer;
  FDate1: Double;
  FDate2: Double;
  FSortAscending: boolean;
  FSortCol: integer;

  FActiveGraph: TChart;
  FArrowKeys: boolean;
  FBHighTime, FBLowTime: Double;
  FCreate: boolean;
  FDisplayFreeText: boolean;
  FFastData: boolean;
  FFastItems: boolean;
  FFastLabs: boolean;
  FFastTrack: boolean;
  FFirstClick: boolean;
  FFirstSwitch: boolean;
  FGraphClick: TCustomChart;
  FGraphSeries: TChartSeries;
  FGraphSetting: TGraphSetting;
  FGraphType: char;
  FGraphValueIndex: integer;
  FItemsSortedTop: boolean;
  FItemsSortedBottom: boolean;
  FMouseDown: boolean;
  FMTimestamp: string;
  FMToday: TFMDateTime;
  FNonNumerics: boolean; // used with pnlItemsTop.Tag & pnlItemsBottom.Tag
  FOnLegend:  integer;
  FOnMark: boolean;
  FOnSeries: integer;
  FOnValue: integer;
  FPointClick: boolean;
  FPrevEvent: string;
  FRetainZoom: boolean;
  FSources: TStrings;
  FSourcesDefault: TStrings;
  FTHighTime, FTLowTime: Double;
  FWarning: boolean;
  FX, FY: integer;
  FYMinValue: Double;
  FYMaxValue: Double;

  procedure AddOnLabGroups(aListBox: TORListBox; personien: int64);
  procedure AdjustTimeframe;
  procedure AllTypeDate(aType, aTypeName, firstline, secondline: string; aDate, aDate2: double);
  procedure AllDetails(aDate1, aDate2: TFMDateTime; aTempList: TStrings);
  procedure AssignProfile(aProfile, aSection: string);
  procedure AutoSelect(aListView: TListView);
  procedure BaseResize(aScrollBox: TScrollBox);
  procedure BorderValue(var BorderValue: double; value: double);
  procedure BottomAxis(aScrollBox: TScrollBox);
  procedure BPAdd(itemvalue: string; adatetime: TDateTime; var fixeddatevalue: double; serLine, serBPDiastolic, serBPMean: TLineSeries);
  procedure BPCheck(aChart: TChart; aFileType: string; serLine, serBPDiastolic, serBPMean: TLineSeries);
  procedure ChangeStyle;
  procedure ChartColor(aColor: TColor);
  procedure ChartStyle(aChart: TChart);
  procedure CheckExpandedLabs(aListView: TListView);
  procedure CheckMedNum(var typenum: string; aSeries: TChartSeries);
  procedure CheckProfile(var aProfile: string; var Updated: boolean);
  procedure CheckToAddData(aListView: TListView; aSection, TypeToCheck: string);
  procedure CreateExcelPatientHeader(var HeaderList: TStringList; PageTitle, Warning, DateRange: string);
  procedure CreatePatientHeader(var HeaderList: TStringList; PageTitle, Warning, DateRange: string);
  procedure DateRangeItems(oldestdate, newestdate: double; filenum: string);
  procedure DisplayType(itemtype, displayed: string);
  procedure FastLab(aList: TStringList);
  procedure FillViews;
  procedure FilterListView(oldestdate, newestdate: double);
  procedure FixedDates(var adatetime, adatetime1: TDateTime);
  procedure GetData(aString: string);
  procedure GraphBoundry(singlepoint: boolean);
  procedure GraphFooter(aChart: TChart; datediff: integer; aDate: TDateTime);
  procedure HideGraphs(action: boolean);
  procedure HighLow(fmtime, fmtime1: string; aChart: TChart; var adatetime, adatetime1: TDateTime);
  procedure InactivateHint;
  procedure InfoMessage(aCaption: string; aColor: TColor; aVisible: boolean);
  procedure ItemCheck(aListView: TListView; aItemName: string;
    var aNum: integer; var aTypeItem: string);
  procedure ItemDateRange(Sender: TCustomChart);
  procedure ItemsClick(Sender: TObject; aListView, aOtherListView: TListView;
    aCheckBox: TCheckBox; aListBox: TORListBox; aList: TStrings; aSection: string);
  procedure LabAdd(aListView: TListView; filename: string; aIndex, oldlisting: integer; selectlab: boolean);
  procedure LabCheck(aListView: TListView; aItemType: string; var oldlisting: integer);
  procedure LabData(aItemType, aItemName, aSection: string; getdata: boolean);
  procedure LoadDateRange;
  procedure LoadDisplayCheck(typeofitem: string; var updated: boolean);
  procedure LoadType(itemtype, displayed: string);
  procedure NextPointerStyle(aSeries: TChartSeries; aSerCnt: integer);
  procedure NonNumSave(aChart: TChart; aTitle, aSection: string; adatetime: TDateTime;
    var noncnt: integer; newcnt, aIndex: integer);
  procedure NotifyApps(aList: TStrings);
  procedure NumAdd(serLine: TLineSeries; value: double; adatetime: TDateTime;
    var fixeddatevalue, hi, lo: double; var high, low: string);
  procedure OneDayTypeDetails(aTypeItem: string);
  procedure OtherInfo(aTypeItem, aResult: string; aDateTime: double; var moreinfo: string);
  procedure PadNonNum(aChart: TChart; aSection: string; var listofseries: string; var bmax, tmax: integer);
  procedure PainAdd(serBlank: TPointSeries);
  procedure RefUnits(aItem, aSpec: string; var low, high, units: string);
  procedure ResultValue(var resultstring, seriestitle: string; typenum, typeitem: string;
    Sender: TCustomChart; aSeries: TChartSeries; ValueIndex, SeriesNum: Integer; var OKToUse: boolean);
  procedure SaveTestData(typeitem: string);
  procedure SelCopy(aListView: TListView; aList: TStrings);
  procedure SelReset(aList: TStrings; aListView: TListView);
  procedure SelectItem(aListView: TListView; typeitem: string);
  procedure SeriesForLabels(aChart: TChart; aID: string; pad: double);
  procedure SetProfile(aProfile, aName: string; aListView: TListView);
  procedure SetRef(var datax: string);
  procedure SetRefNonNum(var datax: string);
  procedure SizeDates(aChart: TChart; aSmallTime, aBigTime: TDateTime);
  procedure SizeTogether(onlylines, nolines, anylines: Boolean; aScroll: TScrollBox;
    aChart: TChart; aPanel, aPanelBase: TPanel; portion: Double);
  procedure SpecRefCheck(aItemType, aItemName: string; var singlespec: boolean);
  procedure SpecRefSet(aItemType, aItemName: string);
  procedure SplitClick;
  procedure SortListView;
  procedure StackNonNum(astring: string; var offset, bmax, tmax: integer; var blabelon, tlabelon: boolean);
  procedure TempCheck(typeitem: string; var levelseq: double);
  procedure TempData(aStringList: TStringList; aType: string; dt1, dt2: double);
  procedure UpdateView(filename, filenum, itemnum, aString: string; aListView: TListView);
  procedure ValueDates(aSeries: TChartSeries; ValueIndex: Integer; var resultdate, otherdate: string; var startdate: double);
  procedure ViewsChange(aListView: TListView; aListBox: TORListBox; aSection: string);

  procedure MakeSeparate(aScrollBox: TScrollBox; aListView: TListView; aPadPanel: TPanel; section: string);
  procedure MakeSeparateItems(aScrollBox: TScrollBox; aListView: TListView; section: string);
  procedure MakeTogether(aScrollBox: TScrollBox; aListView: TListView; aPadPanel: TPanel; section: string);
  procedure MakeTogetherMaybe(aScrollBox: TScrollBox; aListView: TListView; aPadPanel: TPanel; section: string);
  procedure MakeTogetherNoLines(aListView: TListView; section: string);
  procedure MakeTogetherOnlyLines(aListView: TListView; section: string; aChart: TChart);
  procedure MakeTogetherAnyLines(aListView: TListView; section: string; aChart: TChart);

  procedure MakeChart(aChart: TChart; aScrollBox: TScrollBox);
  procedure MakeComments(aChart: TChart);
  procedure MakeDateline(section, aTitle, aFileType: string; aChart: TChart; graphtype: integer;
    var bcnt, pcnt, gcnt, vcnt: integer);
  procedure MakeNonNumerics(aChart: TChart);
  procedure MakeNonNumSeries(aChart: TChart; padvalue, highestvalue, lowestvalue: double; listofseries, section: string);
  procedure MakeOtherSeries(aChart: TChart);
  procedure MakeSeriesInfo(aChart: TChart; aSeries: TChartSeries; aTitle, aFileType: string; aSerCnt: integer);
  procedure MakeSeriesPoint(aChart: TChart; aPointSeries: TPointSeries);
  procedure MakeSeriesRef(aChart: TChart; aTest, aRef: TLineSeries; aTitle, aValue: string; aDate: double);
  procedure MakeSeriesBP(aChart: TChart; aTest, aBP: TLineSeries; aFileType: string);

  procedure MakeBarSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
  procedure MakeLineSeries(aChart: TChart; aTitle, aFileType, section: string;
    var aSerCnt, aNonCnt: integer; multiline: boolean);
  procedure MakeGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);  // good one
  procedure MakePointSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);
  procedure MakeVisitGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer);

  function BPValue(aDateTime: TDateTime): string;
  function DateRangeMultiItems(aOldDate, aNewDate: double; aMultiItem: string): boolean;
  function DatesInRange(EarlyDate, RecentDate, Date1, Date2: double): boolean;
  function DCName(aDCien: string): string;
  function ExpandTax(profile: string): string;
  function FileNameX(filenum: string): string;
  function FMCorrectedDate(fmtime: string): string;
  function GraphTypeNum(aType: string): integer;
  function HSAbbrev(aType: string): boolean;
  function InvVal(value: double): double;
  function ItemName(filenum, itemnum: string): string;
  function MergedLabsSelected: boolean;
  function NextColor(aCnt: integer): TColor;
  function NonNumText(listnum, seriesnum, valueindex: integer): string;
  function PadLeftEvent(aWidth: integer): integer;
  function PadLeftNonNumeric(aWidth: integer): integer;
  function PortionSize(lcnt, pcnt, gcnt, vcnt, bcnt: integer): double;
  function ProfileName(aProfile, aName, aString: string): string;
  function SelectRef(aRef: string): string;
  function SingleLabTest(aListView: TListView): boolean;
  function StdDev(value, high, low: double): double;
  function TitleInfo(filetype, typeitem, caption: string): string;
  function TypeIsDisplayed(itemtype: string): boolean;
  function TypeIsLoaded(itemtype: string): boolean;
  function TypeString(filenum: string): string;
  function ValueText(Sender: TCustomChart; aSeries: TChartSeries; ValueIndex: Integer): string;
protected
  procedure UpdateAccessibilityActions(var Actions: TAccessibilityActions); override;
public
  procedure CheckContext(var usecontext: boolean);
  procedure DateDefaults;
  procedure DisplayFreeText(aChart: TChart);
  procedure InitialData;
  procedure Initialize;
  procedure InitialRetain;
  procedure LoadListView(aList: TStrings);
  procedure SetFontSize(FontSize: integer);
  procedure SourceContext;
  procedure Switch;
  procedure ViewDefinition(profile: string; amemo: TRichEdit);
  procedure ViewSelections;

  function FMToDateTime(FMDateTime: string): TDateTime;
end;

DFM Objects


frmGraphs : TfrmGraphs
 ├pnlHeader : TPanel
 │ ├pnlTemp : TPanel
 │ ├pnlInfo : TORAutoPanel
 │ └chartBase : TChart
 ├pnlFooter : TPanel
 │ ├lblDateRange : TLabel
 │ ├btnClose : TButton
 │ ├btnChangeSettings : TButton
 │ ├cboDateRange : TORComboBox
 │ ├chkDualViews : TCheckBox
 │ └btnGraphSelections : TButton
 ├pnlMain : TPanel
 │ ├splGraphs : TSplitter
 │ ├pnlTop : TPanel
 │ │ ├splItemsTop : TSplitter
 │ │ ├pnlItemsTop : TPanel
 │ │ │ ├pnlItemsTopInfo : TPanel
 │ │ │ │ ├bvlBottomLeft : TBevel
 │ │ │ │ ├bvlBottomRight : TBevel
 │ │ │ │ └chkItemsTop : TCheckBox
 │ │ │ └pcTop : TPageControl
 │ │ │   ├tsTopItems : TTabSheet
 │ │ │   │ └lvwItemsTop : TListView
 │ │ │   ├tsTopViews : TTabSheet
 │ │ │   │ ├splViewsTop : TSplitter
 │ │ │   │ ├lstViewsTop : TORListBox
 │ │ │   │ └memViewsTop : TRichEdit
 │ │ │   └tsTopCustom : TTabSheet
 │ │ ├pnlTopRightPad : TPanel
 │ │ ├pnlScrollTopBase : TPanel
 │ │ │ ├pnlBlankTop : TPanel
 │ │ │ ├scrlTop : TScrollBox
 │ │ │ └pnlDatelineTop : TPanel
 │ │ │   ├chartDatelineTop : TChart
 │ │ │   │ └serDatelineTop : TGanttSeries
 │ │ │   └pnlDatelineTopSpacer : TORAutoPanel
 │ │ └memTop : TMemo
 │ └pnlBottom : TPanel
 │   ├splItemsBottom : TSplitter
 │   ├pnlItemsBottom : TPanel
 │   │ ├pnlItemsBottomInfo : TPanel
 │   │ │ ├bvlTopLeft : TBevel
 │   │ │ ├bvlTopRight : TBevel
 │   │ │ └chkItemsBottom : TCheckBox
 │   │ └pcBottom : TPageControl
 │   │   ├tsBottomItems : TTabSheet
 │   │   │ └lvwItemsBottom : TListView
 │   │   ├tsBottomViews : TTabSheet
 │   │   │ ├splViewsBottom : TSplitter
 │   │   │ ├lstViewsBottom : TORListBox
 │   │   │ └memViewsBottom : TRichEdit
 │   │   └tsBottomCustom : TTabSheet
 │   ├pnlBottomRightPad : TPanel
 │   ├pnlScrollBottomBase : TPanel
 │   │ ├pnlBlankBottom : TPanel
 │   │ ├pnlDatelineBottom : TPanel
 │   │ │ ├chartDatelineBottom : TChart
 │   │ │ │ └serDatelineBottom : TGanttSeries
 │   │ │ └pnlDatelineBottomSpacer : TORAutoPanel
 │   │ └scrlBottom : TScrollBox
 │   └memBottom : TMemo
 ├amgrMain : TVA508AccessibilityManager
 ├mnuPopGraphStuff : TPopupMenu
 │ ├mnuPopGraphDetails : TMenuItem
 │ ├mnuPopGraphValueMarks : TMenuItem
 │ ├mnuPopGraphViewDefinition : TMenuItem
 │ ├mnuPopGraphDefineViews : TMenuItem
 │ ├mnuPopGraphChangeViews : TMenuItem
 │ ├N4 : TMenuItem
 │ ├mnuPopGraphReset : TMenuItem
 │ ├mnuPopGraphZoomBack : TMenuItem
 │ ├mnuPopGraphSplit : TMenuItem
 │ ├mnuPopGraphSwap : TMenuItem
 │ ├mnuPopGraphIsolate : TMenuItem
 │ ├mnuPopGraphRemove : TMenuItem
 │ ├N1 : TMenuItem
 │ ├mnuPopGraphStayOnTop : TMenuItem
 │ ├mnuPopGraphDualViews : TMenuItem
 │ ├mnuPopGraphSeparate1 : TMenuItem
 │ ├mnuPopGraph3D : TMenuItem
 │ ├mnuPopGraphLegend : TMenuItem
 │ ├mnuPopGraphValues : TMenuItem
 │ ├mnuPopGraphFixed : TMenuItem
 │ ├mnuPopGraphVertical : TMenuItem
 │ ├mnuPopGraphHorizontal : TMenuItem
 │ ├mnuPopGraphLines : TMenuItem
 │ ├mnuPopGraphDates : TMenuItem
 │ ├mnuPopGraphSort : TMenuItem
 │ ├mnuPopGraphClear : TMenuItem
 │ ├mnuPopGraphGradient : TMenuItem
 │ ├mnuPopGraphHints : TMenuItem
 │ ├mnuPopGraphMergeLabs : TMenuItem
 │ ├N2 : TMenuItem
 │ ├mnuPopGraphCopy : TMenuItem
 │ ├mnuPopGraphExport : TMenuItem
 │ ├mnuPopGraphPrint : TMenuItem
 │ ├N3 : TMenuItem
 │ ├mnuTest : TMenuItem
 │ ├mnuFunctions1 : TMenuItem
 │ │ ├mnuInverseValues : TMenuItem
 │ │ └mnuStandardDeviations : TMenuItem
 │ ├mnuCustom : TMenuItem
 │ ├mnuMHasNumeric1 : TMenuItem
 │ ├mnuGraphData : TMenuItem
 │ ├mnuPopGraphToday : TMenuItem
 │ └mnuTestCount : TMenuItem
 ├calDateRange : TORDateRangeDlg
 ├dlgDate : TORDateTimeDlg
 └timHintPause : TTimer

Class Hierarchy


Class Fields

Name Type Scope Comments
btnChangeSettings TButton Public/Published -
btnClose TButton Public/Published -
btnGraphSelections TButton Public/Published -
bvlBottomLeft Simple (unknown) Public/Published -
bvlBottomRight Simple (unknown) Public/Published -
bvlTopLeft Simple (unknown) Public/Published -
bvlTopRight Simple (unknown) Public/Published -
calDateRange Simple (unknown) Public/Published -
cboDateRange TORComboBox Public/Published -
chartBase TChart Public/Published -
chartDatelineBottom TChart Public/Published -
chartDatelineTop TChart Public/Published -
chkDualViews TCheckBox Public/Published -
chkItemsBottom TCheckBox Public/Published -
chkItemsTop TCheckBox Public/Published -
dlgDate Simple (unknown) Public/Published -
FActiveGraph TChart Private -
FArrowKeys Boolean Private -
FBHighTime Double Private -
FBLowTime Double Private -
FBSortAscending Boolean Private -
FBSortCol Integer Private -
FCreate Boolean Private -
FDate1 Double Private -
FDate2 Double Private -
FDisplayFreeText Boolean Private -
FFastData Boolean Private -
FFastItems Boolean Private -
FFastLabs Boolean Private -
FFastTrack Boolean Private -
FFirstClick Boolean Private -
FFirstSwitch Boolean Private -
FGraphClick TCustomChart Private -
FGraphSeries TChartSeries Private -
FGraphSetting TGraphSetting Private -
FGraphType Char Private -
FGraphValueIndex Integer Private -
FItemsSortedBottom Boolean Private -
FItemsSortedTop Boolean Private -
FMouseDown Boolean Private -
FMTimestamp UnicodeString Private -
FMToday TFMDateTime Private -
FNonNumerics Boolean Private Used with pnlItemsTop.Tag & pnlItemsBottom.Tag
FOnLegend Integer Private -
FOnMark Boolean Private -
FOnSeries Integer Private -
FOnValue Integer Private -
FPointClick Boolean Private -
FPrevEvent UnicodeString Private -
FRetainZoom Boolean Private -
FSortAscending Boolean Private -
FSortCol Integer Private -
FSources TStrings Private -
FSourcesDefault TStrings Private -
FTHighTime Double Private -
FTLowTime Double Private -
FWarning Boolean Private -
FX Integer Private -
FY Integer Private -
FYMaxValue Double Private -
FYMinValue Double Private -
lblDateRange TLabel Public/Published -
lstViewsBottom TORListBox Public/Published -
lstViewsTop TORListBox Public/Published -
lvwItemsBottom TListView Public/Published -
lvwItemsTop TListView Public/Published -
memBottom TMemo Public/Published -
memTop TMemo Public/Published -
memViewsBottom TRichEdit Public/Published -
memViewsTop TRichEdit Public/Published -
mnuCustom TMenuItem Public/Published -
mnuFunctions1 TMenuItem Public/Published -
mnuGraphData TMenuItem Public/Published -
mnuInverseValues TMenuItem Public/Published -
mnuMHasNumeric1 TMenuItem Public/Published -
mnuPopGraph3D TMenuItem Public/Published -
mnuPopGraphClear TMenuItem Public/Published -
mnuPopGraphCopy TMenuItem Public/Published -
mnuPopGraphDates TMenuItem Public/Published -
mnuPopGraphDefineViews TMenuItem Public/Published -
mnuPopGraphDetails TMenuItem Public/Published -
mnuPopGraphDualViews TMenuItem Public/Published -
mnuPopGraphExport TMenuItem Public/Published -
mnuPopGraphFixed TMenuItem Public/Published -
mnuPopGraphGradient TMenuItem Public/Published -
mnuPopGraphHints TMenuItem Public/Published -
mnuPopGraphHorizontal TMenuItem Public/Published -
mnuPopGraphIsolate TMenuItem Public/Published -
mnuPopGraphLegend TMenuItem Public/Published -
mnuPopGraphLines TMenuItem Public/Published -
mnuPopGraphMergeLabs TMenuItem Public/Published -
mnuPopGraphPrint TMenuItem Public/Published -
mnuPopGraphRemove TMenuItem Public/Published -
mnuPopGraphReset TMenuItem Public/Published -
mnuPopGraphSeparate1 TMenuItem Public/Published -
mnuPopGraphSort TMenuItem Public/Published -
mnuPopGraphSplit TMenuItem Public/Published -
mnuPopGraphStayOnTop TMenuItem Public/Published -
mnuPopGraphStuff TPopupMenu Public/Published -
mnuPopGraphSwap TMenuItem Public/Published -
mnuPopGraphToday TMenuItem Public/Published -
mnuPopGraphValueMarks TMenuItem Public/Published -
mnuPopGraphValues TMenuItem Public/Published -
mnuPopGraphVertical TMenuItem Public/Published -
mnuPopGraphViewDefinition TMenuItem Public/Published -
mnuPopGraphZoomBack TMenuItem Public/Published -
mnuStandardDeviations TMenuItem Public/Published -
mnuTest TMenuItem Public/Published -
mnuTestCount TMenuItem Public/Published -
N1 TMenuItem Public/Published -
N2 TMenuItem Public/Published -
N3 TMenuItem Public/Published -
N4 TMenuItem Public/Published -
pcBottom Simple (unknown) Public/Published -
pcTop Simple (unknown) Public/Published -
pnlBlankBottom TPanel Public/Published -
pnlBlankTop TPanel Public/Published -
pnlBottom TPanel Public/Published -
pnlBottomRightPad TPanel Public/Published -
pnlDatelineBottom TPanel Public/Published -
pnlDatelineBottomSpacer TORAutoPanel Public/Published -
pnlDatelineTop TPanel Public/Published -
pnlDatelineTopSpacer TORAutoPanel Public/Published -
pnlFooter TPanel Public/Published -
pnlHeader TPanel Public/Published -
pnlInfo TORAutoPanel Public/Published -
pnlItemsBottom TPanel Public/Published -
pnlItemsBottomInfo TPanel Public/Published -
pnlItemsTop TPanel Public/Published -
pnlItemsTopInfo TPanel Public/Published -
pnlMain TPanel Public/Published -
pnlScrollBottomBase TPanel Public/Published -
pnlScrollTopBase TPanel Public/Published -
pnlTemp TPanel Public/Published -
pnlTop TPanel Public/Published -
pnlTopRightPad TPanel Public/Published -
scrlBottom Simple (unknown) Public/Published -
scrlTop Simple (unknown) Public/Published -
serDatelineBottom Simple (unknown) Public/Published -
serDatelineTop Simple (unknown) Public/Published -
splGraphs TSplitter Public/Published -
splItemsBottom TSplitter Public/Published -
splItemsTop TSplitter Public/Published -
splViewsBottom TSplitter Public/Published -
splViewsTop TSplitter Public/Published -
timHintPause TTimer Public/Published -
tsBottomCustom Simple (unknown) Public/Published -
tsBottomItems Simple (unknown) Public/Published -
tsBottomViews Simple (unknown) Public/Published -
tsTopCustom Simple (unknown) Public/Published -
tsTopItems Simple (unknown) Public/Published -
tsTopViews Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
AddOnLabGroups procedure AddOnLabGroups(aListBox: TORListBox; personien: int64); Private -
AdjustTimeframe procedure AdjustTimeframe; Private -
AllDetails procedure AllDetails(aDate1, aDate2: TFMDateTime; aTempList: TStrings); Private -
AllTypeDate procedure AllTypeDate(aType, aTypeName, firstline, secondline: string; aDate, aDate2: double); Private -
AssignProfile procedure AssignProfile(aProfile, aSection: string); Private -
AutoSelect procedure AutoSelect(aListView: TListView); Private -
BaseResize procedure BaseResize(aScrollBox: TScrollBox); Private -
BorderValue procedure BorderValue(var bordervalue: double; value: double); Private -
BottomAxis procedure BottomAxis(aScrollBox: TScrollBox); Private -
BPAdd procedure BPAdd(itemvalue: string; adatetime: TDateTime; var fixeddatevalue: double; serLine, serBPDiastolic, serBPMean: TLineSeries); Private -
BPCheck procedure BPCheck(aChart: TChart; aFileType: string; serLine, serBPDiastolic, serBPMean: TLineSeries); Private -
BPValue function BPValue(aDateTime: TDateTime): string; Private -
btnChangeSettingsClick procedure btnChangeSettingsClick(Sender: TObject); Public/Published -
btnCloseClick procedure btnCloseClick(Sender: TObject); Public/Published -
btnGraphSelectionsClick procedure btnGraphSelectionsClick(Sender: TObject); Public/Published -
cboDateRangeChange procedure cboDateRangeChange(Sender: TObject); Public/Published -
cboDateRangeDropDown procedure cboDateRangeDropDown(Sender: TObject); Public/Published -
ChangeStyle procedure ChangeStyle; Private -
chartBaseClickLegend procedure chartBaseClickLegend(Sender: TCustomChart; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
chartBaseClickSeries procedure chartBaseClickSeries(Sender: TCustomChart; Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
chartBaseMouseDown procedure chartBaseMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
chartBaseMouseMove procedure chartBaseMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published -
chartBaseMouseUp procedure chartBaseMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
ChartColor procedure ChartColor(aColor: TColor); Private -
ChartOnUndoZoom procedure ChartOnUndoZoom(Sender: TObject); Public/Published -
ChartOnZoom procedure ChartOnZoom(Sender: TObject); Public/Published -
ChartStyle procedure ChartStyle(aChart: TChart); Private -
CheckContext procedure CheckContext(var usecontext: boolean); Public -
CheckExpandedLabs procedure CheckExpandedLabs(aListView: TListView); Private When using Reports graph and Float graph, multispec lab tests need to update correctly
CheckMedNum procedure CheckMedNum(var typenum: string; aSeries: TChartSeries); Private -
CheckProfile procedure CheckProfile(var aProfile: string; var Updated: boolean); Private -
CheckToAddData procedure CheckToAddData(aListView: TListView; aSection, TypeToCheck: string); Private -
chkDualViewsClick procedure chkDualViewsClick(Sender: TObject); Public/Published -
chkItemsBottomClick procedure chkItemsBottomClick(Sender: TObject); Public/Published -
chkItemsBottomEnter procedure chkItemsBottomEnter(Sender: TObject); Public/Published -
chkItemsTopClick procedure chkItemsTopClick(Sender: TObject); Public/Published -
CreateExcelPatientHeader procedure CreateExcelPatientHeader(var HeaderList: TStringList; PageTitle, Warning, DateRange: string); Private This procedure modified from rReports
CreatePatientHeader procedure CreatePatientHeader(var HeaderList: TStringList; PageTitle, Warning, DateRange: string); Private This procedure modified from rReports
DateDefaults procedure DateDefaults; Public -
DateRangeItems procedure DateRangeItems(oldestdate, newestdate: double; filenum: string); Private -
DateRangeMultiItems function DateRangeMultiItems(aOldDate, aNewDate: double; aMultiItem: string): boolean; Private -
DatesInRange function DatesInRange(EarlyDate, RecentDate, Date1, Date2: double): boolean; Private -
DateSteps procedure DateSteps(dateranges: string); Public/Published -
DCName function DCName(aDCien: string): string; Private -
DisplayData procedure DisplayData(aSection: string); Public/Published -
DisplayDataInfo procedure DisplayDataInfo(aScrollBox: TScrollBox; aMemo: TMemo); Public/Published -
DisplayFreeText procedure DisplayFreeText(aChart: TChart); Public -
DisplayType procedure DisplayType(itemtype, displayed: string); Private -
ExpandTax function ExpandTax(profile: string): string; Private -
FastLab procedure FastLab(aList: TStringList); Private -
FileNameX function FileNameX(filenum: string): string; Private -
FillViews procedure FillViews; Private -
FilterListView procedure FilterListView(oldestdate, newestdate: double); Private -
FixedDates procedure FixedDates(var adatetime, adatetime1: TDateTime); Private -
FMCorrectedDate function FMCorrectedDate(fmtime: string): string; Private -
FMToDateTime function FMToDateTime(FMDateTime: string): TDateTime; Public -
FormatHint procedure FormatHint(var astring: string); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetData procedure GetData(aString: string); Private -
GetSize procedure GetSize; Public/Published -
GraphBoundry procedure GraphBoundry(singlepoint: boolean); Private -
GraphFooter procedure GraphFooter(aChart: TChart; datediff: integer; aDate: TDateTime); Private -
GraphSwap procedure GraphSwap(bottomview, topview: integer); Public/Published -
GraphSwitch procedure GraphSwitch(bottomview, topview: integer); Public/Published -
GraphTypeNum function GraphTypeNum(aType: string): integer; Private -
HideDates procedure HideDates(aChart: TChart); Public/Published -
HideGraphs procedure HideGraphs(action: boolean); Private -
HighLow procedure HighLow(fmtime, fmtime1: string; aChart: TChart; var adatetime, adatetime1: TDateTime); Private -
HSAbbrev function HSAbbrev(aType: string): boolean; Private -
InactivateHint procedure InactivateHint; Private -
InfoMessage procedure InfoMessage(aCaption: string; aColor: TColor; aVisible: boolean); Private -
InitialData procedure InitialData; Public -
Initialize procedure Initialize; Public -
InitialRetain procedure InitialRetain; Public -
InvVal function InvVal(value: double): double; Private -
ItemCheck procedure ItemCheck(aListView: TListView; aItemName: string; var aNum: integer; var aTypeItem: string); Private -
ItemDateRange procedure ItemDateRange(Sender: TCustomChart); Private -
ItemName function ItemName(filenum, itemnum: string): string; Private -
ItemsClick procedure ItemsClick(Sender: TObject; aListView, aOtherListView: TListView; aCheckBox: TCheckBox; aListBox: TORListBox; aList: TStrings; aSection: string); Private -
LabAdd procedure LabAdd(aListView: TListView; filename: string; aIndex, oldlisting: integer; selectlab: boolean); Private -
LabCheck procedure LabCheck(aListView: TListView; aItemType: string; var oldlisting: integer); Private -
LabData procedure LabData(aItemType, aItemName, aSection: string; getdata: boolean); Private -
LabelClicks procedure LabelClicks(aChart: TChart; aSeries: TChartSeries; lbutton: boolean; tmp: integer); Public/Published -
LabNameResults procedure LabNameResults(astring: string; var labname, labresult: string); Public/Published -
LoadDateRange procedure LoadDateRange; Private -
LoadDisplayCheck procedure LoadDisplayCheck(typeofitem: string; var updated: boolean); Private -
LoadListView procedure LoadListView(aList: TStrings); Public -
LoadType procedure LoadType(itemtype, displayed: string); Private -
lstViewsBottomChange procedure lstViewsBottomChange(Sender: TObject); Public/Published -
lstViewsBottomEnter procedure lstViewsBottomEnter(Sender: TObject); Public/Published -
lstViewsTopChange procedure lstViewsTopChange(Sender: TObject); Public/Published -
lstViewsTopEnter procedure lstViewsTopEnter(Sender: TObject); Public/Published -
lstViewsTopMouseDown procedure lstViewsTopMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
lvwItemsBottomChange procedure lvwItemsBottomChange(Sender: TObject; Item: TListItem; Change: TItemChange); Public/Published -
lvwItemsBottomClick procedure lvwItemsBottomClick(Sender: TObject); Public/Published -
lvwItemsBottomColumnClick procedure lvwItemsBottomColumnClick(Sender: TObject; Column: TListColumn); Public/Published -
lvwItemsBottomCompare procedure lvwItemsBottomCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); Public/Published -
lvwItemsBottomEnter procedure lvwItemsBottomEnter(Sender: TObject); Public/Published -
lvwItemsTopChange procedure lvwItemsTopChange(Sender: TObject; Item: TListItem; Change: TItemChange); Public/Published -
lvwItemsTopClick procedure lvwItemsTopClick(Sender: TObject); Public/Published -
lvwItemsTopColumnClick procedure lvwItemsTopColumnClick(Sender: TObject; Column: TListColumn); Public/Published -
lvwItemsTopCompare procedure lvwItemsTopCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); Public/Published -
lvwItemsTopEnter procedure lvwItemsTopEnter(Sender: TObject); Public/Published -
lvwItemsTopKeyDown procedure lvwItemsTopKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
MakeBarSeries procedure MakeBarSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); Private -
MakeChart procedure MakeChart(aChart: TChart; aScrollBox: TScrollBox); Private -
MakeComments procedure MakeComments(aChart: TChart); Private -
MakeDateline procedure MakeDateline(section, aTitle, aFileType: string; aChart: TChart; graphtype: integer; var bcnt, pcnt, gcnt, vcnt: integer); Private -
MakeGanttSeries procedure MakeGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); Private Good one
MakeLineSeries procedure MakeLineSeries(aChart: TChart; aTitle, aFileType, section: string; var aSerCnt, aNonCnt: integer; multiline: boolean); Private -
MakeNonNumerics procedure MakeNonNumerics(aChart: TChart); Private -
MakeNonNumSeries procedure MakeNonNumSeries(aChart: TChart; padvalue, highestvalue, lowestvalue: double; listofseries, section: string); Private -
MakeOtherSeries procedure MakeOtherSeries(aChart: TChart); Private -
MakePointSeries procedure MakePointSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); Private -
MakeSeparate procedure MakeSeparate(aScrollBox: TScrollBox; aListView: TListView; aPadPanel: TPanel; section: string); Private -
MakeSeparateItems procedure MakeSeparateItems(aScrollBox: TScrollBox; aListView: TListView; section: string); Private -
MakeSeriesBP procedure MakeSeriesBP(aChart: TChart; aTest, aBP: TLineSeries; aFileType: string); Private -
MakeSeriesInfo procedure MakeSeriesInfo(aChart: TChart; aSeries: TChartSeries; aTitle, aFileType: string; aSerCnt: integer); Private -
MakeSeriesPoint procedure MakeSeriesPoint(aChart: TChart; aPointSeries: TPointSeries); Private -
MakeSeriesRef procedure MakeSeriesRef(aChart: TChart; aTest, aRef: TLineSeries; aTitle, aValue: string; aDate: double); Private -
MakeTogether procedure MakeTogether(aScrollBox: TScrollBox; aListView: TListView; aPadPanel: TPanel; section: string); Private -
MakeTogetherAnyLines procedure MakeTogetherAnyLines(aListView: TListView; section: string; aChart: TChart); Private -
MakeTogetherMaybe procedure MakeTogetherMaybe(aScrollBox: TScrollBox; aListView: TListView; aPadPanel: TPanel; section: string); Private -
MakeTogetherNoLines procedure MakeTogetherNoLines(aListView: TListView; section: string); Private -
MakeTogetherOnlyLines procedure MakeTogetherOnlyLines(aListView: TListView; section: string; aChart: TChart); Private -
MakeVisitGanttSeries procedure MakeVisitGanttSeries(aChart: TChart; aTitle, aFileType: string; var aSerCnt: integer); Private -
memBottomEnter procedure memBottomEnter(Sender: TObject); Public/Published -
memBottomExit procedure memBottomExit(Sender: TObject); Public/Published -
memBottomKeyDown procedure memBottomKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
memTopEnter procedure memTopEnter(Sender: TObject); Public/Published -
memTopExit procedure memTopExit(Sender: TObject); Public/Published -
memTopKeyDown procedure memTopKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
MergedLabsSelected function MergedLabsSelected: boolean; Private -
mnuCustomClick procedure mnuCustomClick(Sender: TObject); Public/Published -
mnuGraphDataClick procedure mnuGraphDataClick(Sender: TObject); Public/Published -
mnuMHasNumeric1Click procedure mnuMHasNumeric1Click(Sender: TObject); Public/Published -
mnuPopGraph3DClick procedure mnuPopGraph3DClick(Sender: TObject); Public/Published -
mnuPopGraphClearClick procedure mnuPopGraphClearClick(Sender: TObject); Public/Published -
mnuPopGraphDatesClick procedure mnuPopGraphDatesClick(Sender: TObject); Public/Published -
mnuPopGraphDetailsClick procedure mnuPopGraphDetailsClick(Sender: TObject); Public/Published -
mnuPopGraphDualViewsClick procedure mnuPopGraphDualViewsClick(Sender: TObject); Public/Published -
mnuPopGraphExportClick procedure mnuPopGraphExportClick(Sender: TObject); Public/Published -
mnuPopGraphFixedClick procedure mnuPopGraphFixedClick(Sender: TObject); Public/Published -
mnuPopGraphGradientClick procedure mnuPopGraphGradientClick(Sender: TObject); Public/Published -
mnuPopGraphHintsClick procedure mnuPopGraphHintsClick(Sender: TObject); Public/Published -
mnuPopGraphHorizontalClick procedure mnuPopGraphHorizontalClick(Sender: TObject); Public/Published -
mnuPopGraphIsolateClick procedure mnuPopGraphIsolateClick(Sender: TObject); Public/Published -
mnuPopGraphLegendClick procedure mnuPopGraphLegendClick(Sender: TObject); Public/Published -
mnuPopGraphLinesClick procedure mnuPopGraphLinesClick(Sender: TObject); Public/Published -
mnuPopGraphMergeLabsClick procedure mnuPopGraphMergeLabsClick(Sender: TObject); Public/Published -
mnuPopGraphPrintClick procedure mnuPopGraphPrintClick(Sender: TObject); Public/Published -
mnuPopGraphRemoveClick procedure mnuPopGraphRemoveClick(Sender: TObject); Public/Published -
mnuPopGraphResetClick procedure mnuPopGraphResetClick(Sender: TObject); Public/Published -
mnuPopGraphSeparate1Click procedure mnuPopGraphSeparate1Click(Sender: TObject); Public/Published -
mnuPopGraphSortClick procedure mnuPopGraphSortClick(Sender: TObject); Public/Published -
mnuPopGraphSplitClick procedure mnuPopGraphSplitClick(Sender: TObject); Public/Published -
mnuPopGraphStayOnTopClick procedure mnuPopGraphStayOnTopClick(Sender: TObject); Public/Published -
mnuPopGraphStuffPopup procedure mnuPopGraphStuffPopup(Sender: TObject); Public/Published -
mnuPopGraphSwapClick procedure mnuPopGraphSwapClick(Sender: TObject); Public/Published -
mnuPopGraphTodayClick procedure mnuPopGraphTodayClick(Sender: TObject); Public/Published -
mnuPopGraphValueMarksClick procedure mnuPopGraphValueMarksClick(Sender: TObject); Public/Published -
mnuPopGraphValuesClick procedure mnuPopGraphValuesClick(Sender: TObject); Public/Published -
mnuPopGraphVerticalClick procedure mnuPopGraphVerticalClick(Sender: TObject); Public/Published -
mnuPopGraphViewDefinitionClick procedure mnuPopGraphViewDefinitionClick(Sender: TObject); Public/Published -
mnuPopGraphZoomBackClick procedure mnuPopGraphZoomBackClick(Sender: TObject); Public/Published -
MouseClicks procedure MouseClicks(aChart: TChart; lbutton: boolean; X, Y: Integer); Public/Published -
NextColor function NextColor(aCnt: integer): TColor; Private -
NextPointerStyle procedure NextPointerStyle(aSeries: TChartSeries; aSerCnt: integer); Private -
NonNumSave procedure NonNumSave(aChart: TChart; aTitle, aSection: string; adatetime: TDateTime; var noncnt: integer; newcnt, aIndex: integer); Private -
NonNumText function NonNumText(listnum, seriesnum, valueindex: integer): string; Private -
NotifyApps procedure NotifyApps(aList: TStrings); Private -
NumAdd procedure NumAdd(serLine: TLineSeries; value: double; adatetime: TDateTime; var fixeddatevalue, hi, lo: double; var high, low: string); Private -
OneDayTypeDetails procedure OneDayTypeDetails(aTypeItem: string); Private -
OtherInfo procedure OtherInfo(aTypeItem, aResult: string; aDateTime: double; var moreinfo: string); Private -
PadLeftEvent function PadLeftEvent(aWidth: integer): integer; Private -
PadLeftNonNumeric function PadLeftNonNumeric(aWidth: integer): integer; Private -
PadNonNum procedure PadNonNum(aChart: TChart; aSection: string; var listofseries: string; var bmax, tmax: integer); Private -
PainAdd procedure PainAdd(serBlank: TPointSeries); Private -
pnlScrollTopBaseResize procedure pnlScrollTopBaseResize(Sender: TObject); Public/Published -
PortionSize function PortionSize(lcnt, pcnt, gcnt, vcnt, bcnt: integer): double; Private -
PositionSelections procedure PositionSelections(aListView: TListView); Public/Published -
ProfileName function ProfileName(aProfile, aName, aString: string): string; Private -
RefUnits procedure RefUnits(aItem, aSpec: string; var low, high, units: string); Private -
ResultValue procedure ResultValue(var resultstring, seriestitle: string; typenum, typeitem: string; Sender: TCustomChart; aSeries: TChartSeries; ValueIndex, SeriesNum: Integer; var OKToUse: boolean); Private -
SaveTestData procedure SaveTestData(typeitem: string); Private -
SelCopy procedure SelCopy(aListView: TListView; aList: TStrings); Private -
SelectItem procedure SelectItem(aListView: TListView; typeitem: string); Private -
SelectRef function SelectRef(aRef: string): string; Private Check ref range for AGE and SEX variables in $S statement
SelReset procedure SelReset(aList: TStrings; aListView: TListView); Private -
serDatelineTopGetMarkText procedure serDatelineTopGetMarkText(Sender: TChartSeries; ValueIndex: Integer; var MarkText: String); Public/Published -
SeriesClicks procedure SeriesClicks(aChart: TChart; aSeries: TChartSeries; aIndex: integer; lbutton: boolean); Public/Published -
SeriesForLabels procedure SeriesForLabels(aChart: TChart; aID: string; pad: double); Private -
SetFontSize procedure SetFontSize(FontSize: integer); Public -
SetProfile procedure SetProfile(aProfile, aName: string; aListView: TListView); Private -
SetRef procedure SetRef(var datax: string); Private -
SetRefNonNum procedure SetRefNonNum(var datax: string); Private -
SetSize procedure SetSize; Public/Published -
SetupFields procedure SetupFields(settings: string); Public/Published -
SingleLabTest function SingleLabTest(aListView: TListView): boolean; Private -
SizeDates procedure SizeDates(aChart: TChart; aSmallTime, aBigTime: TDateTime); Private -
SizeTogether procedure SizeTogether(onlylines, nolines, anylines: Boolean; aScroll: TScrollBox; aChart: TChart; aPanel, aPanelBase: TPanel; portion: Double); Private -
SortListView procedure SortListView; Private -
SourceContext procedure SourceContext; Public -
SourcesDefault procedure SourcesDefault; Public/Published -
SpecRefCheck procedure SpecRefCheck(aItemType, aItemName: string; var singlespec: boolean); Private Sort out for multiple spec or ref ranges
SpecRefSet procedure SpecRefSet(aItemType, aItemName: string); Private For mutiple spec ranges replace data and items
splGraphsMoved procedure splGraphsMoved(Sender: TObject); Public/Published -
SplitClick procedure SplitClick; Private -
splItemsBottomMoved procedure splItemsBottomMoved(Sender: TObject); Public/Published -
splItemsTopMoved procedure splItemsTopMoved(Sender: TObject); Public/Published -
splViewsTopMoved procedure splViewsTopMoved(Sender: TObject); Public/Published -
StackNonNum procedure StackNonNum(astring: string; var offset, bmax, tmax: integer; var blabelon, tlabelon: boolean); Private -
StayOnTop procedure StayOnTop; Public/Published -
StdDev function StdDev(value, high, low: double): double; Private -
Switch procedure Switch; Public -
TempCheck procedure TempCheck(typeitem: string; var levelseq: double); Private -
TempData procedure TempData(aStringList: TStringList; aType: string; dt1, dt2: double); Private -
timHintPauseTimer procedure timHintPauseTimer(Sender: TObject); Public/Published -
TitleInfo function TitleInfo(filetype, typeitem, caption: string): string; Private -
TypeIsDisplayed function TypeIsDisplayed(itemtype: string): boolean; Private -
TypeIsLoaded function TypeIsLoaded(itemtype: string): boolean; Private -
TypeString function TypeString(filenum: string): string; Private -
UpdateAccessibilityActions procedure UpdateAccessibilityActions(var Actions: TAccessibilityActions); override; Protected -
UpdateView procedure UpdateView(filename, filenum, itemnum, aString: string; aListView: TListView); Private -
ValueDates procedure ValueDates(aSeries: TChartSeries; ValueIndex: Integer; var resultdate, otherdate: string; var startdate: double); Private -
ValueText function ValueText(Sender: TCustomChart; aSeries: TChartSeries; ValueIndex: Integer): string; Private -
ViewDefinition procedure ViewDefinition(profile: string; amemo: TRichEdit); Public -
ViewsChange procedure ViewsChange(aListView: TListView; aListBox: TORListBox; aSection: string); Private -
ViewSelections procedure ViewSelections; Public -
ZoomTo procedure ZoomTo(SmallTime, BigTime: TDateTime); Public/Published -
ZoomUpdate procedure ZoomUpdate; Public/Published -
ZoomUpdateInfo procedure ZoomUpdateInfo(SmallTime, BigTime: TDateTime); Public/Published -

Referenced By (5)

Module (line) Referrer Type
fFrame (412) GraphFloat Read
fFrame (4412) - Read
fGraphs (448) frmGraphs Read
fReports (207) GraphForm Read
fReports (249) - Read