home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / intuition / sghooks.h < prev   
Encoding:
Text File  |  1994-07-25  |  1.7 KB  |  81 lines
  1. {$if not def INTUITION_SGHOOKS_H} CONST INTUITION_SGHOOKS_H=0;
  2.  
  3. { *********************************************************************
  4.   ** KickPascal-Include-Datei "intuition/sghooks.h" zu Kickstart 3.0 **
  5.   ********************************************************************* }
  6.  
  7. TYPE p_StringExtend = ^StringExtend;
  8. TYPE p_SGWork = ^SGWork;
  9.  
  10. {$if not def INTUITION_CGHOOK_H; incl "intuition/cghooks.h";endif }
  11.  
  12.  
  13. TYPE StringExtend = RECORD
  14.  Font         : p_TextFont;
  15.  Pens         : ARRAY[0..1] OF Byte;
  16.  ActivePens   : ARRAY[0..1] OF Byte;
  17.  InitialModes : Long;
  18.  EditHook     : p_Hook;
  19.  WorkBuffer   : Ptr;
  20.  Reserved     : ARRAY[0..3] OF Long;
  21. END;
  22.  
  23. TYPE SGWork = RECORD
  24.  Gadget     : p_Gadget;
  25.  StringInfo : p_StringInfo;
  26.  WorkBuffer : Ptr;
  27.  PrevBuffer : Ptr;
  28.  Modes      : Long;
  29.  IEvent     : p_InputEvent;
  30.  Code       : Word;
  31.  BufferPos  : Integer;
  32.  NumChars   : Integer;
  33.  Actions    : Long;
  34.  LongInt    : LongInt;
  35.  GadgetInfo : p_GadgetInfo;
  36.  EditOp     : Word;
  37. END;
  38.  
  39. CONST
  40.  EO_NOOP        = $0001;
  41.  EO_DELBACKWARD = $0002;
  42.  EO_DELFORWARD  = $0003;
  43.  EO_MOVECURSOR  = $0004;
  44.  EO_ENTER       = $0005;
  45.  EO_RESET       = $0006;
  46.  EO_REPLACECHAR = $0007;
  47.  EO_INSERTCHAR  = $0008;
  48.  EO_BADFORMAT   = $0009;
  49.  EO_BIGCHANGE   = $000A;
  50.  EO_UNDO        = $000B;
  51.  EO_CLEAR       = $000C;
  52.  EO_SPECIAL     = $000D;
  53.  
  54. CONST
  55.  SGM_REPLACE    = $1;
  56.  SGM_FIXEDFIELD = $2;
  57.  SGM_NOFILTER   = $4;
  58.  SGM_EXITHELP   = $80;
  59.  
  60. CONST
  61.  SGM_NOCHANGE = $8;
  62.  SGM_NOWORKB  = $10;
  63.  SGM_CONTROL  = $20;
  64.  SGM_LONGINT  = $40;
  65.  
  66. CONST
  67.  SGA_USE        = $1;
  68.  SGA_END        = $2;
  69.  SGA_BEEP       = $4;
  70.  SGA_REUSE      = $8;
  71.  SGA_REDISPLAY  = $10;
  72.  SGA_NEXTACTIVE = $20;
  73.  SGA_PREVACTIVE = $40;
  74.  
  75.  
  76. CONST
  77.  SGH_KEY   = 1;
  78.  SGH_CLICK = 2;
  79.  
  80. {$endif}
  81.