Procedure

TfrmGraphs.GraphSwitch

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphs

Declaration

procedure GraphSwitch(bottomview, topview: integer);

Calls Hierarchy


TfrmGraphs.GraphSwitch
 ├TfrmGraphs.lstViewsTopChange
 │ └TfrmGraphs.ViewsChange
 │   ├TfrmGraphs.InactivateHint
 │   ├TfrmGraphs.DisplayData
 │   │ ├TfrmGraphs.SetFontSize
 │   │ ├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.lstViewsTopChange...
 │   │ │ │   └TfrmGraphs.lstViewsBottomChange
 │   │ │ │     └TfrmGraphs.ViewsChange...
 │   │ │ ├TfrmGraphs.HideGraphs
 │   │ │ ├TfrmGraphs.CheckToAddData
 │   │ │ │ ├TfrmGraphs.LabData
 │   │ │ │ │ ├rpcGetItemData
 │   │ │ │ │ │ └onoff
 │   │ │ │ │ ├TfrmGraphs.SpecRefCheck
 │   │ │ │ │ │ └TfrmGraphs.RefUnits
 │   │ │ │ │ │   └TfrmGraphs.SelectRef
 │   │ │ │ │ │     └CheckRef
 │   │ │ │ │ ├TfrmGraphs.SpecRefSet
 │   │ │ │ │ │ └MultiRef
 │   │ │ │ │ ├TfrmGraphs.FileNameX
 │   │ │ │ │ ├TfrmGraphs.LabCheck
 │   │ │ │ │ ├TfrmGraphs.DateRangeMultiItems
 │   │ │ │ │ └TfrmGraphs.LabAdd
 │   │ │ │ └rpcGetItemData...
 │   │ │ ├TfrmGraphs.DisplayData...
 │   │ │ └TfrmGraphs.ZoomUpdate
 │   │ │   ├TfrmGraphs.ZoomTo
 │   │ │   │ └TfrmGraphs.SizeDates
 │   │ │   │   ├TfrmGraphs.GraphFooter
 │   │ │   │   └TfrmGraphs.SeriesForLabels
 │   │ │   └TfrmGraphs.ZoomUpdateInfo
 │   │ │     ├TfrmGraphs.InfoMessage
 │   │ │     └TfrmGraphs.MergedLabsSelected
 │   │ ├TfrmGraphs.MakeSeparate
 │   │ │ ├TfrmGraphs.chartBaseMouseMove
 │   │ │ │ └TfrmGraphs.InactivateHint
 │   │ │ ├TfrmGraphs.MakeSeparateItems
 │   │ │ │ ├TfrmGraphs.GraphTypeNum
 │   │ │ │ ├TfrmGraphs.TitleInfo
 │   │ │ │ │ └TfrmGraphs.RefUnits...
 │   │ │ │ ├TfrmGraphs.MakeChart
 │   │ │ │ │ ├TfrmGraphs.HideDates
 │   │ │ │ │ ├TfrmGraphs.ChartOnZoom
 │   │ │ │ │ │ ├TfrmGraphs.SizeDates...
 │   │ │ │ │ │ └TfrmGraphs.ZoomUpdateInfo...
 │   │ │ │ │ ├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.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.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
 │     │ │ ├rpcFastItems
 │     │ │ │ └onoff
 │     │ │ ├rpcFastData
 │     │ │ │ └onoff
 │     │ │ ├rpcFastLabs
 │     │ │ │ └onoff
 │     │ │ └TfrmGraphs.FastLab
 │     │ │   └TfrmGraphs.SaveTestData
 │     │ │     ├TfrmGraphs.ItemName
 │     │ │     └TfrmGraphs.LabData...
 │     │ └TfrmGraphs.ItemsClick...
 │     └TfrmGraphs.lvwItemsBottomClick
 │       ├GraphTurboOn
 │       ├TfrmGraphs.Switch...
 │       └TfrmGraphs.ItemsClick...
 ├TfrmGraphs.lvwItemsTopClick...
 ├TfrmGraphs.lstViewsBottomChange...
 └TfrmGraphs.lvwItemsBottomClick...

Called-By Hierarchy


             TfrmGraphs.GraphSwitch
             TfrmGraphs.GraphSwap┘ 
TfrmGraphs.mnuPopGraphSwapClick┘   

Calls

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

Called-By

Name Declaration Comments
TfrmGraphs.GraphSwap procedure GraphSwap(bottomview, topview: integer); -


Source

3091  procedure TfrmGraphs.GraphSwitch(bottomview, topview: integer);
3092  var
3093    i, j: integer;
3094    typeitem: string;
3095    aGraphItem: TGraphItem;
3096    aListItem: TListItem;
3097  begin
3098    GtslScratchSwap.Clear;
3099    if topview < 1 then
3100    begin
3101      aListItem := lvwItemsTop.Selected;
3102      while aListItem <> nil do
3103      begin
3104        aGraphItem := TGraphItem(aListItem.SubItems.Objects[3]);
3105        GtslScratchSwap.Add(aGraphItem.Values);
3106        aListItem := lvwItemsTop.GetNextItem(aListItem, sdAll, [isSelected]);
3107      end;
3108    end;
3109    if bottomview > 0 then
3110    begin
3111      lstViewsTop.ItemIndex := bottomview;
3112      lstViewsTopChange(self);
3113    end
3114    else
3115    begin
3116      lstViewsTop.ItemIndex := -1;
3117      lvwItemsTop.ClearSelection;
3118      aListItem := lvwItemsBottom.Selected;
3119      while aListItem <> nil do
3120      begin
3121        aGraphItem := TGraphItem(aListItem.SubItems.Objects[3]);
3122        typeitem := Pieces(aGraphItem.Values, '^', 1, 2);
3123        for j := 0 to lvwItemsTop.Items.Count - 1 do
3124        begin
3125          aGraphItem := TGraphItem(lvwItemsTop.Items[j].SubItems.Objects[3]);
3126          if typeitem = Pieces(aGraphItem.Values, '^', 1, 2) then
3127          begin
3128            lvwItemsTop.Items[j].Selected := true;
3129            break;
3130          end;
3131        end;
3132        aListItem := lvwItemsBottom.GetNextItem(aListItem, sdAll, [isSelected]);
3133      end;
3134      lvwItemsTopClick(self);
3135    end;
3136    if topview > 0 then
3137    begin
3138      lstViewsBottom.ItemIndex := topview;
3139      lstViewsBottomChange(self);
3140    end
3141    else
3142    begin
3143      lstViewsBottom.ItemIndex := -1;
3144      lvwItemsBottom.ClearSelection;
3145      for i := 0 to GtslScratchSwap.Count - 1 do
3146        for j := 0 to lvwItemsBottom.Items.Count - 1 do
3147        begin
3148          aGraphItem := TGraphItem(lvwItemsBottom.Items.Item[j].SubItems.Objects[3]);
3149          if aGraphItem.Values = GtslScratchSwap[i] then
3150          begin
3151            lvwItemsBottom.Items[j].Selected := true;
3152            break;
3153          end;
3154        end;
3155      lvwItemsBottomClick(self);
3156    end;
3157    GtslScratchSwap.Clear;
3158  end;