home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 02 / hyperkey / hyperkey.dec < prev    next >
Encoding:
Text File  |  1987-11-11  |  2.6 KB  |  37 lines
  1. (* ------------------------------------------------------------------------- *)
  2. (*                              HYPERKEY.DEC                                 *)
  3. (*              Konstanten-, Typen und Variablendeklarationen                *)
  4. CONST WindowFore = LightGray;                 (* Farben fuer HYPERKEY-Window *)
  5.       WindowBack = Black;
  6.       FrameColor = White;                     (* Rahmenfarbe HYPERKEY-Window *)
  7.       MenuFore   = White;                         (* Farben fuer Menue-Zeile *)
  8.       MenuBack   = Magenta;
  9.       Pen        = White;          (* Vordergrundfarbe aller Window-Ausgaben *)
  10.       AltPen     = LightGray;                  (* Farbe fuer Control-Zeichen *)
  11.       KeyBack    = Red;       (* Hintergrundfarbe fuer: Tasten-Informationen *)
  12.       EditBack   = Blue;                           (* : Makro-Editierfeld    *)
  13.       InfoBack   = Green;                          (* : Cursor-Informationen *)
  14.       HelpFore   = LightGray;                (* Farben fuer Hilfsbildschirme *)
  15.       HelpBack   = Blue;
  16.         (* es folgen die IBM-Scancodes der von HYPERKEY benutzten Tasten:    *)
  17.         (* "Help" ist hier die Funtionstaste <F1>, "Clr" die Backspace-Taste *)
  18.       Left     = $4B00;   Right    = $4D00;   Up       = $4800;
  19.       AltUp    = $0008;   Down     = $5000;   AltDown  = $0002;
  20.       Home     = $4700;   CtrlHome = $7700;   End_     = $4F00;
  21.       CtrlEnd  = $7500;   Return   = $1C0D;   CtrlRet  = $1C0A;
  22.       Delete   = $5300;   ShiftDel = $532E;   PgDn     = $5100;
  23.       PgUp     = $4900;   Insert   = $5200;   Tab      = $0F09;
  24.       Clear    = $0E08;   Escape   = $011B;   Help     = $3B00;
  25.                                     (* die Texte der beiden HYPERKEY-Menues: *)
  26.       MainMenu= ' '^Q'-, -'^P', Home, End, Del, Esc, Return, Ins, <F1>=Hilfe';
  27.       EditMenu= ^Q'-, -'^P', Home, End, Return, Ins, Del, Clr, Esc, Tab, <F1>';
  28.                                                         (* Belegungs-Status: *)
  29.       Status :ARRAY [0..1] OF STRING [7] = (' passiv',' aktiv ');
  30.       Video  = $10;                                   (* Der Video-Interrupt *)
  31. TYPE  StringType = STRING [255];                    (* allgemeiner Stringtyp *)
  32.       ShapeType  = (full, ins, Line);              (* moegliche Cursorformen *)
  33.       CursorMode = (on, off);                       (* Cursormodus:  ein/aus *)
  34. VAR   Key, YesNoKey :INTEGER;  Quit :BOOLEAN;  WorkPtr :ListPtrType;
  35. (* ------------------------------------------------------------------------- *)
  36. (*                                 HYPERKEY.DEC                              *)
  37.