home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 08 / pulldown / pdtype.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-05-27  |  1.1 KB  |  20 lines
  1. (* ----------------------------------------------------------------------- *)
  2. (*                             PDTYPE.PAS                                  *)
  3. (*                           PULLDOWN-Typen                                *)
  4.  
  5.       InputStr = STRING [10];      (* Stringtyp fuer externe Menue-Eingabe *)
  6.       MenuType = RECORD
  7.                     Item        :ARRAY [1..MaxItems] OF STRING [ItemLength];
  8.                     NoItems,
  9.                     LastItem,
  10.                     FrameColor,                       (* Rahmenfarbe       *)
  11.                     NormalText,                       (* normale Farben    *)
  12.                     NormalBack,
  13.                     SelectText,                       (* Farben bei Anwahl *)
  14.                     SelectBack  :INTEGER;
  15.                     vertical,                        (* Lage des Menues    *)
  16.                     Frame       :BOOLEAN;            (* Rahmen um Menue?   *)
  17.                  END;
  18. (* ----------------------------------------------------------------------- *)
  19. (*                         Ende von PDTYPE.PAS                             *)
  20.