source: cprs/trunk/CPRS-Chart/mCoPayDesc.pas@ 1495

unit mCoPayDesc;



interface



uses 

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  ExtCtrls, StdCtrls, ORCtrls, UBAConst, VA508AccessibilityManager;



type

  TfraCoPayDesc = class(TFrame)

    pnlRight: TPanel;

    lblCaption: TStaticText;

    pnlSCandRD: TPanel;

    lblSCDisplay: TLabel;

    memSCDisplay: TCaptionMemo;

    Spacer2: TLabel;

    pnlMain: TPanel;

    spacer1: TLabel;

    pnlHNC: TPanel;

    lblHNC2: TVA508StaticText;

    lblHNC: TVA508StaticText;

    pnlMST: TPanel;

    lblMST2: TVA508StaticText;

    lblMST: TVA508StaticText;

    pnlSWAC: TPanel;

    lblSWAC2: TVA508StaticText;

    lblSWAC: TVA508StaticText;

    pnlIR: TPanel;

    lblIR2: TVA508StaticText;

    lblIR: TVA508StaticText;

    pnlAO: TPanel;

    lblAO2: TVA508StaticText;

    lblAO: TVA508StaticText;

    pnlSC: TPanel;

    lblSC2: TVA508StaticText;

    lblSC: TVA508StaticText;

    pnlCV: TPanel;

    lblCV2: TVA508StaticText;

    lblCV: TVA508StaticText;

    pnlSHD: TPanel;

    lblSHAD: TVA508StaticText;

    lblSHAD2: TVA508StaticText;

    procedure lblEnter(Sender: TObject);

    procedure lblExit(Sender: TObject);

  private

    { Private declarations }

    procedure ConvertShortLabelsToLong;

  public

    procedure ShowTreatmentFactorHints(var pHintText: string; var pCompName: TVA508StaticText);

    procedure LabelCaptionsOn(CaptionsOn : Boolean = true);

    constructor Create(AOwner: TComponent); override;

  end;



implementation



uses rPCE, UBAGlobals, VAUtils, VA508AccessibilityRouter;



{$R *.DFM}

var

    FOSTFHintWndActive: boolean;

    FOSTFhintWindow: THintWindow;





{ TfraCoPayDesc }



constructor TfraCoPayDesc.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  TabStop := FALSE;

  ListSCDisabilities(memSCDisplay.Lines);

  lblSC.Hint          := BAFactorsRec.FBAFactorSC;

  lblSC2.Hint         := BAFactorsRec.FBAFactorSC;

  lblCV.Hint          := BAFactorsRec.FBAFactorCV;

  lblCV2.Hint         := BAFactorsRec.FBAFactorCV;

  lblAO.Hint          := BAFactorsRec.FBAFactorAO;

  lblAO2.Hint         := BAFactorsRec.FBAFactorAO;

  lblIR.Hint          := BAFactorsRec.FBAFactorIR;

  lblIR2.Hint         := BAFactorsRec.FBAFactorIR;

  lblSWAC.Hint        := BAFactorsRec.FBAFactorEC;

  lblSWAC2.Hint       := BAFactorsRec.FBAFactorEC;

  lblMST.Hint         := BAFactorsRec.FBAFactorMST;

  lblMST2.Hint        := BAFactorsRec.FBAFactorMST;

  lblHNC.Hint         := BAFactorsRec.FBAFactorHNC;

  lblHNC2.Hint        := BAFactorsRec.FBAFactorHNC;

  lblSHAD.Hint        := BAFactorsRec.FBAFactorSHAD;

  lblSHAD2.Hint       := BAFactorsRec.FBAFactorSHAD;

  if ScreenReaderActive then

    ConvertShortLabelsToLong;

end;



procedure TfraCoPayDesc.LabelCaptionsOn(CaptionsOn: Boolean);

begin

  //Abbreviated captions

  lblSC.ShowHint := CaptionsOn;

  lblCV.ShowHint := CaptionsOn;

  lblAO.ShowHint := CaptionsOn;

  lblIR.ShowHint := CaptionsOn;

  lblSWAC.ShowHint := CaptionsOn;

  lblMST.ShowHint := CaptionsOn;

  lblHNC.ShowHint := CaptionsOn;

  lblSHAD.ShowHint := CaptionsOn;

  //Long captions

  lblSC2.ShowHint := CaptionsOn;

  lblCV2.ShowHint := CaptionsOn;

  lblAO2.ShowHint := CaptionsOn;

  lblIR2.ShowHint := CaptionsOn;

  lblSWAC2.ShowHint := CaptionsOn;

  lblMST2.ShowHint  := CaptionsOn;

  lblHNC2.ShowHint := CaptionsOn;

  lblSHAD2.ShowHint := CaptionsOn;

end;



procedure TfraCoPayDesc.lblEnter(Sender: TObject);

begin

  (Sender as TVA508StaticText).Font.Style := [fsBold];

end;



procedure TfraCoPayDesc.lblExit(Sender: TObject);

begin

    (Sender as TVA508StaticText).Font.Style := [];

end;



procedure TfraCoPayDesc.ConvertShortLabelsToLong;

begin

  lblSC2.Caption := BAFactorsRec.FBAFactorSC;

  lblCV2.Caption := BAFactorsRec.FBAFactorCV;

  lblAO2.Caption := BAFactorsRec.FBAFactorAO;

  lblIR2.Caption  := BAFactorsRec.FBAFactorIR;

  lblSWAC2.Caption := BAFactorsRec.FBAFactorEC;

  lblSHAD2.Caption := BAFactorsRec.FBAFactorSHAD;

  lblMST2.Caption := BAFactorsRec.FBAFactorMST;

  lblHNC2.Caption := BAFactorsRec.FBAFactorHNC;

end;



procedure TfraCoPayDesc.ShowTreatmentFactorHints(var pHintText: string;

  var pCompName: TVA508StaticText);

var

 HRect: TRect;

 thisRect: TRect;

 x,y: integer;



begin

  try

     if FOSTFhintWndActive then

        begin

        FOSTFhintWindow.ReleaseHandle;

        FOSTFhintWndActive := False;

        end;

  except

     on E: Exception do

        begin

        {$ifdef debug}Show508Message('Unhandled exception in procedure TfrmSignOrders.ShowTreatmentFactorHints()');{$endif}

        raise;

        end;

  end;



  try

      FOSTFhintWindow := THintWindow.Create(Self);

      FOSTFhintWindow.Color := clInfoBk;

      GetWindowRect(pCompName.Handle,thisRect);

      x := thisRect.Left;

      y := thisRect.Top;

      hrect := FOSTFhintWindow.CalcHintRect(Screen.Width, pHintText,nil);

      hrect.Left   := hrect.Left + X;

      hrect.Right  := hrect.Right + X;

      hrect.Top    := hrect.Top + Y;

      hrect.Bottom := hrect.Bottom + Y;



      LabelCaptionsOn(not FOSTFHintWndActive);



      FOSTFhintWindow.ActivateHint(hrect, pHintText);

      FOSTFHintWndActive := True;

  except

     on E: Exception do

        begin

        {$ifdef debug}Show508Message('Unhandled exception in procedure TfrmSignOrders.ShowTreatmentFactorHints()');{$endif}

        raise;

        end;

  end;

end;



initialization

  SpecifyFormIsNotADialog(TfraCoPayDesc);



end.