home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / ST_PASCA.LZH / GEMCONST.PAS < prev    next >
Pascal/Delphi Source File  |  1987-04-22  |  5KB  |  192 lines
  1. { gemconst.pas - Personal Pascal GEM library constant definitions. }
  2.  
  3.         Screen_Device  = 1;
  4.         Printer_Device = 21;
  5.         No_Port        = 0;
  6.         No_Window      = -1;
  7.         Root           = 0;     { Index of root w/in object tree }
  8.         Null_Index     = -1;    { Index of a non-existent item }
  9.         Max_Len        = 81;    { Max string length }
  10.         Max_Depth      = 8;     { Max depth of search or draw }
  11.         Max_Tree       = 100;   { Max size of object tree }
  12.  
  13.         Max_C_String = 255;     { Max length of "C" style string (for our    }
  14.                                 { purposes--obviously there is no such limit }
  15.                                 { for "real" C strings!)                     }
  16.  
  17.         Max_Fn          = 12;   { Max length of file and path names }
  18.         Max_Path        = 80;
  19.         Max_WTitle      = 80;
  20.  
  21.         R_Tree          = 0;    { Resource types... }
  22.         R_String        = 5;
  23.  
  24.   { Event values: }
  25.         E_Keyboard      = 1;
  26.         E_Button        = 2;
  27.         E_Mouse1        = 4;
  28.         E_Mouse2        = 8;
  29.         E_Message       = 16;
  30.         E_Timer         = 32;
  31.  
  32.   { Graphics command constants: }
  33.         { Drawing modes: }
  34.         Replace_Mode    = 1;
  35.         Trans_Mode      = 2;
  36.         XOR_Mode        = 3;
  37.         Rev_Trans_Mode  = 4;
  38.  
  39.         { Paint patterns: }
  40.         { Use None for no fill }
  41.         Solid           = 1;
  42.         Pat1            = 2;
  43.         Pat2            = 3;
  44.         Pat3            = 4;
  45.         Pat4            = 5;
  46.         Pat5            = 6;
  47.         Pat6            = 7;
  48.         Pat7            = 8;
  49.         Pat8            = 9;
  50.         Pat9            = 10;
  51.         Pat10           = 11;
  52.         Pat11           = 12;
  53.         Pat12           = 13;
  54.         Pat13           = 14;
  55.         Pat14           = 15;
  56.         Pat15           = 16;
  57.         Pat16           = 17;
  58.         Pat17           = 18;
  59.         Pat18           = 19;
  60.         Pat19           = 20;
  61.         Pat20           = 21;
  62.         Pat21           = 22;
  63.         Pat22           = 23;
  64.         Pat23           = 24;
  65.         Pat24           = 25;
  66.         Hatch1          = 26;
  67.         Hatch2          = 27;
  68.         Hatch3          = 28;
  69.         Hatch4          = 29;
  70.         Hatch5          = 30;
  71.         Hatch6          = 31;
  72.         Hatch7          = 32;
  73.         Hatch8          = 33;
  74.         Hatch9          = 34;
  75.         Hatch10         = 35;
  76.         Hatch11         = 36;
  77.         Hatch12         = 37;
  78.   { Line styles: }
  79.         { Solid is same as Paint pattern }
  80.         LongDash        = 2;
  81.         Dotted          = 3;
  82.         DashDot         = 4;
  83.         Dashed          = 5;
  84.         DashDotDot      = 6;
  85.  
  86.   { Text effects: }
  87.         Normal          = 0;
  88.         Thickened       = 1;
  89.         Lightened       = 2;
  90.         Slanted         = 4;
  91.         Underlined      = 8;
  92.         Outlined        = 16;
  93.         Shadowed        = 32;
  94.  
  95.   { Font types: }
  96.     System_Font = 3;
  97.     Small_Font  = 5;
  98.  
  99.   { Graphic types of obs: }
  100.     G_Box       = 20;
  101.     G_Text      = 21;
  102.     G_BoxText   = 22;
  103.     G_Image     = 23;
  104.     G_ProgDef   = 24;
  105.     G_IBox      = 25;
  106.     G_Button    = 26;
  107.     G_BoxChar   = 27;
  108.     G_String    = 28;
  109.     G_FText     = 29;
  110.     G_FBoxText  = 30;
  111.     G_Icon      = 31;
  112.     G_Title     = 32;
  113.  
  114.   { Object flags: }
  115.     None        = $000;    { Also used for fill pattern and text effects. }
  116.     Selectable  = $001;
  117.     Default     = $002;
  118.     Exit_Btn    = $004;
  119.     Editable    = $008;
  120.     Radio_Btn   = $010;
  121.     Last_Ob     = $020;
  122.     Touch_Exit  = $040;
  123.     Hide_Tree   = $080;
  124.     Indirect    = $100;
  125.  
  126.   { Object states }
  127.         { Use Normal for no special state }
  128.     Selected    = $01;
  129.     Crossed     = $02;
  130.     Checked     = $04;
  131.     Disabled    = $08;
  132.         { Outlined and Shadowed are defined under text effects }
  133.  
  134.   { Window elements: }
  135.     G_Name    = $001 ;
  136.     G_Close   = $002 ;
  137.     G_Full    = $004 ;
  138.     G_Move    = $008 ;
  139.     G_Info    = $010 ;
  140.     G_Size    = $020 ;
  141.     G_UpArrow = $040 ;
  142.     G_DnArrow = $080 ;
  143.     G_VSlide  = $100 ;
  144.     G_LArrow  = $200 ;
  145.     G_RArrow  = $400 ;
  146.     G_HSlide  = $800 ;
  147.     G_All     = $FEF ;          { All elements, except info line }
  148.  
  149.   { Color register shorthands: }
  150.     White       = 0 ;
  151.     Black       = 1 ;
  152.     Red         = 2 ;
  153.     Green       = 3 ;
  154.     Blue        = 4 ;
  155.     Cyan        = 5 ;
  156.     Yellow      = 6 ;
  157.     Magenta     = 7 ;
  158.     L_White     = 8 ;
  159.     L_Black     = 9 ;
  160.     L_Red       = 10 ;
  161.     L_Green     = 11 ;
  162.     L_Blue      = 12 ;
  163.     L_Cyan      = 13 ;
  164.     L_Yellow    = 14 ;
  165.     L_Magenta   = 15 ;
  166.  
  167.   { Predefined GEM messages: }
  168.     MN_Selected         = 10 ;
  169.     WM_Redraw           = 20 ;
  170.     WM_Topped           = 21 ;
  171.     WM_Closed           = 22 ;
  172.     WM_Fulled           = 23 ;
  173.     WM_Arrowed          = 24 ;
  174.     WM_HSlid            = 25 ;
  175.     WM_VSlid            = 26 ;
  176.     WM_Sized            = 27 ;
  177.     WM_Moved            = 28 ;
  178.  
  179.   { Wind_Get/Set field values: }
  180.     WF_PrevXYWH         = 6 ;
  181.     WF_FullXYWH         = 7 ;
  182.     WF_HSlide           = 8 ;
  183.     WF_VSlide           = 9 ;
  184.     WF_HSlSize          = 15 ;
  185.     WF_VSlSize          = 16 ;
  186.  
  187.   { Desk-Accessoir values: }
  188.     AC_Open             = 40;
  189.     AC_Close            = 41;
  190. { End of gemconst.pas }
  191.  
  192.