svn/view/confopt.pas

unit confopt;
{$IFDEF FPC}
  {$MODE DELPHI}{$H+}
{$ENDIF}

(***************************************)
(* Copyright (C) 2003, SHIRAISHI Kazuo *)
(***************************************)


interface

function ConfirmedDegrees:boolean;
procedure ConfirmArithmetic;

implementation
uses SysUtils,Types, dialogs, StdCtrls, Controls,
     struct,base,base0,texthand,helpctex,mainfrm,sconsts;

//var confirmed:boolean=false;

function RadianConfirmed:boolean;
var
  mes1:ansistring;
begin
  mes1:=Format(s_ConfirmAngle,[programunit.name]);
  result:=FrameForm.AngleConfirmed
       or (Messagedlg(mes1,mtconfirmation,[mbYes,mbNo],IDH_OPTION_ANGLE)=mrYes);
  if result then
        FrameForm.AngleConfirmed:=true
end;

function ConfirmedDegrees:boolean;
begin
   if not ProgramUnit.AngleDegrees
      and ((programunit.optionAngle=apNone)
      and (initialAngledegrees and not permitMicrosoft
             or (pass=1) and (mainprogram.AngleDegrees=true) and not RadianConfirmed)) then
           begin
             InsertLine(programunit.lineNumb+1,'OPTION ANGLE DEGREES');
             programunit.AngleDegrees:=true
           end;
  result:=ProgramUnit.angleDegrees;
end;

procedure ConfirmArithmetic;
var
  mes1:ansistring;
  s:ansistring;
  function ArithConfirmed:boolean;
     begin
      mes1:=Format(s_ConfirmArithmetic,[programunit.name
                                    ,PrecisionLiteral[programunit.arithmetic]
                                    ,s]);
      result:=FrameForm.ArithmeticConfirmed
         or (Messagedlg(mes1,mtconfirmation,[mbYes,mbNo],IDH_OPTION_ARITHMETIC)=mrYes);
      if result then
        FrameForm.ArithmeticConfirmed:=true
     end;
begin
  s:='OPTION ARITHMETIC ' + PrecisionLiteral[MainProgram.arithmetic];
  if (MainProgram.arithmetic<>programunit.arithmetic)
      and (programunit.optionArithmet=apNone) and not permitMicrosoft
      and not ArithConfirmed then
           begin
             InsertLine(programunit.lineNumb+1,s);
             programunit.arithmetic:=MainProgram.arithmetic
           end;
end;

end.
