Procedure

DialogGraphSettings

Module

fGraphSettings

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Declaration

procedure DialogGraphSettings(fontsize: integer;  var okbutton: boolean;
  aGraphSetting: TGraphSetting; DisplaySource: TStrings; var conv: integer; var aSettings: string);

Calls Hierarchy


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

Called-By Hierarchy


                  DialogGraphSettings
         DialogOptionsGraphSettings┤ 
TfrmOptions.btnGraphSettingsClick┘ │ 
  TfrmGraphs.btnChangeSettingsClick┘ 
   TfrmReports.btnChangeViewClick┘   

Calls

Name Declaration Comments
TfrmGraphSettings.ChangeSettings procedure ChangeSettings(aGraphSetting: TGraphSetting); -
TfrmGraphSettings.ChangeSources procedure ChangeSources(DisplaySource: TStrings); -
TfrmGraphSettings.Conversion procedure Conversion(conv: integer); -
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
GetPersonalSetting function GetPersonalSetting: string; -
GetPublicSetting function GetPublicSetting: string; -
TfrmGraphSettings.GetTypeList procedure GetTypeList(aList: TStrings); -
rpcGetGraphDateRange function rpcGetGraphDateRange(reportid: string): TStrings; -
rpcGetGraphSettings function rpcGetGraphSettings: TStrings; -
TfrmGraphSettings.SetSettings procedure SetSettings(aGraphSetting: TGraphSetting); -
TfrmGraphSettings.SetSources procedure SetSources(aList, DisplaySource: TStrings); -

Called-By

Name Declaration Comments
TfrmGraphs.btnChangeSettingsClick procedure btnChangeSettingsClick(Sender: TObject); -
DialogOptionsGraphSettings procedure DialogOptionsGraphSettings(topvalue, leftvalue, fontsize: integer; var actiontype: boolean); -


Source

149   procedure DialogGraphSettings(fontsize: integer;  var okbutton: boolean;
150     aGraphSetting: TGraphSetting; DisplaySource: TStrings; var conv: integer; var aSettings: string);
151   var
152     t1, t2: string;
153     aList: TStrings;
154     frmGraphSettings: TfrmGraphSettings;
155   begin
156     FCloseSettings := '';
157     okbutton := false;
158     aSettings := '';
159     aList := TStringList.Create;
160     frmGraphSettings := TfrmGraphSettings.Create(Application);
161     try
162       with frmGraphSettings do
163       begin
164         if displaysource.Count > 99999 then exit;
165         FastAssign(rpcGetGraphDateRange('OR_GRAPHS'), cboDateRangeOutpatient.Items);
166         if cboDateRangeOutpatient.Items.Count > 0 then
167           cboDateRangeOutpatient.Items.Delete(0);
168         FastAssign(cboDateRangeOutpatient.Items, cboDateRangeInpatient.Items);
169         FastAssign(rpcGetGraphSettings, aList);
170         t1 := GetPersonalSetting; t2 := GetPublicSetting;   // t1 are personal, t2 public settings
171         FPersonalSettings := t1;
172         FPublicSettings := t2;
173         GetTypeList(aList);
174         SetSources(aList, DisplaySource);
175         SetSettings(aGraphSetting);
176         with spnMaxGraphs do
177           lblMaxGraphsRef.Caption := inttostr(Min) + ' to ' + inttostr(Max);
178         with spnMinGraphHeight do
179           lblMinGraphHeightRef.Caption := inttostr(Min) + ' to ' + inttostr(Max);
180         with spnMaxSelect do
181           lblMaxSelectRef.Caption := inttostr(Min) + ' to ' + inttostr(Max);
182         Conversion(conv);
183         ResizeAnchoredFormToFont(frmGraphSettings);
184         ShowModal;
185         okbutton := (btnClose.Tag = 1);
186         if okbutton then
187         begin
188           aSettings := FCloseSettings;
189           conv := cboConversions.ItemIndex;
190           ChangeSources(DisplaySource);
191           ChangeSettings(aGraphSetting);
192         end;
193       end;
194     finally
195       frmGraphSettings.Release;
196       aList.Free;
197     end;
198   end;