home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 08 / pulldown / pdconst.pas next >
Encoding:
Pascal/Delphi Source File  |  1987-05-27  |  2.0 KB  |  32 lines
  1. (* ----------------------------------------------------------------------- *)
  2. (*                           PDCONST.PAS                                   *)
  3. (*              Systemabhaengige und PULLDOWN-Konstanten                   *)
  4.  
  5. (* -----------------      Hardwareabhaengige Groessen    ----------------- *)
  6.                 {  hier speziell fuer IBM-Kompatible Rechner:  }
  7. { Konstanten und Routinen zur Bildschirmspeicher-Verwaltung:
  8.   Beginn des Speichers bei Color-Grafikkarte:  $B800:0000
  9.                           Monochrome-Adapter:  $B000:0000 }
  10.                ScreenSeg   = $B800;
  11.                ScreenOfs   = $0000;
  12.                ScreenLen   = $1000;  { Monochrome-Adapter: $2000 }
  13. { Definition der in "Pulldown" verwendeten Steuercodes, diese muessen aus
  14.   Konstanten vom Typ "CHAR" bestehen; erzeugen die gewuenschten Tasten
  15.   laengere Codes (z.B. Funktions- und Cursor-Tasten bei PC's),  so kann
  16.   eine Uebersetzung in der Prozedur "ReadChar" erfolgen: }
  17.                CrsLeft     = ^S;        (*  Pfeiltasten:  links   *)
  18.                CrsRight    = ^D;        (*       -        rechts  *)
  19.                CrsUp       = ^E;        (*       -        oben    *)
  20.                CrsDown     = ^X;        (*       -        unten   *)
  21.                ESC         = ^[;        (*  Escape-Steuerzeichen  *)
  22.                CR          = ^M;        (*  Carriage-Return-Code  *)
  23. { Zeichen zum Zeichnen des Rahmens um ein Menue: }
  24.                LeftTop     = #201;      RightTop    = #187;
  25.                LeftBottom  = #200;      RightBottom = #188;
  26.                Horizontal  = #205;      Vertical    = #186;
  27. (* -----------------      PULLDOWN-MENUE     Groessen:   ----------------- *)
  28.       MaxItems   =  6;                (* maximale Anzahl von Menuepunkten  *)
  29.       ItemLength = 15;               (* maximale Laenge eines Menuepunktes *)
  30. (* ----------------------------------------------------------------------- *)
  31. (*                         Ende von PDCONST.PAS                            *)
  32.