Procedure

TfrmGraphs.btnChangeSettingsClick

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphs

Declaration

procedure btnChangeSettingsClick(Sender: TObject);

Calls Hierarchy


TfrmGraphs.btnChangeSettingsClick
 ├DialogGraphSettings
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ ├rpcGetGraphDateRange
 │ │ └onoff
 │ ├rpcGetGraphSettings
 │ │ └onoff
 │ ├GetPersonalSetting
 │ ├GetPublicSetting
 │ ├TfrmGraphSettings.GetTypeList
 │ ├TfrmGraphSettings.SetSources
 │ ├TfrmGraphSettings.SetSettings
 │ ├TfrmGraphSettings.Conversion
 │ ├TfrmGraphSettings.ChangeSources
 │ └TfrmGraphSettings.ChangeSettings
 ├SetCurrentSetting
 ├TfrmGraphs.SetFontSize
 ├TfrmGraphs.InfoMessage
 ├TfrmGraphs.MergedLabsSelected
 ├TfrmGraphs.StayOnTop
 │ └TfrmGraphs.mnuPopGraphStayOnTopClick
 │   └MarkFormAsStayOnTop
 ├rpcGetItems
 │ └onoff
 ├TfrmGraphs.TypeIsDisplayed
 ├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...
 │ │ │ │ │ ├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...
 │ │   │   ├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...
 ├TfrmGraphs.PositionSelections
 └TfrmGraphs.ChangeStyle...

Called-By Hierarchy


TfrmGraphs.btnChangeSettingsClick
 TfrmReports.btnChangeViewClick┘ 

Calls

Name Declaration Comments
TfrmGraphs.cboDateRangeChange procedure cboDateRangeChange(Sender: TObject); -
TfrmGraphs.ChangeStyle procedure ChangeStyle; -
DialogGraphSettings procedure DialogGraphSettings(fontsize: integer; var okbutton: boolean; aGraphSetting: TGraphSetting; DisplaySource: TStrings; var conv: integer; var aSettings: string); -
TfrmGraphs.InfoMessage procedure InfoMessage(aCaption: string; aColor: TColor; aVisible: boolean); -
TfrmGraphs.MergedLabsSelected function MergedLabsSelected: boolean; -
TfrmGraphs.PositionSelections procedure PositionSelections(aListView: TListView); -
rpcGetItems function rpcGetItems(typeitem: string; const PatientDFN: string): TStrings; -
SetCurrentSetting procedure SetCurrentSetting(aString: string); -
TfrmGraphs.SetFontSize procedure SetFontSize(FontSize: integer); -
TfrmGraphs.StayOnTop procedure StayOnTop; -
TfrmGraphs.TypeIsDisplayed function TypeIsDisplayed(itemtype: string): boolean; -

Called-By

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


Source

951   procedure TfrmGraphs.btnChangeSettingsClick(Sender: TObject);
952   var
953     needtoupdate, okbutton: boolean;
954     conv, i, preconv: integer;
955     PreMaxGraphs: integer;
956     PreMaxSelect: integer;
957     PreMinGraphHeight: integer;
958     PreSortColumn: integer;
959     PreFixedDateRange: boolean;
960     PreMergeLabs: boolean;
961     aSettings, filetype, sourcetype: string;
962     PreSources: TStrings;
963   begin
964     Application.ProcessMessages;
965     okbutton := false;
966     conv := btnChangeSettings.Tag;
967     preconv := conv;
968     with FGraphSetting do
969     begin
970       PreMaxGraphs := MaxGraphs;
971       PreMaxSelect := MaxSelect;
972       PreMinGraphHeight := MinGraphHeight;
973       PreSortColumn := SortColumn;
974       PreFixedDateRange := FixedDateRange;
975       MaxSelectMin := Max(Max(lvwItemsTop.SelCount, lvwItemsBottom.SelCount), 1);
976       PreMergeLabs := MergeLabs;
977     end;
978     PreSources := TStringList.Create;
979     FastAssign(FSources, PreSources);
980     DialogGraphSettings(Font.Size, okbutton, FGraphSetting, FSources, conv, aSettings);
981     if not okbutton then exit;
982     if length(aSettings) > 0 then SetCurrentSetting(aSettings);
983     btnChangeSettings.Tag := conv;
984     pnlInfo.Font.Size := chkItemsTop.Font.Size;
985     SetFontSize(chkItemsTop.Font.Size);
986     InfoMessage(TXT_WARNING, COLOR_WARNING, (conv > 0));
987     if MergedLabsSelected then
988       InfoMessage(pnlInfo.Caption + ' ' + TXT_WARNING_MERGED_LABS, COLOR_WARNING, true);
989     pnlHeader.Visible := pnlInfo.Visible;
990     StayOnTop;
991     needtoupdate := (conv <> preconv);
992     for i := 0 to FSources.Count - 1 do
993     begin
994       sourcetype := FSources[i];
995       if Copy(sourcetype, 1, 1) = '*' then
996       begin
997         FSources[i] := Pieces(sourcetype, '^', 2, 4);
998         if not FFastItems then
999         begin
1000          filetype := Piece(FSources[i], '^', 1);
1001          FastAddStrings(rpcGetItems(filetype, Patient.DFN), GtslItems);
1002          needtoupdate := true;
1003        end;
1004      end;
1005      if not needtoupdate then
1006        if Piece(PreSources[i], '^', 3) = '0' then
1007          needtoupdate := TypeIsDisplayed(Piece(sourcetype, '^', 1))
1008        else
1009          needtoupdate := not TypeIsDisplayed(Piece(sourcetype, '^', 1));
1010    end;
1011    if not needtoupdate then
1012    with FGraphSetting do
1013      if MaxGraphs <> PreMaxGraphs then
1014        needtoupdate := true
1015      else if MaxSelect <> PreMaxSelect then
1016        needtoupdate := true
1017      else if MinGraphHeight <> PreMinGraphHeight then
1018        needtoupdate := true
1019      else if SortColumn <> PreSortColumn then
1020        needtoupdate := true
1021      else if MergeLabs <> PreMergeLabs then
1022        needtoupdate := true
1023      else if FixedDateRange <> PreFixedDateRange then
1024        needtoupdate := true;
1025    if needtoupdate then
1026    begin
1027      cboDateRangeChange(self);
1028      if FGraphSetting.MergeLabs <> PreMergeLabs then
1029      begin
1030        PositionSelections(lvwItemsTop);
1031        PositionSelections(lvwItemsBottom);
1032      end;
1033    end;
1034    ChangeStyle;
1035    if lvwItemsTop.SelCount = 0 then
1036    begin
1037      lstViewsTop.ItemIndex := -1;
1038    end;
1039    if lvwItemsBottom.SelCount = 0 then
1040    begin
1041      lstViewsBottom.ItemIndex := -1;
1042    end;
1043    FreeAndNil(PreSources);
1044  end;