home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / intuition / screens.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  6.2 KB  |  276 lines
  1. {$if not def INTUITION_SCREENS_H } CONST INTUITION_SCREENS_H=true;
  2.  
  3. { *********************************************************************
  4.   ** KickPascal-Include-Datei "intuition/screens.h" zu Kickstart 3.0 **
  5.   ********************************************************************* }
  6.  
  7. TYPE p_Screen = ^Screen;
  8. TYPE p_DrawInfo = ^DrawInfo;
  9. TYPE p_PubScreenNode =  ^PubScreenNode;
  10. TYPE p_NewScreen = ^NewScreen;
  11. TYPE p_ExtNewScreen = ^ExtNewScreen;
  12. TYPE p_ScreenBuffer = ^ScreenBuffer;
  13.  
  14. {$if not def INTUITION_INTUITION_H;incl "intuition/intuition.h";endif}
  15. {$if not def GRAPHICS_GFX_H;incl "graphics/gfx.h";endif}
  16. {$if not def GRAPHICS_CLIP_H;incl "graphics/clip.h";endif}
  17. {$if not def GRAPHICS_VIEW_H;incl "graphics/view.h";endif}
  18. {$if not def GRAPHICS_RASTPORT_H;incl "graphics/rastport.h";endif}
  19. {$if not def GRAPHICS_LAYERS_H;incl "graphics/layers.h";endif}
  20. {$if not def UTILITY_TAGITEM_H;incl "utility/tagitem.h";endif}
  21.  
  22.  
  23. CONST
  24.  DRI_VERSION = 2;
  25.  
  26. TYPE DrawInfo = RECORD
  27.  dri_Version    : Word;
  28.  dri_NumPens    : Word;
  29.  dri_Pens       : ^Word;
  30.  dri_Font       : p_TextFont;
  31.  dri_Depth      : Word;
  32.  dri_Resolution : RECORD
  33.                   X : Word;
  34.                   Y : Word;
  35.                   END;
  36.  dri_Flags      : Long;
  37.  dri_CheckMark  : p_Image;
  38.  dri_AmigaKey   : p_Image;
  39.  dri_Reserved   : ARRAY[0..4] OF Long;
  40. END;
  41.  
  42.  
  43. CONST
  44.  DRIF_NEWLOOK  = $00000001;
  45.  
  46.  
  47. CONST
  48.  _DETAILPEN        = $0000; { "_" ergänzt }
  49.  _BLOCKPEN         = $0001; { "_" ergänzt }
  50.  TEXTPEN           = $0002;
  51.  SHINEPEN          = $0003;
  52.  SHADOWPEN         = $0004;
  53.  FILLPEN           = $0005;
  54.  FILLTEXTPEN       = $0006;
  55.  BACKGROUNDPEN     = $0007;
  56.  HIGHLIGHTTEXTPEN  = $0008;
  57.  
  58.  BARDETAILPEN      = $0009;
  59.  BARBLOCKPEN       = $000A;
  60.  BARTRIMPEN        = $000B;
  61.  
  62.  NUMDRIPENS   = $000C;
  63.  
  64. CONST
  65.  PEN_C3 = $FEFC;
  66.  PEN_C2 = $FEFD;
  67.  PEN_C1 = $FEFE;
  68.  PEN_C0 = $FEFF;
  69.  
  70.  
  71. TYPE Screen = RECORD
  72.  NextScreen   : p_Screen;
  73.  FirstWindow  : p_Window; 
  74.  LeftEdge     : Integer;
  75.  TopEdge      : Integer ;
  76.  Width        : Integer;
  77.  Height       : Integer;
  78.  MouseY       : Integer;
  79.  MouseX       : Integer;
  80.  Flags        : Word;
  81.  Title        : Str;
  82.  DefaultTitle : Str;
  83.  BarHeight    : Short;
  84.  BarVBorder   : Short;
  85.  BarHBorder   : Short;
  86.  MenuVBorder  : Short;
  87.  MenuHBorder  : Short;
  88.  WBorTop      : Short;
  89.  WBorLeft     : Short;
  90.  WBorRight    : Short;
  91.  WBorBottom   : Short;
  92.  Font         : p_TextAttr;
  93.  ViewPort     : ViewPort;
  94.  RastPort     : RastPort;
  95.  BitMap       : BitMap;
  96.  LayerInfo    : Layer_Info;
  97.  FirstGadget  : p_Gadget;
  98.  DetailPen    : Byte;
  99.  BlockPen     : Byte;
  100.  SaveColor0   : Word;
  101.  BarLayer     : p_Layer;
  102.  ExtData      : Ptr;
  103.  UserData     : Ptr;
  104. END;
  105.  
  106. CONST
  107.  SCREENTYPE    = $000F;
  108.  WBENCHSCREEN  = $0001;
  109.  PUBLICSCREEN  = $0002;
  110.  CUSTOMSCREEN  = $000F;
  111.  
  112. CONST
  113.  _SHOWTITLE   = $0010; { "_" ergänzt }
  114.  BEEPING      = $0020;
  115.  CUSTOMBITMAP = $0040;
  116.  SCREENBEHIND = $0080;
  117.  SCREENQUIET  = $0100;
  118.  SCREENHIRES  = $0200;
  119.  NS_EXTENDED  = $1000;
  120.  AUTOSCROLL   = $4000;
  121.  PENSHARED    = $0400;
  122.  
  123.  
  124. CONST
  125.  STDSCREENHEIGHT = -1;
  126.  STDSCREENWIDTH  = -1;
  127.  
  128. CONST
  129.  SA_Dummy       = (TAG_USER + 32);
  130.  SA_Left        = (SA_Dummy+$0001);
  131.  SA_Top         = (SA_Dummy+$0002);
  132.  SA_Width       = (SA_Dummy+$0003);
  133.  SA_Height      = (SA_Dummy+$0004);
  134.  SA_Depth       = (SA_Dummy+$0005);
  135.  SA_DetailPen   = (SA_Dummy+$0006);
  136.  SA_BlockPen    = (SA_Dummy+$0007);
  137.  SA_Title       = (SA_Dummy+$0008);
  138.  SA_Colors      = (SA_Dummy+$0009);
  139.  SA_ErrorCode   = (SA_Dummy+$000A);
  140.  SA_Font        = (SA_Dummy+$000B);
  141.  SA_SysFont     = (SA_Dummy+$000C);
  142.  SA_Type        = (SA_Dummy+$000D);
  143.  SA_BitMap      = (SA_Dummy+$000E);
  144.  SA_PubName     = (SA_Dummy+$000F);
  145.  SA_PubSig      = (SA_Dummy+$0010);
  146.  SA_PubTask     = (SA_Dummy+$0011);
  147.  SA_DisplayID   = (SA_Dummy+$0012);
  148.  SA_DClip       = (SA_Dummy+$0013);
  149.  SA_Overscan    = (SA_Dummy+$0014);
  150.  SA_Obsolete1   = (SA_Dummy+$0015);
  151.  SA_ShowTitle   = (SA_Dummy+$0016);
  152.  SA_Behind      = (SA_Dummy+$0017);
  153.  SA_Quiet       = (SA_Dummy+$0018);
  154.  SA_AutoScroll  = (SA_Dummy+$0019);
  155.  SA_Pens        = (SA_Dummy+$001A);
  156.  SA_FullPalette = (SA_Dummy+$001B);
  157.  
  158.  SA_ColorMapEntries = (SA_Dummy+$001C);
  159.  SA_Parent      = (SA_Dummy+$001D);
  160.  SA_Draggable   = (SA_Dummy+$001E);
  161.  SA_Exclusive   = (SA_Dummy+$001F);
  162.  SA_SharePens   = (SA_Dummy+$0020);
  163.  SA_BackFill    = (SA_Dummy+$0021); 
  164.  SA_Interleaved = (SA_Dummy+$0022);
  165.  SA_Colors32    = (SA_Dummy+$0023);
  166.  SA_VideoControl= (SA_Dummy+$0024);
  167.  SA_FrontChild  = (SA_Dummy+$0025);
  168.  SA_BackChild   = (SA_Dummy+$0026);
  169.  SA_LikeWorkbench = (SA_Dummy+$0027);
  170.  
  171.  SA_Reserved    = (SA_Dummy+$0028);
  172.  
  173.  
  174.  
  175. {$if not def NSTAG_EXT_VPMODE}
  176. CONST NSTAG_EXT_VPMODE = (TAG_USER or 1);
  177. {$endif}
  178.  
  179. CONST
  180.  OSERR_NOMONITOR    = 1;
  181.  OSERR_NOCHIPS      = 2;
  182.  OSERR_NOMEM        = 3;
  183.  OSERR_NOCHIPMEM    = 4;
  184.  OSERR_PUBNOTUNIQUE = 5;
  185.  OSERR_UNKNOWNMODE  = 6;
  186.  OSERR_TOODEEP      = 7;
  187.  OSERR_ATTACHFAIL   = 8;
  188.  OSERR_NOTAVAILABLE = 9;
  189.  
  190.  
  191. TYPE NewScreen = RECORD
  192.  LeftEdge     : Integer;
  193.  TopEdge      : Integer;
  194.  Width        : Integer;
  195.  Height       : Integer;
  196.  Depth        : Integer;
  197.  DetailPen    : Byte
  198.  BlockPen     : Byte;
  199.  ViewModes    : Word;
  200.  _Type        : Word;       { "_" ergänzt }
  201.  Font         : p_TextAttr;
  202.  DefaultTitle : Str;
  203.  Gadgets      : p_Gadget;
  204.  CustomBitMap : p_BitMap;
  205. END;
  206.  
  207.  
  208. TYPE ExtNewScreen = RECORD
  209.  LeftEdge     : Integer;
  210.  TopEdge      : Integer;
  211.  Width        : Integer;
  212.  Height       : Integer;
  213.  Depth        : Integer;
  214.  DetailPen    : Byte
  215.  BlockPen     : Byte;
  216.  ViewModes    : Word;
  217.  _Type        : Word;        { "_" ergänzt }
  218.  Font         : p_TextAttr;
  219.  DefaultTitle : Str;
  220.  Gadgets      : p_Gadget;
  221.  CustomBitMap : p_BitMap;
  222.  Extension    : p_TagItem;
  223. END;
  224.  
  225. CONST
  226.  OSCAN_TEXT     = 1;
  227.  OSCAN_STANDARD = 2;
  228.  OSCAN_MAX      = 3;
  229.  OSCAN_VIDEO    = 4;
  230.  
  231.  
  232.  
  233. TYPE PubScreenNode = RECORD
  234.  psn_Node         : Node;
  235.  psn_Screen       : p_Screen;
  236.  psn_Flags        : Word;
  237.  psn_Size         : Integer;
  238.  psn_VisitorCount : Word;
  239.  psn_SigTask      : p_Task;
  240.  psn_SigBit       : Byte;
  241. END;
  242.  
  243. CONST PSNF_PRIVATE  = $0001;
  244.  
  245. CONST MAXPUBSCREENNAME = 139;
  246.  
  247. CONST
  248.  SHANGHAI     = $0001;
  249.  POPPUBSCREEN = $0002;
  250.  
  251. CONST
  252.  SDEPTH_TOFRONT = 0;
  253.  SDEPTH_TOBACK  = 1;
  254.  SDEPTH_INFAMILY= 2;
  255.  
  256.  SDEPTH_CHILDONLY=SDEPTH_INFAMILY;
  257.  
  258.  
  259. CONST
  260.  SPOS_RELATIVE    = 0;
  261.  SPOS_ABSOLUTE    = 1;
  262.  SPOS_MAKEVISIBLE = 2;
  263.  SPOS_FORCEDRAG   = 3;
  264.  
  265.  
  266. TYPE ScreenBuffer = RECORD
  267.  sb_BitMap   : p_BitMap;
  268.  sb_DBufInfo : p_DBufInfo;
  269. end;
  270.  
  271. CONST
  272.  SB_SCREEN_BITMAP       = 1;
  273.  SB_COPY_BITMAP         = 2;
  274.  
  275. {$endif}
  276.