home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / gsxvar.pas < prev    next >
Pascal/Delphi Source File  |  1986-11-25  |  3KB  |  47 lines
  1. {-----------------------------------------------------------------------}
  2. {                gsxvar.pas - Pascal GSX Bibliothek:                    }
  3. {                    Variablen-Deklarationen                            }
  4. {-----------------------------------------------------------------------}
  5.  
  6. { GSX-Errorflag: ist TRUE, wenn bei einer
  7.   GSX-Operation ein Fehler auftritt:            }
  8.  
  9.   VDI_Error: BOOLEAN;
  10.  
  11.   contrl   : VDI_contrl;
  12.   intin    : VDI_intin;
  13.   intout   : VDI_intout;
  14.   ptsin    : VDI_ptsin;
  15.   ptsout   : VDI_ptsout;
  16.  
  17. { Die folgenden Variablen enthalten nach Open_Workstation Informationen
  18.   ueber das eroeffnete Geraet:                                          }
  19.  
  20.   Scaling,                   { Exakt skalierendes Ausgabegeraet ?       }
  21.   ColorDevice,               { Farbfaehig ?                             }
  22.   TextRotation,              { Text kann gedreht werden ?               }
  23.   AreaFill,                  { Flaechen koennen gefuellt werden ?       }
  24.   CellArrays  : BOOLEAN;     { Zeichenzellen-Raster-Fuellung moglich ?  }
  25.  
  26.   HRes,                    { hor. Aufloesung, fuer Plotter undefiniert. }
  27.   VRes,                    { ver. Aufloesung                            }
  28.   PixWidth, PixHeight,       { Abmessung eines Pixels in 1/1000 mm      }
  29.   CharHeights,               { Anzahl verschiedener Zeichenhoehen,      }
  30.                              { 0 = kontinuierlich varierbar.            }
  31.   Lines, LineWidths,          { Anzahl Linienarten/Linienbreiten        }
  32.   Markers, MarkerSizes,       {   "    Markierungsarten/-groessen       }
  33.   Fonts, Patterns,            {   "    Schriftarten/Fuellmuster         }
  34.   HatchStyles, Colors,        {   "    Schraffuren/vordefinierte Farben }
  35.   GDPs,                       {   "    ZeichenMakros: Kreis,Balken etc. }
  36.   ColorsAvail,                {   "    moeglicher Farben                }
  37.   InputLocators,              {   "    Zeiger (z.B. Joystick)           }
  38.   InputValuators,             {   "    Regler (z.B. Paddles)            }
  39.   InputChoices,               {   "    Funktionstasten                  }
  40.   InputStrings,               {   "    Text-Eingabe (z.B. Tastatur)     }
  41.   MinCharHeight, MaxCharHeight,      { minimale/maximale  Zeichenhoehe  }
  42.   MinLineWidth, MaxLineWidth,        { minimale/maximale Zeilenbreite   }
  43.   MinMarkHeight, MaxMarkHeight,      { minimale/maximale Markiererhoehe }
  44.   WorkstationType             :INTEGER;
  45.  
  46. {-----------------------------------------------------------------------}
  47.                         { Ende von gsxvar.pas }