Procedure

TfrmGraphSettings.Conversion

Module

fGraphSettings

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmGraphSettings

Declaration

procedure Conversion(conv: integer);

Called-By Hierarchy


           TfrmGraphSettings.Conversion
                  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

276   procedure TfrmGraphSettings.Conversion(conv: integer);
277   begin
278     if conv = BIG_NUMBER then
279     begin
280       lblOptionsInfo.Visible := true;
281       frmGraphSettings.Caption := 'Graph Settings - Defaults Only';
282       lblConversions.Enabled := false;
283       cboConversions.Enabled := false;
284       cboConversions.ItemIndex := 0;
285       cboConversions.Text := '';
286     end
287     else
288     with cboConversions do
289     begin
290       lblOptionsInfo.Visible := false;
291       frmGraphSettings.Caption := 'Graph Settings';
292       if btnPublicSave.Enabled = true then
293       begin
294         lblConversions.Enabled := true;
295         Enabled := true;
296         ItemIndex := conv;
297         Text := Items[ItemIndex];
298       end
299       else
300       begin
301         lblConversions.Enabled := false;
302         cboConversions.Enabled := false;
303         cboConversions.ItemIndex := 0;
304         cboConversions.Text := '';
305       end;
306     end;
307   end;