Procedure

DialogOptionsGraphSettings

Module

fGraphSettings

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Declaration

procedure DialogOptionsGraphSettings(topvalue, leftvalue, fontsize: integer;
  var actiontype: boolean);

Calls Hierarchy


DialogOptionsGraphSettings
 ├GetCurrentSetting
 ├GetPublicSetting
 ├GraphSettingsInit
 ├FileNameX
 └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


         DialogOptionsGraphSettings
TfrmOptions.btnGraphSettingsClick┘ 

Calls

Name Declaration Comments
DialogGraphSettings procedure DialogGraphSettings(fontsize: integer; var okbutton: boolean; aGraphSetting: TGraphSetting; DisplaySource: TStrings; var conv: integer; var aSettings: string); -
FileNameX function FileNameX(filenum: string): string; -
GetCurrentSetting function GetCurrentSetting: string; -
GetPublicSetting function GetPublicSetting: string; -
GraphSettingsInit function GraphSettingsInit(settings: string): TGraphSetting; -

Called-By

Name Declaration Comments
TfrmOptions.btnGraphSettingsClick procedure btnGraphSettingsClick(Sender: TObject); -


Source

108   procedure DialogOptionsGraphSettings(topvalue, leftvalue, fontsize: integer;
109     var actiontype: boolean);
110   var
111     FGraphSetting: TGraphSetting;
112     FSources, AllTypes: TStrings;
113     conv, i: integer;
114     aSettings, dfntype, listline, settings, settings1: string;
115   begin
116     settings := GetCurrentSetting;
117     settings1 := GetPublicSetting;
118     if settings1 = '' then
119     begin
120       ShowMsg(TXT_NOGRAPHING);
121       exit;
122     end;
123     settings1 := Piece(settings, '|', 1);
124     Alltypes := TStringList.Create;
125     FastAssign(GtslAllTypes, AllTypes);
126     for i := 0 to AllTypes.Count - 1 do
127     begin
128       listline := AllTypes[i];
129       dfntype := UpperCase(Piece(listline, '^', 1));
130       SetPiece(listline, '^', 1, dfntype);
131       AllTypes[i] := listline;
132     end;
133     FGraphSetting := GraphSettingsInit(settings);
134     FSources := TStringList.Create;
135     for i := 1 to BIG_NUMBER do
136     begin
137       dfntype := Piece(settings1, ';', i);
138       if length(dfntype) = 0 then break;
139       listline := dfntype + '^' + FileNameX(dfntype) + '^1';
140       FSources.Add(listline);
141     end;
142     conv := BIG_NUMBER;  // indicates being called from Options
143     DialogGraphSettings(fontsize, actiontype, FGraphSetting, FSources, conv, aSettings);
144     FGraphSetting.Free;
145     FSources.Free;
146     AllTypes.Free;
147   end;