Procedure

TfrmODProc.ReadServerVariables

Module

fODProc

Last Modified

7/15/2014 3:26:34 PM

Visibility

Private

Owner

TfrmODProc

Declaration

procedure ReadServerVariables;

Calls Hierarchy


TfrmODProc.ReadServerVariables
 ├TfrmODProc.SetProvDiagPromptingMode
 │ ├GetProvDxMode
 │ └TfrmODProc.ControlChange
 │   ├TResponses.Update
 │   │ ├TResponses.FindResponseByName
 │   │ └TResponses.IENForPrompt
 │   ├TfrmODProc.updateService
 │   │ ├TfrmODProc.setup508Label
 │   │ └TResponses.Update...
 │   └TResponses.GetOrderText
 │     ├TResponses.NextInstance
 │     ├TResponses.FindResponseByName
 │     ├TResponses.FormatResponse
 │     │ └TResponses.FindResponseByIEN
 │     └TResponses.AppendChildren
 │       ├TResponses.FindPromptByIEN
 │       ├TResponses.FindResponseByIEN
 │       └TResponses.FormatResponse...
 └TfrmODBase.GetKeyVariable

Called-By Hierarchy


TfrmODProc.ReadServerVariables
       TfrmODProc.FormCreate┤ 
      TfrmODProc.SetupDialog┘ 

Calls

Name Declaration Comments
TfrmODBase.GetKeyVariable function GetKeyVariable(const Index: string): string; -
TfrmODProc.SetProvDiagPromptingMode procedure SetProvDiagPromptingMode; -

Called-By

Name Declaration Comments
TfrmODProc.FormCreate procedure FormCreate(Sender: TObject); -
TfrmODProc.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

535   procedure  TfrmODProc.ReadServerVariables;
536   begin
537     if StrToIntDef(KeyVariable['GMRCNOAT'], 0) > 0 then
538       begin
539         txtAttn.Enabled    := False;
540         txtAttn.Font.Color := clGrayText;
541         lblAttn.Enabled    := False;
542         txtAttn.Color      := clBtnFace;
543       end
544     else
545       begin
546         txtAttn.Enabled    := True;
547         txtAttn.Font.Color := clWindowText;
548         lblAttn.Enabled    := True;
549         txtAttn.Color      := clWindow;
550       end;
551   
552     if StrToIntDef(KeyVariable['GMRCNOPD'], 0) > 0 then
553       begin
554         cmdLexSearch.Enabled   := False;
555         txtProvDiag.Enabled    := False;
556         txtProvDiag.Font.Color := clGrayText;
557         lblProvDiag.Enabled    := False;
558         txtProvDiag.ReadOnly   := True;
559         txtProvDiag.Color      := clBtnFace;
560       end
561     else SetProvDiagPromptingMode;
562   
563     GMRCREAF := KeyVariable['GMRCREAF'];
564   end;