Procedure

TfrmGraphs.mnuPopGraphIsolateClick

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphs

Declaration

procedure mnuPopGraphIsolateClick(Sender: TObject);

Calls Hierarchy


TfrmGraphs.mnuPopGraphIsolateClick
 ├TfrmGraphs.ItemCheck
 ├TfrmGraphs.ChangeStyle
 │ ├TfrmGraphs.ChartStyle
 │ │ └TfrmGraphs.HideDates
 │ └TfrmGraphs.ChartColor
 └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.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
   │ │   │     │ │ ├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.lvwItemsBottomClick
   │ │   │       ├GraphTurboOn
   │ │   │       ├TfrmGraphs.Switch...
   │ │   │       └TfrmGraphs.ItemsClick...
   │ │   └TfrmGraphs.lstViewsBottomChange
   │ │     └TfrmGraphs.ViewsChange...
   │ ├TfrmGraphs.HideGraphs
   │ ├TfrmGraphs.CheckToAddData
   │ │ ├TfrmGraphs.LabData...
   │ │ └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.InfoMessage
     └TfrmGraphs.MergedLabsSelected

Calls

Name Declaration Comments
TfrmGraphs.ChangeStyle procedure ChangeStyle; -
TfrmGraphs.DisplayData procedure DisplayData(aSection: string); -
TfrmGraphs.ItemCheck procedure ItemCheck(aListView: TListView; aItemName: string; var aNum: integer; var aTypeItem: string); -


Source

4047  procedure TfrmGraphs.mnuPopGraphIsolateClick(Sender: TObject);
4048  var
4049    i, j, selnum: integer;
4050    aOtherSection, aSection, typeitem: string;
4051    aGraphItem: TGraphItem;
4052    aListView, aOtherListView: TListView;
4053    aListItem: TListItem;
4054  begin
4055    FFirstClick := true;
4056    lstViewsTop.ItemIndex := -1;
4057    lstViewsBottom.ItemIndex := -1;
4058    if pnlTop.Tag = 1 then
4059    begin
4060      aListView := lvwItemsTop;       aOtherListView := lvwItemsBottom;
4061      aSection := 'top';              aOtherSection := 'bottom';
4062    end
4063    else
4064    begin
4065      aListView := lvwItemsBottom;    aOtherListView := lvwItemsTop;
4066      aSection := 'bottom';           aOtherSection := 'top';
4067    end;
4068    if aListView.SelCount = 0 then exit;
4069    if StripHotKey(mnuPopGraphIsolate.Caption) = ('Move all selections to ' + aOtherSection) then
4070    begin
4071      aListItem := aListView.Selected;
4072      while aListItem <> nil do
4073      begin
4074        aGraphItem := TGraphItem(aListItem.SubItems.Objects[3]);
4075        typeitem := Pieces(aGraphItem.Values, '^', 1, 2);
4076        for j := 0 to aOtherListView.Items.Count - 1 do
4077        begin
4078          aGraphItem := TGraphItem(aOtherListView.Items.Item[j].SubItems.Objects[3]);
4079          if Pieces(aGraphItem.Values, '^', 1, 2) = typeitem then
4080            aOtherListView.Items[j].Selected := true;
4081        end;
4082        aListItem.Selected := false;
4083        aListItem := aListView.GetNextItem(aListItem, sdAll, [isSelected]);
4084      end;
4085    end
4086    else
4087    begin
4088      ItemCheck(lvwItemsTop, mnuPopGraphIsolate.Hint, selnum, typeitem);
4089      if selnum = -1 then exit;
4090      for i := 0 to aOtherListView.Items.Count - 1 do
4091      begin
4092        aGraphItem := TGraphItem(aOtherListView.Items.Item[i].SubItems.Objects[3]);
4093        if Pieces(aGraphItem.Values, '^', 1, 2) = typeitem then
4094          aOtherListView.Items[i].Selected := true;
4095      end;
4096      aListView.Items[selnum].Selected := false;
4097    end;
4098    with chkDualViews do
4099    if not Checked then
4100    begin
4101      Checked := true;
4102      Click;
4103    end;
4104    ChangeStyle;
4105    DisplayData(aSection);
4106    DisplayData(aOtherSection);
4107    mnuPopGraphIsolate.Enabled := false;
4108  end;