Procedure

TfrmGraphs.CheckContext

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmGraphs

Declaration

procedure CheckContext(var usecontext: boolean);

Calls Hierarchy


TfrmGraphs.CheckContext
 └TfrmGraphs.lvwItemsBottomClick
   ├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.ChartStyle
     │   │   │ │ └TfrmGraphs.HideDates
     │   │   │ └TfrmGraphs.ChartColor
     │   │   ├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
     │   │     │ ├GraphTurboOn
     │   │     │ ├TfrmGraphs.Switch...
     │   │     │ └TfrmGraphs.ItemsClick...
     │   │     └TfrmGraphs.lvwItemsBottomClick...
     │   └TfrmGraphs.lstViewsBottomChange
     │     └TfrmGraphs.ViewsChange...
     ├TfrmGraphs.HideGraphs
     ├TfrmGraphs.CheckToAddData...
     ├TfrmGraphs.DisplayData...
     └TfrmGraphs.ZoomUpdate
       ├TfrmGraphs.ZoomTo
       │ └TfrmGraphs.SizeDates...
       └TfrmGraphs.ZoomUpdateInfo...

Called-By Hierarchy


TfrmGraphs.CheckContext
  TfrmGraphs.FormShow┘ 

Calls

Name Declaration Comments
TfrmGraphs.lvwItemsBottomClick procedure lvwItemsBottomClick(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmGraphs.FormShow procedure FormShow(Sender: TObject); -


Source

756   procedure TfrmGraphs.CheckContext(var usecontext: boolean);
757   var
758     i, topitem: integer;
759     contextvalue, itemcheck, itemvalue, typecheck, typeitem: string;
760     aGraphItem: TGraphItem;
761     aListItem: TListItem;
762   begin
763     usecontext := false;
764     if length(pnlFooter.Hint) > 1 then
765     begin
766       lvwItemsBottom.ClearSelection;
767       lvwItemsBottomClick(self);
768       contextvalue := pnlFooter.Hint;
769       //chkItemsTop.Caption := contextvalue;    // testing
770       typecheck := Piece(contextvalue, '^', 1);
771       itemcheck := Piece(contextvalue, '^', 2);
772       lvwItemsTop.ClearSelection;
773       topitem := 0;
774       for i := 0 to lvwItemsTop.Items.Count - 1 do
775       begin
776         aListItem := lvwItemsTop.Items[i];
777         aGraphItem := TGraphItem(aListItem.SubItems.Objects[3]);
778         typeitem := UpperCase(aGraphItem.Values);
779         if Piece(typeitem, '^', 1) = typecheck then
780         begin
781           itemvalue := Piece(Piece(typeitem, '^', 2), '.', 1);
782           if itemvalue = itemcheck then
783           begin
784             lvwItemsTop.Items[i].Selected := true;
785             topitem := i;
786           end;
787         end;
788       end;
789       GtslSelCopyTop.Clear;
790       if lvwItemsTop.SelCount > 0 then
791         usecontext := true;
792       if topitem > 0 then
793         lvwItemsTop.Items[topitem].MakeVisible(true);
794     end;
795     pnlFooter.Hint := '';
796   end;