home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / diskfont / diskfont.h next >
Encoding:
Text File  |  1994-07-25  |  1.8 KB  |  86 lines
  1. {$if not def DISKFONT_DISKFONT_H} CONST DISKFONT_DISKFONT_H=0;
  2.  
  3. { *********************************************************************
  4.   ** KickPascal-Include-Datei "diskfont/diskfont.h" zu Kickstart 3.0 **
  5.   ********************************************************************* }
  6.  
  7. TYPE p_AvailFonts = ^_AvailFonts;
  8. TYPE p_TAvailFonts = ^TAvailFonts;
  9. TYPE p_AvailFontsHeader = ^AvailFontsHeader;
  10. TYPE p_DiskFontHeader = ^DiskFontHeader;
  11. TYPE p_FontContentsHeader = ^FontContentsHeader;
  12. TYPE p_TFontContents = ^TFontContents;
  13. TYPE p_FontContents = ^FontContents;
  14.  
  15.  
  16. {$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
  17. {$if not def EXEC_LISTS_H;incl "exec/lists.h";endif}
  18. {$if not def GRAPHICS_TEXT_H;incl "graphics/text.h";endif}
  19.  
  20.  
  21. CONST MAXFONTPATH = 256;
  22.  
  23. TYPE FontContents = RECORD
  24.  fc_FileName : string[MAXFONTPATH];
  25.  fc_YSize : Word;
  26.  fc_Style : Byte;
  27.  fc_Flags : Byte;
  28. END;
  29.  
  30. TYPE TFontContents = RECORD
  31.  tfc_FileName : String[MAXFONTPATH-2];
  32.  tfc_TagCount : Word;
  33.  tfc_YSize : Word;
  34.  tfc_Style : Byte;
  35.  tfc_Flags : Byte;
  36. END;
  37.  
  38. CONST
  39.  FCH_ID  = $0f00;
  40.  TFCH_ID = $0f02;
  41.  
  42. TYPE FontContentsHeader = RECORD
  43.  fch_FileID : Word;
  44.  fch_NumEntries : Word;
  45. END;
  46.  
  47. CONST
  48.  DFH_ID      = $0f80;
  49.  MAXFONTNAME = 32;
  50.  
  51. TYPE DiskFontHeader = RECORD
  52.  dfh_DF       : Node;
  53.  dfh_FileID   : Word;
  54.  dfh_Revision : Word;
  55.  dfh_Segment  : Long;  { auch dfh_TagList }
  56.  dfh_Name     : String[MAXFONTNAME];
  57.  dfh_TF       : TextFont;
  58. END;
  59.  
  60. CONST
  61.  AFB_MEMORY = 0;
  62.  AFF_MEMORY = $0001;
  63.  AFB_DISK   = 1;
  64.  AFF_DISK   = $0002
  65.  AFB_SCALED = 2;
  66.  AFF_SCALED = $0004;
  67.  
  68.  AFB_TAGGED = 16;
  69.  AFF_TAGGED = $10000;
  70.  
  71. TYPE _AvailFonts = RECORD { "_" ergänzt }
  72.  af_Type : Word;
  73.  af_Attr : TextAttr;
  74. END;
  75.  
  76. TYPE TAvailFonts  = RECORD
  77.  taf_Type : Word;
  78.  taf_Attr : TTextAttr;
  79. END;
  80.  
  81. TYPE AvailFontsHeader  = RECORD
  82.  afh_NumEntries : Word;
  83. END;
  84.  
  85. {$endif}
  86.