Procedure

TfrmGraphs.mnuPopGraphRemoveClick

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphs

Declaration

procedure mnuPopGraphRemoveClick(Sender: TObject);

Calls Hierarchy


TfrmGraphs.mnuPopGraphRemoveClick
 ├TfrmGraphs.ItemCheck
 ├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.ChartStyle
 │   │ │ └TfrmGraphs.HideDates
 │   │ └TfrmGraphs.ChartColor
 │   ├TfrmGraphs.InfoMessage
 │   └TfrmGraphs.MergedLabsSelected
 └TfrmGraphs.mnuPopGraphResetClick
   └TfrmGraphs.lvwItemsTopClick...

Calls

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


Source

6133  procedure TfrmGraphs.mnuPopGraphRemoveClick(Sender: TObject);
6134  var
6135    selnum: integer;
6136    aSection, typeitem: string;
6137    aListBox: TORListBox;
6138    aListView: TListView;
6139  begin
6140    FFirstClick := true;
6141    if pnlTop.Tag = 1 then
6142    begin
6143      aListBox := lstViewsTop;
6144      aListView := lvwItemsTop;
6145      aSection := 'top';
6146    end
6147    else
6148    begin
6149      aListBox := lstViewsBottom;
6150      aListView := lvwItemsBottom;
6151      aSection := 'bottom';
6152    end;
6153    aListBox.ItemIndex := -1;
6154    if aListView.SelCount = 0 then exit;
6155    if StripHotKey(mnuPopGraphRemove.Caption) = ('Remove all selections from ' + aSection) then
6156      aListView.Selected := nil
6157    else
6158    begin
6159      ItemCheck(aListView, mnuPopGraphIsolate.Hint, selnum, typeitem);
6160      if selnum = -1 then exit;
6161      aListView.Items[selnum].Selected := false;
6162    end;
6163    DisplayData('top');
6164    DisplayData('bottom');
6165    mnuPopGraphRemove.Enabled := false;
6166    mnuPopGraphResetClick(self);
6167  end;