Procedure

TfrmGraphs.btnGraphSelectionsClick

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphs

Declaration

procedure btnGraphSelectionsClick(Sender: TObject);

Calls Hierarchy


TfrmGraphs.btnGraphSelectionsClick
 ├DialogGraphProfiles
 │ └TfrmBase508Form.Create
 │   ├TfrmBase508Form.UpdateAccessibilityActions
 │   ├UnfocusableControlEnter
 │   └AdjustControls
 │     ├TfrmBase508Form.ModifyUnfocusableControl
 │     └..(rec)..
 ├TfrmGraphs.FillViews
 │ ├GetGraphProfiles
 │ │ └rpcGetGraphProfiles
 │ │   └onoff
 │ └TfrmGraphs.AddOnLabGroups
 │   └rpcTestGroups
 └TfrmGraphs.ViewSelections
   ├TfrmGraphs.chkDualViewsClick
   │ ├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...
   │ │   │   │ │ │ │ ├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...
   │ │   │   │   │ ├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.lvwItemsBottomClick...
   ├TfrmGraphs.lstViewsBottomChange...
   └TfrmGraphs.lstViewsTopChange...

Called-By Hierarchy


   TfrmGraphs.btnGraphSelectionsClick
TfrmReports.btnGraphSelectionsClick┘ 

Calls

Name Declaration Comments
DialogGraphProfiles procedure DialogGraphProfiles(var actionOK: boolean; var checkaction: boolean; aGraphSetting: TGraphSetting; var aProfname, aProfilestring, aSection: string; const PatientDFN: string; var aCounter: integer; apply: boolean; aSelections: string); -
TfrmGraphs.FillViews procedure FillViews; -
TfrmGraphs.ViewSelections procedure ViewSelections; -

Called-By

Name Declaration Comments
TfrmReports.btnGraphSelectionsClick procedure btnGraphSelectionsClick(Sender: TObject); -


Source

4868  procedure TfrmGraphs.btnGraphSelectionsClick(Sender: TObject);
4869  var
4870    actionOK, checkaction: boolean;
4871    counter: integer;
4872    profile, profilestring, section, selections, seltext, specnum, typeitem: string;
4873    aGraphItem: TGraphItem;
4874    aListItem: TListItem;
4875  begin
4876    selections := '';
4877    seltext := '';
4878    aListItem := lvwItemsTop.Selected;
4879    while aListItem <> nil do
4880    begin
4881      aGraphItem := TGraphItem(aListItem.SubItems.Objects[3]);
4882      typeitem := UpperCase(aGraphItem.Values);
4883      if Piece(typeitem, '^', 1) = '63' then
4884      begin
4885        specnum := Piece(Piece(typeitem, '^', 2), '.', 2);
4886        if length(specnum) > 0 then  // multispecimen
4887          if (specnum = '1') or (specnum = '0') then typeitem := Piece(typeitem, '.', 1)
4888          else typeitem := '';
4889      end;
4890      if length(typeitem) > 0 then
4891        selections := selections + Piece(typeitem, '^', 1) + '~' + Piece(typeitem, '^', 2) + '~|';
4892      aListItem := lvwItemsTop.GetNextItem(aListItem, sdAll, [isSelected]);
4893    end;
4894    checkaction := false;
4895    actionOK := false;
4896    profile := '*';
4897    counter := lstViewsTop.Tag;           // unclear on use of actual count ??
4898    if counter = BIG_NUMBER then
4899      counter := lstViewsBottom.Tag;
4900    DialogGraphProfiles(actionOK, checkaction, FGraphSetting,
4901      profile, profilestring, section, Patient.DFN, counter, true, selections);
4902    if (not actionOK) then exit;
4903    if (section = 'neither') then exit;
4904    FillViews;
4905    if (section = 'bottom') or (section = 'both') then
4906    begin
4907      lstViewsBottom.Tag := counter;
4908      lvwItemsBottom.Tag := counter;
4909    end;
4910    if (section = 'top') or (section = 'both') then
4911    begin
4912      lstViewsTop.Tag := counter;
4913      lvwItemsTop.Tag  := counter;
4914    end;
4915    ViewSelections;
4916  end;