Procedure
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
Called-By
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;
TfrmGraphs.cboDateRangeChange
TfrmGraphs.MergedLabsSelected