Turbo Toolbox/Turbo_Toolbox.iso/sonderh1/gsxupdat.pas

Pascal/Delphi Source File | 1987-03-13 | 1.0 KB | 28 lines

{---------------------------------------------------------------------------}
{ Ueberpruefen, ab ein Grafik-Tablett, eine Maus, ein Joystick oder andere
  gleichartige Eingabegeraete an die Workstation angeschlossen sind.
       Input_Status = TRUE:  Geraet vorhanden
                    = FALSE: Geraet nicht vorhanden                         }

FUNCTION Input_Status: BOOLEAN;

BEGIN
  contrl[1] := 5;  contrl[2] := 0;  contrl[3] := 16;
  VDI_Call(contrl, intin, intout, ptsin, ptsout);
  Input_Status := (intout[1] = 1);
END;

{---------------------------------------------------------------------------}
{ Hardcopy des Bildschirms generieren. Diese Funktion ist sehr geraete-
  spezifisch und kann die Hardcopy an einen Drucker oder an ein anderes
  angeschlossenes Hardcopygeraet senden.                                    }

PROCEDURE Hard_Copy;

BEGIN
  contrl[1] := 5;  contrl[2] := 0;  contrl[3] := 17;
  VDI_Call(contrl, intin, intout, ptsin, ptsout);
END;

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