9.13 Unit Etc

{-------------------------------------------------------------------}

{ zusaetzlichen Programmteile }
unit Etc;

{-------------------------------------------------------------------}

interface

uses
  Glob,        { Globale Deklarationen }

  { Turbo Pascal Standard Units }
  App, Dialogs, Calc, Objects, Views;

procedure Rechner;
procedure Info;

{-------------------------------------------------------------------}

implementation

{-------------------------------------------------------------------}

{ einfacher Taschenrechner aus Turbo Pascal Standard Unit }
procedure Rechner;

var
  P : PCalculator;

begin
  P := New(PCalculator, Init);
  P^.HelpCtx := hcRechner;
  Desktop^.Insert(P);
end; { Rechner }

{-------------------------------------------------------------------}

{ Programm-Information }
procedure Info;

var
  D : PDialog;
  R : TRect;

begin
  R.Assign(0, 0, 45, 11);
  D := New(PDialog, Init(R,'Info'));
  with D^ do
  begin
    Options := Options or ofCentered;
    R.Grow(-1, -1);
    Dec(R.B.Y, 3);
    Insert(New(PStaticText, Init(R,
      #13 + ^C'Programm zur Messung der'#13 +
      ^C'Kohaerenzlaenge von Laserstrahlung'#13 +
      #13 + ^C'1997'#13 + ^C'Udo Becker')));
    R.Assign(17, 8, 27, 10);
    Insert(New(PButton, Init(R, '~O~K', cmOk, bfDefault)));
  end;
  Desktop^.ExecView(D);
  Dispose(D, Done);
end; { Info }

{-------------------------------------------------------------------}

end. { Etc }

{-------------------------------------------------------------------}