Procedure

TfrmGraphs.FormShow

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphs

Declaration

procedure FormShow(Sender: TObject);

Calls Hierarchy


TfrmGraphs.FormShow
 ├TfrmGraphs.ChangeStyle
 │ ├TfrmGraphs.ChartStyle
 │ │ └TfrmGraphs.HideDates
 │ └TfrmGraphs.ChartColor
 ├TfrmGraphs.StayOnTop
 │ └TfrmGraphs.mnuPopGraphStayOnTopClick
 │   └MarkFormAsStayOnTop
 ├TfrmGraphs.mnuPopGraphResetClick
 │ └TfrmGraphs.lvwItemsTopClick
 │   ├GraphTurboOn
 │   ├TfrmGraphs.Switch
 │   │ ├rpcFastItems
 │   │ │ └onoff
 │   │ ├rpcFastData
 │   │ │ └onoff
 │   │ ├rpcFastLabs
 │   │ │ └onoff
 │   │ └TfrmGraphs.FastLab
 │   │   └TfrmGraphs.SaveTestData
 │   │     ├TfrmGraphs.ItemName
 │   │     └TfrmGraphs.LabData
 │   │       ├rpcGetItemData
 │   │       │ └onoff
 │   │       ├TfrmGraphs.SpecRefCheck
 │   │       │ └TfrmGraphs.RefUnits
 │   │       │   └TfrmGraphs.SelectRef
 │   │       │     └CheckRef
 │   │       ├TfrmGraphs.SpecRefSet
 │   │       │ └MultiRef
 │   │       ├TfrmGraphs.FileNameX
 │   │       ├TfrmGraphs.LabCheck
 │   │       ├TfrmGraphs.DateRangeMultiItems
 │   │       └TfrmGraphs.LabAdd
 │   └TfrmGraphs.ItemsClick
 │     ├TfrmGraphs.CheckExpandedLabs
 │     │ └TfrmGraphs.cboDateRangeChange
 │     │   ├TfrmGraphs.SelCopy
 │     │   ├TfrmGraphs.HideGraphs
 │     │   ├TfrmGraphs.DateSteps
 │     │   ├TfrmGraphs.FilterListView
 │     │   │ ├TfrmGraphs.TypeIsDisplayed
 │     │   │ ├TfrmGraphs.DateRangeItems
 │     │   │ │ ├rpcDateItem
 │     │   │ │ │ └onoff
 │     │   │ │ ├TfrmGraphs.FileNameX
 │     │   │ │ ├TfrmGraphs.UpdateView
 │     │   │ │ └TfrmGraphs.DateRangeMultiItems
 │     │   │ ├TfrmGraphs.FileNameX
 │     │   │ ├TfrmGraphs.UpdateView
 │     │   │ └TfrmGraphs.SortListView
 │     │   │   ├TfrmGraphs.lvwItemsTopColumnClick
 │     │   │   ├TfrmGraphs.lvwItemsBottomColumnClick
 │     │   │   └TfrmGraphs.AssignProfile
 │     │   │     └TfrmGraphs.SetProfile
 │     │   │       └TfrmGraphs.ProfileName
 │     │   │         └TfrmGraphs.DCName
 │     │   │           └rpcClass
 │     │   │             └onoff
 │     │   ├TfrmGraphs.SelReset
 │     │   ├TfrmGraphs.DisplayData
 │     │   │ ├TfrmGraphs.SetFontSize
 │     │   │ ├TfrmGraphs.ItemsClick...
 │     │   │ ├TfrmGraphs.MakeSeparate
 │     │   │ │ ├TfrmGraphs.chartBaseMouseMove
 │     │   │ │ │ └TfrmGraphs.InactivateHint
 │     │   │ │ ├TfrmGraphs.MakeSeparateItems
 │     │   │ │ │ ├TfrmGraphs.GraphTypeNum
 │     │   │ │ │ ├TfrmGraphs.TitleInfo
 │     │   │ │ │ │ └TfrmGraphs.RefUnits...
 │     │   │ │ │ ├TfrmGraphs.MakeChart
 │     │   │ │ │ │ ├TfrmGraphs.HideDates
 │     │   │ │ │ │ ├TfrmGraphs.ChartOnZoom
 │     │   │ │ │ │ │ ├TfrmGraphs.SizeDates
 │     │   │ │ │ │ │ │ ├TfrmGraphs.GraphFooter
 │     │   │ │ │ │ │ │ └TfrmGraphs.SeriesForLabels
 │     │   │ │ │ │ │ └TfrmGraphs.ZoomUpdateInfo
 │     │   │ │ │ │ │   ├TfrmGraphs.InfoMessage
 │     │   │ │ │ │ │   └TfrmGraphs.MergedLabsSelected
 │     │   │ │ │ │ ├TfrmGraphs.ChartOnUndoZoom
 │     │   │ │ │ │ │ ├TfrmGraphs.SizeDates...
 │     │   │ │ │ │ │ ├TfrmGraphs.InfoMessage
 │     │   │ │ │ │ │ └TfrmGraphs.MergedLabsSelected
 │     │   │ │ │ │ ├TfrmGraphs.chartBaseClickSeries
 │     │   │ │ │ │ │ ├TfrmGraphs.InactivateHint
 │     │   │ │ │ │ │ └TfrmGraphs.SeriesClicks
 │     │   │ │ │ │ │   ├TfrmGraphs.ValueText
 │     │   │ │ │ │ │   │ ├TfrmGraphs.NonNumText
 │     │   │ │ │ │ │   │ │ ├TfrmGraphs.FileNameX
 │     │   │ │ │ │ │   │ │ ├TfrmGraphs.ItemName
 │     │   │ │ │ │ │   │ │ └TfrmGraphs.SetRefNonNum
 │     │   │ │ │ │ │   │ │   └TfrmGraphs.RefUnits...
 │     │   │ │ │ │ │   │ ├TfrmGraphs.ItemCheck
 │     │   │ │ │ │ │   │ ├TfrmGraphs.CheckMedNum
 │     │   │ │ │ │ │   │ ├TfrmGraphs.FileNameX
 │     │   │ │ │ │ │   │ ├TfrmGraphs.ValueDates
 │     │   │ │ │ │ │   │ ├TfrmGraphs.ResultValue
 │     │   │ │ │ │ │   │ │ ├TfrmGraphs.serDatelineTopGetMarkText
 │     │   │ │ │ │ │   │ │ └TfrmGraphs.BPValue
 │     │   │ │ │ │ │   │ └TfrmGraphs.OtherInfo
 │     │   │ │ │ │ │   │   └TfrmGraphs.SetRef
 │     │   │ │ │ │ │   │     └TfrmGraphs.RefUnits...
 │     │   │ │ │ │ │   ├TfrmGraphs.LabNameResults
 │     │   │ │ │ │ │   └TfrmGraphs.AllTypeDate
 │     │   │ │ │ │ │     ├TfrmGraphs.CheckToAddData
 │     │   │ │ │ │ │     │ ├TfrmGraphs.LabData...
 │     │   │ │ │ │ │     │ └rpcGetItemData...
 │     │   │ │ │ │ │     ├TfrmGraphs.TempData
 │     │   │ │ │ │ │     │ ├TfrmGraphs.ItemName
 │     │   │ │ │ │ │     │ └TfrmGraphs.SetRef...
 │     │   │ │ │ │ │     └ReportBox
 │     │   │ │ │ │ │       └CreateReportBox
 │     │   │ │ │ │ │         └TfrmBase508Form.Create
 │     │   │ │ │ │ │           ├TfrmBase508Form.UpdateAccessibilityActions
 │     │   │ │ │ │ │           ├UnfocusableControlEnter
 │     │   │ │ │ │ │           └AdjustControls
 │     │   │ │ │ │ │             ├TfrmBase508Form.ModifyUnfocusableControl
 │     │   │ │ │ │ │             └..(rec)..
 │     │   │ │ │ │ ├TfrmGraphs.chartBaseClickLegend
 │     │   │ │ │ │ │ └TfrmGraphs.ItemDateRange
 │     │   │ │ │ │ │   ├TfrmGraphs.ValueText...
 │     │   │ │ │ │ │   └ReportBox...
 │     │   │ │ │ │ ├TfrmGraphs.mnuPopGraphDetailsClick
 │     │   │ │ │ │ │ ├TfrmGraphs.ItemCheck
 │     │   │ │ │ │ │ ├TfrmGraphs.HSAbbrev
 │     │   │ │ │ │ │ ├TfrmGraphs.ValueText...
 │     │   │ │ │ │ │ ├TfrmGraphs.LabNameResults
 │     │   │ │ │ │ │ ├TfrmGraphs.AllTypeDate...
 │     │   │ │ │ │ │ ├TfrmGraphs.OneDayTypeDetails
 │     │   │ │ │ │ │ │ ├TfrmGraphs.FileNameX
 │     │   │ │ │ │ │ │ ├TfrmGraphs.ItemName
 │     │   │ │ │ │ │ │ ├rpcDetailDay
 │     │   │ │ │ │ │ │ │ └onoff
 │     │   │ │ │ │ │ │ ├TfrmGraphs.NotifyApps
 │     │   │ │ │ │ │ │ └ReportBox...
 │     │   │ │ │ │ │ └TfrmGraphs.AllDetails
 │     │   │ │ │ │ │   ├TfrmGraphs.HSAbbrev
 │     │   │ │ │ │ │   ├rpcDetailSelected
 │     │   │ │ │ │ │   │ └onoff
 │     │   │ │ │ │ │   ├TfrmGraphs.NotifyApps
 │     │   │ │ │ │ │   ├ReportBox...
 │     │   │ │ │ │ │   └TfrmGraphs.ItemDateRange...
 │     │   │ │ │ │ ├TfrmGraphs.chartBaseMouseDown
 │     │   │ │ │ │ │ ├TfrmGraphs.InactivateHint
 │     │   │ │ │ │ │ └TfrmGraphs.MouseClicks
 │     │   │ │ │ │ │   └TfrmGraphs.LabelClicks
 │     │   │ │ │ │ │     ├TfrmGraphs.mnuPopGraphDetailsClick...
 │     │   │ │ │ │ │     ├TfrmGraphs.ValueText...
 │     │   │ │ │ │ │     ├TfrmGraphs.LabNameResults
 │     │   │ │ │ │ │     └TfrmGraphs.AllTypeDate...
 │     │   │ │ │ │ ├TfrmGraphs.chartBaseMouseUp
 │     │   │ │ │ │ └TfrmGraphs.chartBaseMouseMove...
 │     │   │ │ │ ├TfrmGraphs.PadLeftEvent
 │     │   │ │ │ ├TfrmGraphs.MakeLineSeries
 │     │   │ │ │ │ ├TfrmGraphs.MakeSeriesInfo
 │     │   │ │ │ │ │ ├TfrmGraphs.GetData
 │     │   │ │ │ │ │ │ └TfrmGraphs.FMCorrectedDate
 │     │   │ │ │ │ │ └TfrmGraphs.NextColor
 │     │   │ │ │ │ ├TfrmGraphs.NextPointerStyle
 │     │   │ │ │ │ ├TfrmGraphs.BPCheck
 │     │   │ │ │ │ │ └TfrmGraphs.MakeSeriesBP
 │     │   │ │ │ │ ├TfrmGraphs.FMCorrectedDate
 │     │   │ │ │ │ ├TfrmGraphs.HighLow
 │     │   │ │ │ │ │ └TfrmGraphs.FMToDateTime
 │     │   │ │ │ │ ├TfrmGraphs.BPAdd
 │     │   │ │ │ │ │ └TfrmGraphs.BorderValue
 │     │   │ │ │ │ ├TfrmGraphs.NumAdd
 │     │   │ │ │ │ │ ├TfrmGraphs.StdDev
 │     │   │ │ │ │ │ ├TfrmGraphs.BorderValue
 │     │   │ │ │ │ │ └TfrmGraphs.InvVal
 │     │   │ │ │ │ ├TfrmGraphs.NonNumSave
 │     │   │ │ │ │ ├TfrmGraphs.MakeSeriesRef
 │     │   │ │ │ │ │ └TfrmGraphs.BorderValue
 │     │   │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
 │     │   │ │ │ │ ├TfrmGraphs.PainAdd
 │     │   │ │ │ │ └TfrmGraphs.FixedDates
 │     │   │ │ │ ├TfrmGraphs.MakeBarSeries
 │     │   │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
 │     │   │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
 │     │   │ │ │ │ ├TfrmGraphs.NextPointerStyle
 │     │   │ │ │ │ ├TfrmGraphs.FMCorrectedDate
 │     │   │ │ │ │ ├TfrmGraphs.HighLow...
 │     │   │ │ │ │ ├TfrmGraphs.InfoMessage
 │     │   │ │ │ │ ├TfrmGraphs.MergedLabsSelected
 │     │   │ │ │ │ └TfrmGraphs.FixedDates
 │     │   │ │ │ ├TfrmGraphs.MakeVisitGanttSeries
 │     │   │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
 │     │   │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
 │     │   │ │ │ │ ├TfrmGraphs.FMCorrectedDate
 │     │   │ │ │ │ ├TfrmGraphs.HighLow...
 │     │   │ │ │ │ └TfrmGraphs.FixedDates
 │     │   │ │ │ ├TfrmGraphs.MakePointSeries
 │     │   │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
 │     │   │ │ │ │ ├TfrmGraphs.NextPointerStyle
 │     │   │ │ │ │ ├TfrmGraphs.FMCorrectedDate
 │     │   │ │ │ │ ├TfrmGraphs.HighLow...
 │     │   │ │ │ │ └TfrmGraphs.TempCheck
 │     │   │ │ │ ├TfrmGraphs.MakeGanttSeries
 │     │   │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
 │     │   │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
 │     │   │ │ │ │ ├TfrmGraphs.FMCorrectedDate
 │     │   │ │ │ │ ├TfrmGraphs.HighLow...
 │     │   │ │ │ │ └TfrmGraphs.FixedDates
 │     │   │ │ │ └TfrmGraphs.MakeOtherSeries
 │     │   │ │ │   ├TfrmGraphs.MakeNonNumerics
 │     │   │ │ │   │ ├TfrmGraphs.PadNonNum
 │     │   │ │ │   │ │ ├TfrmGraphs.StackNonNum
 │     │   │ │ │   │ │ └TfrmGraphs.MakeSeriesPoint
 │     │   │ │ │   │ ├TfrmGraphs.MakeSeriesPoint
 │     │   │ │ │   │ ├TfrmGraphs.PadLeftNonNumeric
 │     │   │ │ │   │ ├TfrmGraphs.ChartOnUndoZoom...
 │     │   │ │ │   │ └TfrmGraphs.MakeNonNumSeries
 │     │   │ │ │   │   └TfrmGraphs.MakeSeriesPoint
 │     │   │ │ │   ├TfrmGraphs.DisplayFreeText
 │     │   │ │ │   └TfrmGraphs.MakeComments
 │     │   │ │ │     └TfrmGraphs.MakeSeriesPoint
 │     │   │ │ └TfrmGraphs.AdjustTimeframe
 │     │   │ │   └TfrmGraphs.BottomAxis
 │     │   │ │     └..(rec)..
 │     │   │ ├TfrmGraphs.MakeTogetherMaybe
 │     │   │ │ ├TfrmGraphs.MakeSeparate...
 │     │   │ │ └TfrmGraphs.MakeTogether
 │     │   │ │   ├TfrmGraphs.GraphTypeNum
 │     │   │ │   ├TfrmGraphs.MakeChart...
 │     │   │ │   ├TfrmGraphs.PortionSize
 │     │   │ │   ├TfrmGraphs.SizeTogether
 │     │   │ │   ├TfrmGraphs.MakeTogetherNoLines
 │     │   │ │   │ ├TfrmGraphs.GraphTypeNum
 │     │   │ │   │ └TfrmGraphs.MakeDateline
 │     │   │ │   │   ├TfrmGraphs.MakeBarSeries...
 │     │   │ │   │   ├TfrmGraphs.MakeVisitGanttSeries...
 │     │   │ │   │   ├TfrmGraphs.MakePointSeries...
 │     │   │ │   │   └TfrmGraphs.MakeGanttSeries...
 │     │   │ │   ├TfrmGraphs.MakeTogetherOnlyLines
 │     │   │ │   │ ├TfrmGraphs.TitleInfo...
 │     │   │ │   │ ├TfrmGraphs.MakeLineSeries...
 │     │   │ │   │ └TfrmGraphs.DisplayFreeText
 │     │   │ │   ├TfrmGraphs.MakeTogetherAnyLines
 │     │   │ │   │ ├TfrmGraphs.SingleLabTest
 │     │   │ │   │ ├TfrmGraphs.TitleInfo...
 │     │   │ │   │ ├TfrmGraphs.GraphTypeNum
 │     │   │ │   │ ├TfrmGraphs.MakeLineSeries...
 │     │   │ │   │ ├TfrmGraphs.DisplayFreeText
 │     │   │ │   │ └TfrmGraphs.MakeDateline...
 │     │   │ │   ├TfrmGraphs.MakeOtherSeries...
 │     │   │ │   └TfrmGraphs.GraphBoundry
 │     │   │ │     ├TfrmGraphs.chartBaseMouseMove...
 │     │   │ │     └TfrmGraphs.AdjustTimeframe...
 │     │   │ └TfrmGraphs.DisplayDataInfo
 │     │   │   ├TfrmGraphs.ChangeStyle...
 │     │   │   ├TfrmGraphs.InfoMessage
 │     │   │   └TfrmGraphs.MergedLabsSelected
 │     │   ├TfrmGraphs.lstViewsTopChange
 │     │   │ └TfrmGraphs.ViewsChange
 │     │   │   ├TfrmGraphs.InactivateHint
 │     │   │   ├TfrmGraphs.DisplayData...
 │     │   │   ├TfrmGraphs.CheckProfile
 │     │   │   │ ├GetGraphProfiles
 │     │   │   │ │ └rpcGetGraphProfiles
 │     │   │   │ │   └onoff
 │     │   │   │ ├GetATestGroup
 │     │   │   │ │ └rpcATestGroup
 │     │   │   │ ├TfrmGraphs.ExpandTax
 │     │   │   │ │ └rpcTaxonomy
 │     │   │   │ │   └onoff
 │     │   │   │ └TfrmGraphs.LoadDisplayCheck
 │     │   │   │   ├TfrmGraphs.TypeIsLoaded
 │     │   │   │   ├TfrmGraphs.LoadType
 │     │   │   │   │ ├TfrmGraphs.FileNameX
 │     │   │   │   │ └rpcGetItems
 │     │   │   │   │   └onoff
 │     │   │   │   ├TfrmGraphs.TypeIsDisplayed
 │     │   │   │   └TfrmGraphs.DisplayType
 │     │   │   │     └TfrmGraphs.FileNameX
 │     │   │   ├TfrmGraphs.cboDateRangeChange...
 │     │   │   ├TfrmGraphs.ViewDefinition
 │     │   │   ├TfrmGraphs.AssignProfile...
 │     │   │   ├TfrmGraphs.lvwItemsTopColumnClick
 │     │   │   ├TfrmGraphs.lvwItemsBottomColumnClick
 │     │   │   └TfrmGraphs.AutoSelect
 │     │   │     ├TfrmGraphs.lvwItemsTopClick...
 │     │   │     └TfrmGraphs.lvwItemsBottomClick
 │     │   │       ├GraphTurboOn
 │     │   │       ├TfrmGraphs.Switch...
 │     │   │       └TfrmGraphs.ItemsClick...
 │     │   └TfrmGraphs.lstViewsBottomChange
 │     │     └TfrmGraphs.ViewsChange...
 │     ├TfrmGraphs.HideGraphs
 │     ├TfrmGraphs.CheckToAddData...
 │     ├TfrmGraphs.DisplayData...
 │     └TfrmGraphs.ZoomUpdate
 │       ├TfrmGraphs.ZoomTo
 │       │ └TfrmGraphs.SizeDates...
 │       └TfrmGraphs.ZoomUpdateInfo...
 ├TfrmGraphs.GetSize
 │ ├rpcGetGraphSizing
 │ │ └onoff
 │ └Layout
 │   ├TfrmGraphs.splItemsTopMoved
 │   ├TfrmGraphs.chkDualViewsClick
 │   │ ├TfrmGraphs.lvwItemsTopClick...
 │   │ └TfrmGraphs.lvwItemsBottomClick...
 │   └SetWidth
 ├TfrmGraphs.chkDualViewsClick...
 ├TfrmGraphs.DateDefaults
 ├TfrmGraphs.cboDateRangeChange...
 ├TfrmGraphs.CheckContext
 │ └TfrmGraphs.lvwItemsBottomClick...
 ├TfrmGraphs.lvwItemsTopClick...
 └TfrmGraphs.mnuPopGraphViewDefinitionClick

Calls

Name Declaration Comments
TfrmGraphs.cboDateRangeChange procedure cboDateRangeChange(Sender: TObject); -
TfrmGraphs.ChangeStyle procedure ChangeStyle; -
TfrmGraphs.CheckContext procedure CheckContext(var usecontext: boolean); -
TfrmGraphs.chkDualViewsClick procedure chkDualViewsClick(Sender: TObject); -
TfrmGraphs.DateDefaults procedure DateDefaults; -
TfrmGraphs.GetSize procedure GetSize; -
TfrmGraphs.lvwItemsTopClick procedure lvwItemsTopClick(Sender: TObject); -
TfrmGraphs.mnuPopGraphResetClick procedure mnuPopGraphResetClick(Sender: TObject); -
TfrmGraphs.mnuPopGraphViewDefinitionClick procedure mnuPopGraphViewDefinitionClick(Sender: TObject); -
TfrmGraphs.StayOnTop procedure StayOnTop; -


Source

710   procedure TfrmGraphs.FormShow(Sender: TObject);
711   var
712     context: boolean;
713   begin
714     Font := MainFont;
715     ChangeStyle;
716     StayOnTop;
717     mnuPopGraphResetClick(self);
718     if pnlFooter.Tag = 1 then  // do not show footer controls on reports tab
719     begin
720       pnlFooter.Visible := false;
721       if FCreate then
722       begin
723         FGraphType := GRAPH_REPORT;
724         FCreate := false;
725         GetSize;
726       end;
727     end
728     else
729     begin
730       chkDualViews.Checked := false;
731       chkDualViewsClick(self);
732       if FCreate then
733       begin
734         FGraphType := GRAPH_FLOAT;
735         FCreate := false;
736         GetSize;
737       end;
738     end;
739     if length(pnlFooter.Hint) > 1 then      // if context use all results
740       cboDateRange.ItemIndex := 8
741     else
742       DateDefaults;
743     cboDateRangeChange(self);
744     CheckContext(context);
745     lvwItemsTopClick(self);
746     if lvwItemsTop.Items.Count = 0 then
747     begin
748       lstViewsTop.ItemIndex := -1
749     end;
750     if not mnuPopGraphViewDefinition.Checked then
751       mnuPopGraphViewDefinitionClick(self);
752     tsTopCustom.TabVisible := false;
753     tsBottomCustom.TabVisible := false;
754   end;