Procedure

TfrmReports.GraphPanel

Module

fReports

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmReports

Declaration

procedure GraphPanel(active: boolean);

Calls Hierarchy


TfrmReports.GraphPanel
 ├StrToFMDateTime
 ├TfrmGraphs.DateDefaults
 └TfrmReports.lstDateRangeClick
   └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.CheckExpandedLabs
     │ │ │ └TfrmGraphs.cboDateRangeChange...
     │ │ ├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.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...
     │     │ └TfrmGraphs.ItemsClick...
     │     └TfrmGraphs.lvwItemsBottomClick
     │       ├GraphTurboOn
     │       ├TfrmGraphs.Switch...
     │       └TfrmGraphs.ItemsClick...
     └TfrmGraphs.lstViewsBottomChange
       └TfrmGraphs.ViewsChange...

Called-By Hierarchy


                                 TfrmReports.GraphPanel
                                    TfrmReports.Graph┤ 
                         TfrmReports.tvReportsClick┘ │ 
                  TfrmFrame.lstCIRNLocationsClick┤   │ 
                            TfrmFrame.SetUpCIRN┘ │   │ 
                       TfrmFrame.SetupPatient┘   │   │ 
                  UpdatePatientInfoForAlert┤     │   │ 
               TfrmFrame.mnuFileNextClick┘ │     │   │ 
             TfrmFrame.mnuFileOpenClick┤   │     │   │ 
                 TfrmFrame.UMInitiate┤ │   │     │   │ 
        TfrmFrame.mnuFileNextClick...┤ │   │     │   │ 
        TfrmFrame.mnuFileRefreshClick┤ │   │     │   │ 
        TfrmOrders.CheckOrderStatus┤ │ │   │     │   │ 
    TfrmOrders.mnuActChgEvntClick┤ │ │ │   │     │   │ 
       TfrmOrders.mnuActHoldClick┤ │ │ │   │     │   │ 
     TfrmOrders.mnuActUnholdClick┤ │ │ │   │     │   │ 
      TfrmOrders.mnuActRenewClick┤ │ │ │   │     │   │ 
     TfrmOrders.mnuActChangeClick┤ │ │ │   │     │   │ 
       TfrmOrders.mnuActCopyClick┘ │ │ │   │     │   │ 
             TfrmMeds.mnuActDCClick┤ │ │   │     │   │ 
            TfrmMeds.CheckMedStatus┘ │ │   │     │   │ 
         TfrmMeds.mnuActHoldClick┤   │ │   │     │   │ 
        TfrmMeds.mnuActRenewClick┤   │ │   │     │   │ 
       TfrmMeds.mnuActUnholdClick┤   │ │   │     │   │ 
       TfrmMeds.mnuActChangeClick┤   │ │   │     │   │ 
         TfrmMeds.mnuActCopyClick┤   │ │   │     │   │ 
       TfrmMeds.mnuActRefillClick┘   │ │   │     │   │ 
                   TfrmFrame.ViewInfo┘ │   │     │   │ 
                TfrmDCSumm.ViewInfo┤   │   │     │   │ 
              TfrmConsults.ViewInfo┤   │   │     │   │ 
      TfrmFrame.pnlRemindersMouseUp┤   │   │     │   │ 
       TfrmFrame.RemindersChanged┘ │   │   │     │   │ 
           TfrmFrame.FormCreate┘   │   │   │     │   │ 
             TfrmFrame.pnlCIRNClick┤   │   │     │   │ 
       TfrmFrame.pnlVistaWebClick┤ │   │   │     │   │ 
            TfrmFrame.FormKeyDown┘ │   │   │     │   │ 
          TfrmFrame.pnlPatientClick┤   │   │     │   │ 
            TfrmFrame.pnlVisitClick┤   │   │     │   │ 
      TfrmFrame.pnlPrimaryCareClick┤   │   │     │   │ 
        TfrmFrame.pnlRemindersClick┤   │   │     │   │ 
         TfrmFrame.pnlPostingsClick┤   │   │     │   │ 
             TfrmFrame.pnlFlagClick┤   │   │     │   │ 
               TfrmFrame.laMHVClick┤   │   │     │   │ 
              TfrmFrame.laVAA2Click┤   │   │     │   │ 
                TfrmOrders.ViewInfo┤   │   │     │   │ 
                  TfrmMeds.ViewInfo┤   │   │     │   │ 
               TfrmSurgery.ViewInfo┤   │   │     │   │ 
                 TfrmNotes.ViewInfo┤   │   │     │   │ 
              TfrmProblems.ViewInfo┘   │   │     │   │ 
      TfrmFrame.mnuFileNotifRemoveClick┤   │     │   │ 
              TfrmFrame.NextButtonClick┘   │     │   │ 
            TfrmFrame.SetUpNextButton┘     │     │   │ 
      TfrmFrame.mnuFileOpenClick...┤       │     │   │ 
               TfrmFrame.FormResize┘       │     │   │ 
             TfrmFrame.ChangeFont┘         │     │   │ 
     TfrmFrame.LoadSizesForUser┤           │     │   │ 
TfrmFrame.LoadUserPreferences┘ │           │     │   │ 
       TfrmFrame.UMInitiate┘   │           │     │   │ 
     TfrmFrame.mnuFontSizeClick┘           │     │   │ 
              TfrmFrame.mnuFileOpenClick...┤     │   │ 
           TfrmFrame.AllowCCOWContextChange┤     │   │ 
            TfrmFrame.mnuFileNextClick...┤ │     │   │ 
            TfrmFrame.mnuFileOpenClick...┤ │     │   │ 
   TfrmFrame.mnuFileResumeContextSetClick┘ │     │   │ 
                TfrmFrame.UpdateCCOWContext┤     │   │ 
            TfrmFrame.mnuFileOpenClick...┤ │     │   │ 
          TfrmFrame.ctxContextorCommitted┤ │     │   │ 
           TfrmFrame.StartCCOWContextor┘ │ │     │   │ 
                 TfrmFrame.FormCreate┘   │ │     │   │ 
   TfrmFrame.mnuFileResumeContextGetClick┘ │     │   │ 
     TfrmFrame.mnuFileResumeContextSetClick┘     │   │ 
                          TfrmReports.DisplayPage┤   │ 
                         TfrmReports.LoadTreeView┤   │ 
                        TfrmReports.DisplayPage┤ │   │ 
           TfrmOptionsReportsDefault.btnOKClick┤ │   │ 
        TfrmOptionsReportsDefault.btnResetClick┤ │   │ 
         TfrmOptionsReportsCustom.btnApplyClick┘ │   │ 
          TfrmOptionsReportsCustom.btnOKClick┘   │   │ 
                 TfrmReports.ProcessNotifications┤   │ 
                        TfrmReports.DisplayPage┘ │   │ 
                     TfrmReports.tvReportsKeyDown┤   │ 
                  TfrmReports.tvProceduresKeyDown┤   │ 
                      TfrmReports.chkMaxFreqClick┤   │ 
             TfrmOptionsReportsDefault.btnOKClick┤   │ 
          TfrmOptionsReportsDefault.btnResetClick┤   │ 
        TfrmOptionsReportsCustom.btnApplyClick...┘   │ 
                        TfrmReports.tvReportsClick...┘ 

Calls

Name Declaration Comments
TfrmGraphs.DateDefaults procedure DateDefaults; -
TfrmReports.lstDateRangeClick procedure lstDateRangeClick(Sender: TObject); -
StrToFMDateTime function StrToFMDateTime(const AString: string): TFMDateTime; -

Called-By

Name Declaration Comments
TfrmReports.Graph procedure Graph(reportien: integer); -
TfrmReports.tvReportsClick procedure tvReportsClick(Sender: TObject); -


Source

323   procedure TfrmReports.GraphPanel(active: boolean);
324   var
325     adddaterange: boolean;
326     i: integer;
327     aQualifier, aStartTime, aStopTime, aNewLine: string;
328   begin
329     if active then
330     begin
331       pnlLeftBottom.Height := pnlLeft.Height div 2;
332       pnlViews.Height := pnlLeftBottom.Height;
333       if pnlLeft.Height < 200 then
334         pnlTopViews.Height := 3
335       else
336         pnlTopViews.Height := 80;
337       lblQualifier.Visible := false;
338       lstQualifier.Visible := false;
339       pnlViews.Visible := true;
340       if lstDateRange.Tag = 0 then
341       begin
342         lstDateRange.Tag := 1;
343         aQualifier  :=  PReportTreeObject(tvReports.Selected.Data)^.Qualifier;
344         aStartTime  :=  Piece(aQualifier,';',1);
345         aStopTime   :=  Piece(aQualifier,';',2);
346         adddaterange := true;
347         aNewLine := '^' + aStartTime + ' to ' + aStopTime +'^^^' + aStartTime + ';' +  aStopTime +
348           '^' + floattostr(StrToFMDateTime(aStartTime)) + '^' + floattostr(StrToFMDateTime(aStopTime));
349         for i := 0 to GraphForm.cboDateRange.Items.Count - 1 do
350           if GraphForm.cboDateRange.Items[i] = aNewLine then
351           begin
352             adddaterange := false;
353             break;
354           end;
355         if adddaterange then GraphForm.cboDateRange.Items.Add(aNewLine);
356         lstDateRange.Items := GraphForm.cboDateRange.Items;
357         GraphForm.DateDefaults;
358         lstDateRange.ItemIndex := GraphForm.cboDateRange.ItemIndex;
359         //lstDateRange.ItemIndex := lstDateRange.Items.Count - 1;
360         //lstDateRange.ItemIndex := lstDateRange.Items.Count - 2;      //set to all results till fixed
361         lstDateRangeClick(self);
362       end;
363       pnlLeftBottom.Visible := true;
364       splitter1.Visible := true;
365     end
366     else
367     begin
368       lblQualifier.Visible := true;
369       lstQualifier.Visible := true;
370       pnlViews.Visible := false;
371       pnlLeftBottom.Height := lblHeaders.Height + lblQualifier.Height + 90;
372     end;
373   end;