Procedure

TfrmGraphSettings.ChangeSettings

Module

fGraphSettings

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmGraphSettings

Declaration

procedure ChangeSettings(aGraphSetting: TGraphSetting);

Called-By Hierarchy


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

Called-By

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


Source

200   procedure TfrmGraphSettings.ChangeSettings(aGraphSetting: TGraphSetting);
201   var
202     turnon: boolean;
203     i : integer;
204     value: string;
205   begin
206     with aGraphSetting do
207     begin
208       MaxGraphs := spnMaxGraphs.Position;
209       MinGraphHeight := spnMinGraphHeight.Position;
210       MaxSelect := spnMaxSelect.Position;
211       MaxSelectMin := 1;
212       OptionSettings := '';
213       with chklstOptions do
214       for i := 0 to Items.Count - 1 do
215       begin
216         value := Piece(lstOptions.Items[i], '^', 2);
217         turnon := Checked[i];
218         if turnon then OptionSettings := OptionSettings + value;
219         if value = SETTING_VALUES then Values := turnon
220         else if value = SETTING_VZOOM then VerticalZoom := turnon
221         else if value = SETTING_HZOOM then HorizontalZoom := turnon
222         else if value = SETTING_3D then View3D := turnon
223         else if value = SETTING_LEGEND then Legend := turnon
224         else if value = SETTING_LINES then Lines := turnon
225         else if value = SETTING_DATES then Dates := turnon
226         else if value = SETTING_SORT then SortByType := turnon
227         else if value = SETTING_CLEAR then ClearBackground := turnon
228         else if value = SETTING_GRADIENT then Gradient := turnon
229         else if value = SETTING_HINTS then Hints := turnon
230         else if value = SETTING_FIXED then FixedDateRange := turnon
231         else if value = SETTING_TURBO then Turbo := turnon
232         else if value = SETTING_MERGELABS then MergeLabs := turnon
233         else if value = SETTING_TOP then StayOnTop := turnon;
234       end;
235       if SortByType then SortColumn := 1 else SortColumn := 0;
236       DateRangeOutpatient := cboDateRangeOutpatient.ItemID;
237       DateRangeInpatient := cboDateRangeInpatient.ItemID;
238     end;
239   end;