|
|
@@ -49,52 +49,42 @@
|
|
|
|
|
|
unit datatypes;
|
|
|
|
|
|
-INTERFACE
|
|
|
+interface
|
|
|
|
|
|
-uses exec, amigados, intuition, utility,
|
|
|
- agraphics, iffparse, amigaprinter, prtbase;
|
|
|
+uses
|
|
|
+ exec, amigados, intuition, utility,
|
|
|
+ agraphics, iffparse, amigaprinter, prtbase;
|
|
|
|
|
|
+// datatypes
|
|
|
const
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
- ID_DTYP = 1146378576;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
- ID_DTHD = 1146374212;
|
|
|
+ ID_DTYP = Ord('D') shl 24 + Ord('T') shl 16 + Ord('Y') shl 8 + Ord('P'); // DTYP
|
|
|
+ ID_DTHD = Ord('D') shl 24 + Ord('T') shl 16 + Ord('H') shl 8 + Ord('D'); // DTHD
|
|
|
|
|
|
Type
|
|
|
- pDataTypeHeader = ^tDataTypeHeader;
|
|
|
- tDataTypeHeader = record
|
|
|
- dth_Name, { Descriptive name of the data type }
|
|
|
- dth_BaseName, { Base name of the data type }
|
|
|
- dth_Pattern : STRPTR; { Match pattern for file name. }
|
|
|
- dth_Mask : Pointer; { Comparision mask }
|
|
|
- dth_GroupID, { Group that the DataType is in }
|
|
|
- dth_ID : ULONG; { ID for DataType (same as IFF FORM type) }
|
|
|
- dth_MaskLen, { Length of comparision mask }
|
|
|
- dth_Pad : smallint; { Unused at present (must be 0) }
|
|
|
- dth_Flags, { Flags }
|
|
|
- dth_Priority : WORD; { Priority }
|
|
|
+ PDataTypeHeader = ^TDataTypeHeader;
|
|
|
+ TDataTypeHeader = record
|
|
|
+ dth_Name: STRPTR; // Descriptive name of the data type
|
|
|
+ dth_BaseName: STRPTR; // Base name of the data type
|
|
|
+ dth_Pattern: STRPTR; // Match pattern for file name.
|
|
|
+ dth_Mask: PSmallInt; // Comparision mask
|
|
|
+ dth_GroupID: LongWord; // Group that the DataType is in
|
|
|
+ dth_ID: LongWord; // ID for DataType (same as IFF FORM type)
|
|
|
+ dth_MaskLen: SmallInt; // Length of comparision mask
|
|
|
+ dth_Pad: SmallInt; // Unused at present (must be 0)
|
|
|
+ dth_Flags: Word; // Flags
|
|
|
+ dth_Priority: Word; // Priority
|
|
|
end;
|
|
|
-
|
|
|
const
|
|
|
- DTHSIZE = 32;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
+ DTHSIZE = SizeOf(TDataTypeHeader);
|
|
|
|
|
|
-{ Basic type }
|
|
|
- DTF_TYPE_MASK = $000F;
|
|
|
- DTF_BINARY = $0000;
|
|
|
- DTF_ASCII = $0001;
|
|
|
- DTF_IFF = $0002;
|
|
|
- DTF_MISC = $0003;
|
|
|
-
|
|
|
-{ Set if case is important }
|
|
|
- DTF_CASE = $0010;
|
|
|
-
|
|
|
-{ Reserved for system use }
|
|
|
- DTF_SYSTEM1 = $1000;
|
|
|
+// Basic type - TDataTypeHeader.dth_Flags
|
|
|
+ DTF_TYPE_MASK = $000F;
|
|
|
+ DTF_BINARY = $0000;
|
|
|
+ DTF_ASCII = $0001;
|
|
|
+ DTF_IFF = $0002;
|
|
|
+ DTF_MISC = $0003;
|
|
|
+ DTF_CASE = $0010; // Set if case is important
|
|
|
+ DTF_SYSTEM1 = $1000; // Reserved for system use
|
|
|
|
|
|
{****************************************************************************
|
|
|
*
|
|
|
@@ -114,1226 +104,843 @@ const
|
|
|
*
|
|
|
****************************************************************************}
|
|
|
|
|
|
-{ System file, such as; directory, executable, library, device, font, etc. }
|
|
|
- GID_SYSTEM = 1937339252;
|
|
|
-
|
|
|
-{ Formatted or unformatted text }
|
|
|
- GID_TEXT = 1952807028;
|
|
|
-
|
|
|
-{ Formatted text with graphics or other DataTypes }
|
|
|
- GID_DOCUMENT = 1685021557;
|
|
|
-
|
|
|
-{ Sound }
|
|
|
- GID_SOUND = 1936684398;
|
|
|
-
|
|
|
-{ Musical instruments used for musical scores }
|
|
|
- GID_INSTRUMENT = 1768846196;
|
|
|
-
|
|
|
-{ Musical score }
|
|
|
- GID_MUSIC = 1836413801;
|
|
|
-
|
|
|
-{ Still picture }
|
|
|
- GID_PICTURE = 1885954932;
|
|
|
-
|
|
|
-{ Animated picture }
|
|
|
- GID_ANIMATION = 1634625901;
|
|
|
-
|
|
|
-{ Animation with audio track }
|
|
|
- GID_MOVIE = 1836021353;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-{ A code chunk contains an embedded executable that can be loaded
|
|
|
- * with InternalLoadSeg. }
|
|
|
- ID_CODE = 1146372932;
|
|
|
-
|
|
|
-Type
|
|
|
-{ DataTypes comparision hook context (Read-Only). This is the
|
|
|
- * argument that is passed to a custom comparision routine. }
|
|
|
-
|
|
|
- pDTHookContext = ^tDTHookContext;
|
|
|
- tDTHookContext = record
|
|
|
- { Libraries that are already opened for your use }
|
|
|
- dthc_SysBase,
|
|
|
- dthc_DOSBase,
|
|
|
- dthc_IFFParseBase,
|
|
|
- dthc_UtilityBase : pLibrary;
|
|
|
-
|
|
|
- { File context }
|
|
|
- dthc_Lock : BPTR; { Lock on the file }
|
|
|
- dthc_FIB : pFileInfoBlock; { Pointer to a FileInfoBlock }
|
|
|
- dthc_FileHandle : BPTR; { Pointer to the file handle (may be NULL) }
|
|
|
- dthc_IFF : pIFFHandle; { Pointer to an IFFHandle (may be NULL) }
|
|
|
- dthc_Buffer : STRPTR; { Buffer }
|
|
|
- dthc_BufferLength : ULONG; { Length of the buffer }
|
|
|
+ // System file, such as; directory, executable, library, device, font, etc.
|
|
|
+ GID_SYSTEM = Ord('s') shl 24 + Ord('y') shl 16 + Ord('s') shl 8 + Ord('t'); // syst
|
|
|
+ // Formatted or unformatted text
|
|
|
+ GID_TEXT = Ord('t') shl 24 + Ord('e') shl 16 + Ord('x') shl 8 + Ord('t'); // text
|
|
|
+ // Formatted text combined with graphics or other DataTypes
|
|
|
+ GID_DOCUMENT = Ord('d') shl 24 + Ord('o') shl 16 + Ord('c') shl 8 + Ord('u'); // docu
|
|
|
+ // Sound
|
|
|
+ GID_SOUND = Ord('s') shl 24 + Ord('o') shl 16 + Ord('u') shl 8 + Ord('n'); // soun
|
|
|
+ // Musical instrument
|
|
|
+ GID_INSTRUMENT = Ord('i') shl 24 + Ord('n') shl 16 + Ord('s') shl 8 + Ord('t'); // inst
|
|
|
+ // Musical score
|
|
|
+ GID_MUSIC = Ord('m') shl 24 + Ord('u') shl 16 + Ord('s') shl 8 + Ord('i'); // musi
|
|
|
+ // Picture
|
|
|
+ GID_PICTURE = Ord('p') shl 24 + Ord('i') shl 16 + Ord('c') shl 8 + Ord('t'); // pict
|
|
|
+ //* Animated pictures */
|
|
|
+ GID_ANIMATION = Ord('a') shl 24 + Ord('n') shl 16 + Ord('i') shl 8 + Ord('m'); // anim
|
|
|
+ //* Animation with audio */
|
|
|
+ GID_MOVIE = Ord('m') shl 24 + Ord('o') shl 16 + Ord('v') shl 8 + Ord('i'); // movi
|
|
|
+
|
|
|
+ // A code chunk contains an embedded executable that can be loaded with InternalLoadSeg.
|
|
|
+ ID_CODE = Ord('D') shl 24 + Ord('T') shl 16 + Ord('C') shl 8 + Ord('D'); // DTCD
|
|
|
+
|
|
|
+// DataTypes comparision hook context (Read-Only). This is the argument that is passed to a custom comparision routine.
|
|
|
+type
|
|
|
+ PTHookContext = ^TDTHookContext;
|
|
|
+ TDTHookContext = record
|
|
|
+ dthc_SysBase: PLibrary;
|
|
|
+ dthc_DOSBase: PLibrary;
|
|
|
+ dthc_IFFParseBase: PLibrary;
|
|
|
+ dthc_UtilityBase: PLibrary;
|
|
|
+ // File context
|
|
|
+ dthc_Lock: BPTR; // Lock on the file
|
|
|
+ dthc_FIB: PFileInfoBlock; // Pointer to a FileInfoBlock
|
|
|
+ dthc_FileHandle: BPTR; // Pointer to file handle (may be nil)
|
|
|
+ dthc_IFF: PIFFHandle; // Pointer to IFFHandle (may be nil)
|
|
|
+ dthc_Buffer: STRPTR; // Buffer...
|
|
|
+ dthc_BufferLength: LongWord; // ... and corresponding length
|
|
|
end;
|
|
|
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
const
|
|
|
- ID_TOOL = 1146377292;
|
|
|
+ ID_TOOL = Ord('D') shl 24 + Ord('T') shl 16 + Ord('T') shl 8 + Ord('L'); // DTTL
|
|
|
|
|
|
-Type
|
|
|
- pTool = ^tTool;
|
|
|
- tTool = record
|
|
|
- tn_Which, { Which tool is this }
|
|
|
- tn_Flags : WORD; { Flags }
|
|
|
- tn_Program : STRPTR; { Application to use }
|
|
|
- end;
|
|
|
+type
|
|
|
+ PTool = ^TTool;
|
|
|
+ TTool = record
|
|
|
+ tn_Which: Word; // Which tool is this TW_*
|
|
|
+ tn_Flags: Word; // Flags TF_*
|
|
|
+ tn_Program: STRPTR; // Application to use
|
|
|
+ end;
|
|
|
|
|
|
const
|
|
|
- TSIZE = 8;
|
|
|
-
|
|
|
-{ defines for tn_Which }
|
|
|
- TW_INFO = 1;
|
|
|
- TW_BROWSE = 2;
|
|
|
- TW_EDIT = 3;
|
|
|
- TW_PRINT = 4;
|
|
|
- TW_MAIL = 5;
|
|
|
-
|
|
|
-{ defines for tn_Flags }
|
|
|
- TF_LAUNCH_MASK = $000F;
|
|
|
- TF_SHELL = $0001;
|
|
|
- TF_WORKBENCH = $0002;
|
|
|
- TF_RX = $0003;
|
|
|
+ TOOLSIZE = SizeOf(TTool); // orig TSIZE but clash with type TSize
|
|
|
|
|
|
-{***************************************************************************}
|
|
|
+ // defines for tn_Which
|
|
|
+ TW_INFO = 1;
|
|
|
+ TW_BROWSE = 2;
|
|
|
+ TW_EDIT = 3;
|
|
|
+ TW_PRINT = 4;
|
|
|
+ TW_MAIL = 5;
|
|
|
|
|
|
- ID_TAGS = 1146377287;
|
|
|
+ // defines for tn_Flags
|
|
|
+ TF_LAUNCH_MASK = $000F;
|
|
|
+ TF_SHELL = $0001;
|
|
|
+ TF_WORKBENCH = $0002;
|
|
|
+ TF_RX = $0003;
|
|
|
|
|
|
-{***************************************************************************}
|
|
|
+ ID_TAGS = Ord('D') shl 24 + Ord('T') shl 16 + Ord('T') shl 8 + Ord('G'); // DTTG
|
|
|
|
|
|
-Type
|
|
|
- pDataType = ^tDataType;
|
|
|
- tDataType = record
|
|
|
- dtn_Node1, { Reserved for system use }
|
|
|
- dtn_Node2 : tNode; { Reserved for system use }
|
|
|
- dtn_Header : pDataTypeHeader; { Pointer to the DataTypeHeader }
|
|
|
- dtn_ToolList: tList; { List of tool nodes }
|
|
|
- dtn_FunctionName : STRPTR; { Name of comparision routine }
|
|
|
- dtn_AttrList : pTagItem; { Object creation tags }
|
|
|
- dtn_Length : ULONG; { Length of the memory block }
|
|
|
- end;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
- pToolNode = ^tToolNode;
|
|
|
- tToolNode = Record
|
|
|
- tn_Node : tNode; { Embedded node }
|
|
|
- tn_Tool : tTool; { Embedded tool }
|
|
|
- tn_Length : ULONG; { Length of the memory block }
|
|
|
- end;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
+type
|
|
|
+ PDataType = ^TDataType;
|
|
|
+ TDataType = record
|
|
|
+ dtn_Node1: TNode; // Reserved for system use
|
|
|
+ dtn_Node2: TNode; // Reserved for system use
|
|
|
+ dtn_Header: PDataTypeHeader; // Pointer to the DataTypeHeader
|
|
|
+ dtn_ToolList: TList; // List of tool nodes
|
|
|
+ dtn_FunctionName: STRPTR; // Name of comparison routine
|
|
|
+ dtn_AttrList: PTagItem; // Object creation tags
|
|
|
+ dtn_Length: LongWord; // Length of the memory block
|
|
|
+ end;
|
|
|
|
|
|
const
|
|
|
- ID_NAME = 1312902469;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-{ text ID's }
|
|
|
- DTERROR_UNKNOWN_DATATYPE = 2000;
|
|
|
- DTERROR_COULDNT_SAVE = 2001;
|
|
|
- DTERROR_COULDNT_OPEN = 2002;
|
|
|
- DTERROR_COULDNT_SEND_MESSAGE = 2003;
|
|
|
-
|
|
|
-{ new for V40 }
|
|
|
- DTERROR_COULDNT_OPEN_CLIPBOARD = 2004;
|
|
|
- DTERROR_Reserved = 2005;
|
|
|
- DTERROR_UNKNOWN_COMPRESSION = 2006;
|
|
|
- DTERROR_NOT_ENOUGH_DATA = 2007;
|
|
|
- DTERROR_INVALID_DATA = 2008;
|
|
|
-
|
|
|
-{ New for V44 }
|
|
|
- DTERROR_NOT_AVAILABLE = 2009;
|
|
|
-
|
|
|
-{ Offset for types }
|
|
|
- DTMSG_TYPE_OFFSET = 2100;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
- DATATYPESCLASS : Pchar = 'datatypesclass';
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
- DTA_Dummy = (TAG_USER+$1000);
|
|
|
-
|
|
|
-{ Generic attributes }
|
|
|
- DTA_TextAttr = (DTA_Dummy+10);
|
|
|
- { (struct TextAttr ) Pointer to the default TextAttr to use for
|
|
|
- * the text within the object. }
|
|
|
-
|
|
|
- DTA_TopVert = (DTA_Dummy+11);
|
|
|
- { (LONG) Current top vertical unit }
|
|
|
-
|
|
|
- DTA_VisibleVert = (DTA_Dummy+12);
|
|
|
- { (LONG) Number of visible vertical units }
|
|
|
-
|
|
|
- DTA_TotalVert = (DTA_Dummy+13);
|
|
|
- { (LONG) Total number of vertical units }
|
|
|
-
|
|
|
- DTA_VertUnit = (DTA_Dummy+14);
|
|
|
- { (LONG) Number of pixels per vertical unit }
|
|
|
-
|
|
|
- DTA_TopHoriz = (DTA_Dummy+15);
|
|
|
- { (LONG) Current top horizontal unit }
|
|
|
-
|
|
|
- DTA_VisibleHoriz = (DTA_Dummy+16);
|
|
|
- { (LONG) Number of visible horizontal units }
|
|
|
-
|
|
|
- DTA_TotalHoriz = (DTA_Dummy+17);
|
|
|
- { (LONG) Total number of horizontal units }
|
|
|
-
|
|
|
- DTA_HorizUnit = (DTA_Dummy+18);
|
|
|
- { (LONG) Number of pixels per horizontal unit }
|
|
|
-
|
|
|
- DTA_NodeName = (DTA_Dummy+19);
|
|
|
- { (UBYTE ) Name of the current element within the object. }
|
|
|
-
|
|
|
- DTA_Title = (DTA_Dummy+20);
|
|
|
- { (UBYTE ) Title of the object. }
|
|
|
-
|
|
|
- DTA_TriggerMethods = (DTA_Dummy+21);
|
|
|
- { (struct DTMethod ) Pointer to a NULL terminated array of
|
|
|
- * supported trigger methods. }
|
|
|
-
|
|
|
- DTA_Data = (DTA_Dummy+22);
|
|
|
- { (APTR) Object specific data. }
|
|
|
-
|
|
|
- DTA_TextFont = (DTA_Dummy+23);
|
|
|
- { (struct TextFont ) Default font to use for text within the
|
|
|
- * object. }
|
|
|
-
|
|
|
- DTA_Methods = (DTA_Dummy+24);
|
|
|
- { (ULONG ) Pointer to a ~0 terminated array of supported
|
|
|
- * methods. }
|
|
|
-
|
|
|
- DTA_PrinterStatus = (DTA_Dummy+25);
|
|
|
- { (LONG) Printer error message. Error numbers are defined in
|
|
|
- * <devices/printer.h> }
|
|
|
-
|
|
|
- DTA_PrinterProc = (DTA_Dummy+26);
|
|
|
- { PRIVATE (struct Process ) Pointer to the print process. }
|
|
|
-
|
|
|
- DTA_LayoutProc = (DTA_Dummy+27);
|
|
|
- { PRIVATE (struct Process ) Pointer to the layout process. }
|
|
|
-
|
|
|
- DTA_Busy = (DTA_Dummy+28);
|
|
|
- { Used to turn the applications' busy pointer off and on }
|
|
|
-
|
|
|
- DTA_Sync = (DTA_Dummy+29);
|
|
|
- { Used to indicate that new information has been loaded into
|
|
|
- * an object. This is for models that cache the DTA_TopVert-
|
|
|
- * like tags }
|
|
|
-
|
|
|
- DTA_BaseName = (DTA_Dummy+30);
|
|
|
- { The base name of the class }
|
|
|
-
|
|
|
- DTA_GroupID = (DTA_Dummy+31);
|
|
|
- { Group that the object must belong in }
|
|
|
-
|
|
|
- DTA_ErrorLevel = (DTA_Dummy+32);
|
|
|
- { Error level }
|
|
|
-
|
|
|
- DTA_ErrorNumber = (DTA_Dummy+33);
|
|
|
- { datatypes.library error number }
|
|
|
-
|
|
|
- DTA_ErrorString = (DTA_Dummy+34);
|
|
|
- { Argument for datatypes.library error }
|
|
|
-
|
|
|
- DTA_Conductor = (DTA_Dummy+35);
|
|
|
- { New for V40. (UBYTE ) specifies the name of the
|
|
|
- * realtime.library conductor. Defaults to "Main". }
|
|
|
-
|
|
|
- DTA_ControlPanel = (DTA_Dummy+36);
|
|
|
- { New for V40. (BOOL) Indicate whether a control panel should be
|
|
|
- * embedded within the object (in the animation datatype, for
|
|
|
- * example). Defaults to TRUE. }
|
|
|
-
|
|
|
- DTA_Immediate = (DTA_Dummy+37);
|
|
|
- { New for V40. (BOOL) Indicate whether the object should
|
|
|
- * immediately begin playing. Defaults to FALSE. }
|
|
|
-
|
|
|
- DTA_Repeat = (DTA_Dummy+38);
|
|
|
- { New for V40. (BOOL) Indicate that the object should repeat
|
|
|
- * playing. Defaults to FALSE. }
|
|
|
-
|
|
|
- { New for V44. Address of a DTST_MEMORY source type
|
|
|
- * object (APTR).
|
|
|
- }
|
|
|
- DTA_SourceAddress = (DTA_Dummy+39);
|
|
|
-
|
|
|
- { New for V44. Size of a DTST_MEMORY source type
|
|
|
- * object (ULONG).
|
|
|
- }
|
|
|
- DTA_SourceSize = (DTA_Dummy+40);
|
|
|
-
|
|
|
- { Reserved tag; DO NOT USE (V44) }
|
|
|
- DTA_Reserved = (DTA_Dummy+41);
|
|
|
-
|
|
|
-{ DTObject attributes }
|
|
|
- DTA_Name = (DTA_Dummy+100);
|
|
|
- DTA_SourceType = (DTA_Dummy+101);
|
|
|
- DTA_Handle = (DTA_Dummy+102);
|
|
|
- DTA_DataType = (DTA_Dummy+103);
|
|
|
- DTA_Domain = (DTA_Dummy+104);
|
|
|
-
|
|
|
-{ DON'T USE THE FOLLOWING FOUR TAGS. USE THE CORRESPONDING TAGS IN
|
|
|
- * <intuition/gadgetclass.h> }
|
|
|
- DTA_Left = (DTA_Dummy+105);
|
|
|
- DTA_Top = (DTA_Dummy+106);
|
|
|
- DTA_Width = (DTA_Dummy+107);
|
|
|
- DTA_Height = (DTA_Dummy+108);
|
|
|
-
|
|
|
- DTA_ObjName = (DTA_Dummy+109);
|
|
|
- DTA_ObjAuthor = (DTA_Dummy+110);
|
|
|
- DTA_ObjAnnotation = (DTA_Dummy+111);
|
|
|
- DTA_ObjCopyright = (DTA_Dummy+112);
|
|
|
- DTA_ObjVersion = (DTA_Dummy+113);
|
|
|
- DTA_ObjectID = (DTA_Dummy+114);
|
|
|
- DTA_UserData = (DTA_Dummy+115);
|
|
|
- DTA_FrameInfo = (DTA_Dummy+116);
|
|
|
-
|
|
|
-{ DON'T USE THE FOLLOWING FOUR TAGS. USE THE CORRESPONDING TAGS IN
|
|
|
- * <intuition/gadgetclass.h> }
|
|
|
- DTA_RelRight = (DTA_Dummy+117);
|
|
|
- DTA_RelBottom = (DTA_Dummy+118);
|
|
|
- DTA_RelWidth = (DTA_Dummy+119);
|
|
|
- DTA_RelHeight = (DTA_Dummy+120);
|
|
|
-
|
|
|
- DTA_SelectDomain = (DTA_Dummy+121);
|
|
|
- DTA_TotalPVert = (DTA_Dummy+122);
|
|
|
- DTA_TotalPHoriz = (DTA_Dummy+123);
|
|
|
- DTA_NominalVert = (DTA_Dummy+124);
|
|
|
- DTA_NominalHoriz = (DTA_Dummy+125);
|
|
|
-
|
|
|
-{ Printing attributes }
|
|
|
- DTA_DestCols = (DTA_Dummy+400);
|
|
|
- { (LONG) Destination X width }
|
|
|
-
|
|
|
- DTA_DestRows = (DTA_Dummy+401);
|
|
|
- { (LONG) Destination Y height }
|
|
|
-
|
|
|
- DTA_Special = (DTA_Dummy+402);
|
|
|
- { (UWORD) Option flags }
|
|
|
-
|
|
|
- DTA_RastPort = (DTA_Dummy+403);
|
|
|
- { (struct RastPort ) RastPort to use when printing. (V40) }
|
|
|
-
|
|
|
- DTA_ARexxPortName = (DTA_Dummy+404);
|
|
|
- { (STRPTR) Pointer to base name for ARexx port (V40) }
|
|
|
-
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
- DTST_RAM = 1;
|
|
|
- DTST_FILE = 2;
|
|
|
- DTST_CLIPBOARD = 3;
|
|
|
- DTST_HOTLINK = 4;
|
|
|
- DTST_MEMORY = 5; { New for V44 }
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-{ Attached to the Gadget.SpecialInfo field of the gadget. Don't access directly,
|
|
|
- * use the Get/Set calls instead.
|
|
|
- }
|
|
|
-Type
|
|
|
-
|
|
|
- pDTSpecialInfo = ^tDTSpecialInfo;
|
|
|
- tDTSpecialInfo = record
|
|
|
- si_Lock : tSignalSemaphore; { Locked while in DoAsyncLayout() }
|
|
|
- si_Flags,
|
|
|
-
|
|
|
- si_TopVert, { Top row (in units) }
|
|
|
- si_VisVert, { Number of visible rows (in units) }
|
|
|
- si_TotVert, { Total number of rows (in units) }
|
|
|
- si_OTopVert, { Previous top (in units) }
|
|
|
- si_VertUnit, { Number of pixels in vertical unit }
|
|
|
-
|
|
|
- si_TopHoriz, { Top column (in units) }
|
|
|
- si_VisHoriz, { Number of visible columns (in units) }
|
|
|
- si_TotHoriz, { Total number of columns (in units) }
|
|
|
- si_OTopHoriz, { Previous top (in units) }
|
|
|
- si_HorizUnit : Longint; { Number of pixels in horizontal unit }
|
|
|
- end;
|
|
|
-
|
|
|
+ DTNSIZE = SizeOf(TDataType);
|
|
|
|
|
|
+type
|
|
|
+ PToolNode = ^TToolNode;
|
|
|
+ TToolNode = record
|
|
|
+ tn_Node: TNode; // Embedded node
|
|
|
+ tn_Tool: TTool; // Embedded tool
|
|
|
+ tn_Length: LongWord; // Length of the memory block
|
|
|
+ end;
|
|
|
const
|
|
|
-{ Object is in layout processing }
|
|
|
- DTSIF_LAYOUT = 1;
|
|
|
-
|
|
|
-{ Object needs to be layed out }
|
|
|
- DTSIF_NEWSIZE = 2;
|
|
|
-
|
|
|
- DTSIF_DRAGGING = 4;
|
|
|
- DTSIF_DRAGSELECT = 8;
|
|
|
-
|
|
|
- DTSIF_HIGHLIGHT = 16;
|
|
|
-
|
|
|
-{ Object is being printed }
|
|
|
- DTSIF_PRINTING = 32;
|
|
|
-
|
|
|
-{ Object is in layout process }
|
|
|
- DTSIF_LAYOUTPROC = 64;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-Type
|
|
|
- pDTMethod = ^tDTMethod;
|
|
|
- tDTMethod = record
|
|
|
- dtm_Label,
|
|
|
- dtm_Command : STRPTR;
|
|
|
- dtm_Method : ULONG;
|
|
|
- end;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-Const
|
|
|
- DTM_Dummy = ($600);
|
|
|
-
|
|
|
-{ Inquire what environment an object requires }
|
|
|
- DTM_FRAMEBOX = ($601);
|
|
|
-
|
|
|
-{ Same as GM_LAYOUT except guaranteed to be on a process already }
|
|
|
- DTM_PROCLAYOUT = ($602);
|
|
|
-
|
|
|
-{ Layout that is occurring on a process }
|
|
|
- DTM_ASYNCLAYOUT = ($603);
|
|
|
-
|
|
|
-{ When a RemoveDTObject() is called }
|
|
|
- DTM_REMOVEDTOBJECT = ($604);
|
|
|
-
|
|
|
- DTM_SELECT = ($605);
|
|
|
- DTM_CLEARSELECTED = ($606);
|
|
|
-
|
|
|
- DTM_COPY = ($607);
|
|
|
- DTM_PRINT = ($608);
|
|
|
- DTM_ABORTPRINT = ($609);
|
|
|
-
|
|
|
- DTM_NEWMEMBER = ($610);
|
|
|
- DTM_DISPOSEMEMBER = ($611);
|
|
|
-
|
|
|
- DTM_GOTO = ($630);
|
|
|
- DTM_TRIGGER = ($631);
|
|
|
-
|
|
|
- DTM_OBTAINDRAWINFO = ($640);
|
|
|
- DTM_DRAW = ($641);
|
|
|
- DTM_RELEASEDRAWINFO = ($642);
|
|
|
-
|
|
|
- DTM_WRITE = ($650);
|
|
|
-
|
|
|
-{ Used to ask the object about itself }
|
|
|
+ TNSIZE = SizeOf(TToolNode);
|
|
|
+
|
|
|
+ ID_NAME = Ord('N') shl 24 + Ord('A') shl 16 + Ord('M') shl 8 + Ord('E');
|
|
|
+
|
|
|
+ // Text ID's
|
|
|
+ DTERROR_UNKNOWN_DATATYPE = 2000;
|
|
|
+ DTERROR_COULDNT_SAVE = 2001;
|
|
|
+ DTERROR_COULDNT_OPEN = 2002;
|
|
|
+ DTERROR_COULDNT_SEND_MESSAGE = 2003;
|
|
|
+ // new for V40
|
|
|
+ DTERROR_COULDNT_OPEN_CLIPBOARD = 2004;
|
|
|
+ DTERROR_Reserved = 2005;
|
|
|
+ DTERROR_UNKNOWN_COMPRESSION = 2006;
|
|
|
+ DTERROR_NOT_ENOUGH_DATA = 2007;
|
|
|
+ DTERROR_INVALID_DATA = 2008;
|
|
|
+ // New for V44
|
|
|
+ DTERROR_NOT_AVAILABLE = 2009;
|
|
|
+ // Offset for types }
|
|
|
+ DTMSG_TYPE_OFFSET = 2100;
|
|
|
+
|
|
|
+// datatypesclass
|
|
|
+const
|
|
|
+ DATATYPESCLASS = 'datatypesclass';
|
|
|
+
|
|
|
+ DTA_Dummy = TAG_USER + $1000;
|
|
|
+
|
|
|
+ DTA_TextAttr = DTA_Dummy + 10; // (PTextAttr) Default TextAttr to use for text within the object
|
|
|
+ DTA_TopVert = DTA_Dummy + 11; // (LongInt) Top vertical unit
|
|
|
+ DTA_VisibleVert = DTA_Dummy + 12; // (LongInt) Number of visible vertical units
|
|
|
+ DTA_TotalVert = DTA_Dummy + 13; // (LongInt) Total number of vertical units
|
|
|
+ DTA_VertUnit = DTA_Dummy + 14; // (LongInt) Number of pixels per vertical unit
|
|
|
+ DTA_TopHoriz = DTA_Dummy + 15; // (LongInt) Top horizontal unit
|
|
|
+ DTA_VisibleHoriz = DTA_Dummy + 16; // (LongInt) Number of visible horizontal units
|
|
|
+ DTA_TotalHoriz = DTA_Dummy + 17; // (LongInt) Total number of horiziontal units
|
|
|
+ DTA_HorizUnit = DTA_Dummy + 18; // (LongInt) Number of pixels per horizontal unit
|
|
|
+ DTA_NodeName = DTA_Dummy + 19; // (PByte) Name of the current element within the object
|
|
|
+ DTA_Title = DTA_Dummy + 20; // (STRPTR) Object's title
|
|
|
+ DTA_TriggerMethods = DTA_Dummy + 21; // (PDTMethod) Pointer to a nil terminated array of trigger methods
|
|
|
+ DTA_Data = DTA_Dummy + 22; // (APTR) Object data
|
|
|
+ DTA_TextFont = DTA_Dummy + 23; // (PTextFont) Default font to use
|
|
|
+ DTA_Methods = DTA_Dummy + 24; // (PLongWord) Pointer to an array (terminated with #0) of methods that the object supports
|
|
|
+ DTA_PrinterStatus = DTA_Dummy + 25; // (LongInt) Printer error message
|
|
|
+ DTA_PrinterProc = DTA_Dummy + 26; // (PProcess) PRIVATE! Pointer to the print process
|
|
|
+ DTA_LayoutProc = DTA_Dummy + 27; // (PProcess) PRIVATE! Pointer to the print process
|
|
|
+ DTA_Busy = DTA_Dummy + 28; // Turns the application's busy pointer on and off
|
|
|
+ DTA_Sync = DTA_Dummy + 29; // Indicate that new information has been loaded into an object.
|
|
|
+ // (This is used for models that cache the DTA_TopVert-like tags.)
|
|
|
+ DTA_BaseName = DTA_Dummy + 30; // Base name of the class
|
|
|
+ DTA_GroupID = DTA_Dummy + 31; // Group that the object must belong to
|
|
|
+ DTA_ErrorLevel = DTA_Dummy + 32; // Error level
|
|
|
+ DTA_ErrorNumber = DTA_Dummy + 33; // datatypes.library error number
|
|
|
+ DTA_ErrorString = DTA_Dummy + 34; // Argument for datatypes.library error
|
|
|
+ DTA_Conductor = DTA_Dummy + 35; // (PByte) Name of a realtime.library conductor -- defaults to "Main"
|
|
|
+ DTA_ControlPanel = DTA_Dummy + 36; // (LongBool) Specify whether a control panel should be embedded into the object or not
|
|
|
+ // (for example in the animation datatype) -- defaults to True
|
|
|
+ DTA_Immediate = DTA_Dummy + 37; // (LongBool) Should the object begin playing immediately? -- defaults to False
|
|
|
+ DTA_Repeat = DTA_Dummy + 38; // (LongBool) Indicate that the object should repeat playing -- defaults to False
|
|
|
+ // V44
|
|
|
+ DTA_SourceAddress = DTA_Dummy + 39; // (APTR) V44: Address of object if of type DTST_MEMORY
|
|
|
+ DTA_SourceSize = DTA_Dummy + 40; // (LongWord) V44: Size of object if of type DTST_MEMORY
|
|
|
+
|
|
|
+ DTA_Reserved = DTA_Dummy + 41; // Reserved tag; DO NOT USE (V44)
|
|
|
+
|
|
|
+// DTObject attributes
|
|
|
+ DTA_Name = DTA_Dummy + 100;
|
|
|
+ DTA_SourceType = DTA_Dummy + 101;
|
|
|
+ DTA_Handle = DTA_Dummy + 102;
|
|
|
+ DTA_DataType = DTA_Dummy + 103;
|
|
|
+ DTA_Domain = DTA_Dummy + 104;
|
|
|
+ // Left, Top, Width, Height -> use the Gadgetclass Tags
|
|
|
+ DTA_ObjName = DTA_Dummy + 109;
|
|
|
+ DTA_ObjAuthor = DTA_Dummy + 110;
|
|
|
+ DTA_ObjAnnotation = DTA_Dummy + 111;
|
|
|
+ DTA_ObjCopyright = DTA_Dummy + 112;
|
|
|
+ DTA_ObjVersion = DTA_Dummy + 113;
|
|
|
+ DTA_ObjectID = DTA_Dummy + 114;
|
|
|
+ DTA_UserData = DTA_Dummy + 115;
|
|
|
+ // RelLeft, RelTop, RelWidth, RelHeight -> use the Gadgetclass Tags
|
|
|
+ DTA_FrameInfo = DTA_Dummy + 116;
|
|
|
+ DTA_SelectDomain = DTA_Dummy + 121;
|
|
|
+ DTA_TotalPVert = DTA_Dummy + 122;
|
|
|
+ DTA_TotalPHoriz = DTA_Dummy + 123;
|
|
|
+ DTA_NominalVert = DTA_Dummy + 124;
|
|
|
+ DTA_NominalHoriz = DTA_Dummy + 125;
|
|
|
+
|
|
|
+// Printing attributes
|
|
|
+ DTA_DestCols = DTA_Dummy + 400; // (LongInt) Destination x width
|
|
|
+ DTA_DestRows = DTA_Dummy + 401; // (LongInt) Destination y height
|
|
|
+ DTA_Special = DTA_Dummy + 402; // (Word) Option flags
|
|
|
+ DTA_RastPort = DTA_Dummy + 403; // (PRastPort) RastPort used when printing
|
|
|
+ DTA_ARexxPortName = DTA_Dummy + 404; // (STRPTR) Pointer to base name for ARexx port
|
|
|
+
|
|
|
+ DTST_RAM = 1;
|
|
|
+ DTST_FILE = 2;
|
|
|
+ DTST_CLIPBOARD = 3;
|
|
|
+ DTST_HOTLINK = 4;
|
|
|
+ DTST_MEMORY = 5; // V44
|
|
|
+
|
|
|
+// This structure is attached to the Gadget.SpecialInfo field of the gadget. Use Get/Set calls to access it.
|
|
|
type
|
|
|
- pFrameInfo = ^tFrameInfo;
|
|
|
- tFrameInfo = record
|
|
|
- fri_PropertyFlags : ULONG;
|
|
|
- fri_Resolution : tPoint;
|
|
|
- fri_RedBits : BYTE;
|
|
|
- fri_GreenBits : BYTE;
|
|
|
- fri_BlueBits : BYTE;
|
|
|
- fri_Dimensions : record
|
|
|
- Width : ULONG;
|
|
|
- Height : ULONG;
|
|
|
- Depth : ULONG;
|
|
|
- end;
|
|
|
- fri_Screen : pScreen;
|
|
|
- fri_ColorMap : pColorMap;
|
|
|
- fri_Flags : ULONG;
|
|
|
- end;
|
|
|
-
|
|
|
-
|
|
|
-CONST
|
|
|
-
|
|
|
- FIF_SCALABLE = $1;
|
|
|
- FIF_SCROLLABLE = $2;
|
|
|
- FIF_REMAPPABLE = $4;
|
|
|
-
|
|
|
-{ DTM_REMOVEDTOBJECT, DTM_CLEARSELECTED, DTM_COPY, DTM_ABORTPRINT }
|
|
|
-Type
|
|
|
-
|
|
|
- pdtGeneral = ^tdtGeneral;
|
|
|
- tdtGeneral = record
|
|
|
- MethodID : ULONG;
|
|
|
- dtg_GInfo : pGadgetInfo;
|
|
|
- end;
|
|
|
-
|
|
|
-{ DTM_SELECT }
|
|
|
- pdtSelect = ^tdtSelect;
|
|
|
- tdtSelect = record
|
|
|
- MethodID : ULONG;
|
|
|
- dts_GInfo : pGadgetInfo;
|
|
|
- dts_Select : tRectangle;
|
|
|
- end;
|
|
|
-
|
|
|
-{ DTM_FRAMEBOX }
|
|
|
-
|
|
|
- pdtFrameBox = ^tdtFrameBox;
|
|
|
- tdtFrameBox = record
|
|
|
- MethodID : ULONG;
|
|
|
- dtf_GInfo : pGadgetInfo;
|
|
|
- dtf_ContentsInfo, { Input }
|
|
|
- dtf_FrameInfo : pFrameInfo; { Output }
|
|
|
- dtf_SizeFrameInfo,
|
|
|
- dtf_FrameFlags : ULONG;
|
|
|
- end;
|
|
|
-
|
|
|
-{ DTM_GOTO }
|
|
|
- pdtGoto = ^tdtGoto;
|
|
|
- tdtGoto = record
|
|
|
- MethodID : ULONG;
|
|
|
- dtg_GInfo : pGadgetInfo;
|
|
|
- dtg_NodeName : STRPTR; { Node to goto }
|
|
|
- dtg_AttrList : pTagItem; { Additional attributes }
|
|
|
- end;
|
|
|
-
|
|
|
-{ DTM_TRIGGER }
|
|
|
-
|
|
|
- pdtTrigger = ^tdtTrigger;
|
|
|
- tdtTrigger = record
|
|
|
- MethodID : ULONG;
|
|
|
- dtt_GInfo : pGadgetInfo;
|
|
|
- dtt_Function : ULONG;
|
|
|
- dtt_Data : Pointer;
|
|
|
- end;
|
|
|
+ PDTSpecialInfo = ^TDTSpecialInfo;
|
|
|
+ TDTSpecialInfo = record
|
|
|
+ si_Lock: TSignalSemaphore;
|
|
|
+ si_Flags: LongWord;
|
|
|
+
|
|
|
+ si_TopVert: LongInt; // Top row (in units)
|
|
|
+ si_VisVert: LongInt; // Number of visible rows (in units)
|
|
|
+ si_TotVert: LongInt; // Total number of rows (in units)
|
|
|
+ si_OTopVert: LongInt; // Previous top (in units)
|
|
|
+ si_VertUnit: LongInt; // Number of pixels in vertical unit
|
|
|
+
|
|
|
+ si_TopHoriz: LongInt; // Top column (in units)
|
|
|
+ si_VisHoriz: LongInt; // Number of visible columns (in units)
|
|
|
+ si_TotHoriz: LongInt; // Total number of columns (in units)
|
|
|
+ si_OTopHoriz: LongInt; // Previous top (in units)
|
|
|
+ si_HorizUnit: LongInt; // Number of pixels in horizontal unit
|
|
|
+ end;
|
|
|
|
|
|
const
|
|
|
- STM_PAUSE = 1 ;
|
|
|
- STM_PLAY = 2 ;
|
|
|
- STM_CONTENTS = 3 ;
|
|
|
- STM_INDEX = 4 ;
|
|
|
- STM_RETRACE = 5 ;
|
|
|
- STM_BROWSE_PREV = 6 ;
|
|
|
- STM_BROWSE_NEXT = 7 ;
|
|
|
-
|
|
|
- STM_NEXT_FIELD = 8 ;
|
|
|
- STM_PREV_FIELD = 9 ;
|
|
|
- STM_ACTIVATE_FIELD = 10;
|
|
|
-
|
|
|
- STM_COMMAND = 11;
|
|
|
-
|
|
|
-{ New for V40 }
|
|
|
- STM_REWIND = 12;
|
|
|
- STM_FASTFORWARD = 13;
|
|
|
- STM_STOP = 14;
|
|
|
- STM_RESUME = 15;
|
|
|
- STM_LOCATE = 16;
|
|
|
-
|
|
|
-Type
|
|
|
-{ Printer IO request }
|
|
|
- pprinterIO = ^tprinterIO;
|
|
|
- tprinterIO = record
|
|
|
- ios : tIOStdReq;
|
|
|
- iodrp : tIODRPReq;
|
|
|
- iopc : tIOPrtCmdReq;
|
|
|
- end;
|
|
|
-{ DTM_PRINT }
|
|
|
-
|
|
|
- pdtPrint = ^tdtPrint;
|
|
|
- tdtPrint = record
|
|
|
- MethodID : ULONG;
|
|
|
- dtp_GInfo : pGadgetInfo;
|
|
|
- dtp_PIO : pprinterIO;
|
|
|
- dtp_AttrList : pTagItem;
|
|
|
- end;
|
|
|
-
|
|
|
-
|
|
|
-{ DTM_DRAW }
|
|
|
- pdtDraw = ^tdtDraw;
|
|
|
- tdtDraw = record
|
|
|
- MethodID : ULONG;
|
|
|
- dtd_RPort : pRastPort;
|
|
|
- dtd_Left,
|
|
|
- dtd_Top,
|
|
|
- dtd_Width,
|
|
|
- dtd_Height,
|
|
|
- dtd_TopHoriz,
|
|
|
- dtd_TopVert : Longint;
|
|
|
- dtd_AttrList : pTagItem; { Additional attributes }
|
|
|
- end;
|
|
|
+ DTSIF_LAYOUT = 1 shl 0; // Object is in layout processing
|
|
|
+ DTSIF_NEWSIZE = 1 shl 1; // Object needs to be layed out
|
|
|
+ DTSIF_DRAGGING = 1 shl 2;
|
|
|
+ DTSIF_DRAGSELECT = 1 shl 3;
|
|
|
+ DTSIF_HIGHLIGHT = 1 shl 4;
|
|
|
+ DTSIF_PRINTING = 1 shl 5; // Object is being printed
|
|
|
+ DTSIF_LAYOUTPROC = 1 shl 6; // Object is in layout process
|
|
|
|
|
|
-{ DTM_WRITE }
|
|
|
- pdtWrite = ^tdtWrite;
|
|
|
- tdtWrite = record
|
|
|
- MethodID : ULONG;
|
|
|
- dtw_GInfo : pGadgetInfo; { Gadget information }
|
|
|
- dtw_FileHandle : BPTR; { File handle to write to }
|
|
|
- dtw_Mode : ULONG;
|
|
|
- dtw_AttrList : pTagItem; { Additional attributes }
|
|
|
- end;
|
|
|
+type
|
|
|
+ PDTMethod = ^TDTMethod;
|
|
|
+ TDTMethod = record
|
|
|
+ dtm_Label: STRPTR;
|
|
|
+ dtm_Command: STRPTR;
|
|
|
+ dtm_Method: LongWord;
|
|
|
+ end;
|
|
|
|
|
|
const
|
|
|
-{ Save data as IFF data }
|
|
|
- DTWM_IFF = 0;
|
|
|
-
|
|
|
-{ Save data as local data format }
|
|
|
- DTWM_RAW = 1;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
- PICTUREDTCLASS : PChar = 'picture.datatype';
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-{ Picture attributes }
|
|
|
- PDTA_ModeID = (DTA_Dummy + 200);
|
|
|
- { Mode ID of the picture }
|
|
|
-
|
|
|
- PDTA_BitMapHeader = (DTA_Dummy + 201);
|
|
|
-
|
|
|
- PDTA_BitMap = (DTA_Dummy + 202);
|
|
|
- { Pointer to a class-allocated bitmap, that will end
|
|
|
- * up being freed by picture.class when DisposeDTObject()
|
|
|
- * is called }
|
|
|
-{ Picture colour table (struct ColorRegister *) }
|
|
|
- PDTA_ColorRegisters = (DTA_Dummy + 203);
|
|
|
+ DTM_Dummy = $600;
|
|
|
|
|
|
-{ Color table to use with SetRGB32CM() (ULONG *) }
|
|
|
- PDTA_CRegs = (DTA_Dummy + 204);
|
|
|
+ DTM_FRAMEBOX = $601; // Inquire what environment an object requires
|
|
|
+ DTM_PROCLAYOUT = $602; // Same as GM_LAYOUT except guaranteed to be on a process already
|
|
|
+ DTM_ASYNCLAYOUT = $603; // Layout that is occurring on a process
|
|
|
+ DTM_REMOVEDTOBJECT = $604; // When RemoveDTObject() is called
|
|
|
|
|
|
-{ Color table; this table is initialized during the layout
|
|
|
- * process and will contain the colours the picture will use
|
|
|
- * after remapping. If no remapping takes place, these colours
|
|
|
- * will match those in the PDTA_CRegs table (ULONG *).
|
|
|
- }
|
|
|
- PDTA_GRegs = (DTA_Dummy + 205);
|
|
|
+ DTM_SELECT = $605;
|
|
|
+ DTM_CLEARSELECTED = $606;
|
|
|
|
|
|
-{ Shared pen table; this table is initialized during the layout
|
|
|
- * process while the picture is being remapped (UBYTE *).
|
|
|
- }
|
|
|
- PDTA_ColorTable = (DTA_Dummy + 206);
|
|
|
+ DTM_COPY = $607;
|
|
|
+ DTM_PRINT = $608;
|
|
|
+ DTM_ABORTPRINT = $609;
|
|
|
|
|
|
-{ Shared pen table; in most places this table will be identical to
|
|
|
- * the PDTA_ColorTable table. Some of the colours in this table might
|
|
|
- * match the original colour palette a little better than the colours
|
|
|
- * picked for the other table. The picture.datatype uses the two tables
|
|
|
- * during remapping, alternating for each pixel (UBYTE *).
|
|
|
- }
|
|
|
- PDTA_ColorTable2 = (DTA_Dummy + 207);
|
|
|
+ DTM_NEWMEMBER = $610;
|
|
|
+ DTM_DISPOSEMEMBER = $611;
|
|
|
|
|
|
-{ OBSOLETE; DO NOT USE }
|
|
|
- PDTA_Allocated = (DTA_Dummy + 208);
|
|
|
+ DTM_GOTO = $630;
|
|
|
+ DTM_TRIGGER = $631;
|
|
|
|
|
|
-{ Number of colors used by the picture. (UWORD) }
|
|
|
- PDTA_NumColors = (DTA_Dummy + 209);
|
|
|
+ DTM_OBTAINDRAWINFO = $640;
|
|
|
+ DTM_DRAW = $641;
|
|
|
+ DTM_RELEASEDRAWINFO = $642;
|
|
|
|
|
|
-{ Number of colors allocated by the picture (UWORD) }
|
|
|
- PDTA_NumAlloc = (DTA_Dummy + 210);
|
|
|
+ DTM_WRITE = $650;
|
|
|
|
|
|
- PDTA_Remap = (DTA_Dummy + 211);
|
|
|
- { Boolean : Remap picture (defaults to TRUE) }
|
|
|
-
|
|
|
- PDTA_Screen = (DTA_Dummy + 212);
|
|
|
- { Screen to remap to }
|
|
|
-
|
|
|
- PDTA_FreeSourceBitMap = (DTA_Dummy + 213);
|
|
|
- { Boolean : Free the source bitmap after remapping }
|
|
|
-
|
|
|
- PDTA_Grab = (DTA_Dummy + 214);
|
|
|
- { Pointer to a Point structure }
|
|
|
-
|
|
|
- PDTA_DestBitMap = (DTA_Dummy + 215);
|
|
|
- { Pointer to the destination (remapped) bitmap }
|
|
|
-
|
|
|
- PDTA_ClassBitMap = (DTA_Dummy + 216);
|
|
|
- { Pointer to class-allocated bitmap, that will end
|
|
|
- * up being freed by the class after DisposeDTObject()
|
|
|
- * is called }
|
|
|
-
|
|
|
- PDTA_NumSparse = (DTA_Dummy + 217);
|
|
|
- { (UWORD) Number of colors used for sparse remapping }
|
|
|
-
|
|
|
- PDTA_SparseTable = (DTA_Dummy + 218);
|
|
|
- { (UBYTE *) Pointer to a table of pen numbers indicating
|
|
|
- * which colors should be used when remapping the image.
|
|
|
- * This array must contain as many entries as there
|
|
|
- * are colors specified with PDTA_NumSparse }
|
|
|
-
|
|
|
- { Index number of the picture to load (ULONG). (V44) }
|
|
|
- PDTA_WhichPicture = (DTA_Dummy + 219);
|
|
|
-
|
|
|
-{ Get the number of pictures stored in the file (ULONG *). (V44) }
|
|
|
- PDTA_GetNumPictures = (DTA_Dummy + 220);
|
|
|
-
|
|
|
-{ Maximum number of colours to use for dithering (ULONG). (V44) }
|
|
|
- PDTA_MaxDitherPens = (DTA_Dummy + 221);
|
|
|
-
|
|
|
-{ Quality of the dithering algorithm to be used during colour
|
|
|
- * quantization (ULONG). (V44)
|
|
|
- }
|
|
|
- PDTA_DitherQuality = (DTA_Dummy + 222);
|
|
|
-
|
|
|
-{ Pointer to the allocated pen table (UBYTE *). (V44) }
|
|
|
- PDTA_AllocatedPens = (DTA_Dummy + 223);
|
|
|
-
|
|
|
-{ Quality for scaling. (V45) }
|
|
|
- PDTA_ScaleQuality = (DTA_Dummy + 224);
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-{ When querying the number of pictures stored in a file, the
|
|
|
- * following value denotes "the number of pictures is unknown".
|
|
|
- }
|
|
|
- PDTANUMPICTURES_Unknown = (0);
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-{ V43 extensions (attributes) }
|
|
|
-
|
|
|
-{ Set the sub datatype interface mode (LONG); see "Interface modes" below }
|
|
|
- PDTA_SourceMode = (DTA_Dummy + 250);
|
|
|
-
|
|
|
-{ Set the app datatype interface mode (LONG); see "Interface modes" below }
|
|
|
- PDTA_DestMode = (DTA_Dummy + 251);
|
|
|
-
|
|
|
-{ Allocates the resulting bitmap as a friend bitmap (BOOL) }
|
|
|
- PDTA_UseFriendBitMap = (DTA_Dummy + 255);
|
|
|
-
|
|
|
-{ NULL or mask plane for use with BltMaskBitMapRastPort() (PLANEPTR) }
|
|
|
- PDTA_MaskPlane = (DTA_Dummy + 258);
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-{ Interface modes }
|
|
|
- PMODE_V42 = (0); { Compatibility mode }
|
|
|
- PMODE_V43 = (1); { Extended mode }
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-{ V43 extensions (methods) }
|
|
|
-
|
|
|
- PDTM_Dummy = (DTM_Dummy + $60);
|
|
|
-
|
|
|
-{ Transfer pixel data to the picture object in the specified format }
|
|
|
- PDTM_WRITEPIXELARRAY = (PDTM_Dummy + 0);
|
|
|
-
|
|
|
-{ Transfer pixel data from the picture object in the specified format }
|
|
|
- PDTM_READPIXELARRAY = (PDTM_Dummy + 1);
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-{ Masking techniques }
|
|
|
- mskNone = 0;
|
|
|
- mskHasMask = 1;
|
|
|
- mskHasTransparentColor = 2;
|
|
|
- mskLasso = 3;
|
|
|
- mskHasAlpha = 4;
|
|
|
-
|
|
|
-{ Compression techniques }
|
|
|
- cmpNone = 0;
|
|
|
- cmpByteRun1 = 1;
|
|
|
- cmpByteRun2 = 2;
|
|
|
+type
|
|
|
+ // Used to ask the object about itself
|
|
|
+ PFrameInfo = ^TFrameInfo;
|
|
|
+ TFrameInfo = record
|
|
|
+ fri_PropertyFlags: LongWord; // DisplayInfo
|
|
|
+ fri_Resolution: TPoint; // DisplayInfo
|
|
|
|
|
|
-Type
|
|
|
-{ Bitmap header (BMHD) structure }
|
|
|
- pBitMapHeader = ^tBitMapHeader;
|
|
|
- tBitMapHeader = record
|
|
|
- bmh_Width, { Width in pixels }
|
|
|
- bmh_Height : Word; { Height in pixels }
|
|
|
- bmh_Left, { Left position }
|
|
|
- bmh_Top : smallint; { Top position }
|
|
|
- bmh_Depth, { Number of planes }
|
|
|
- bmh_Masking, { Masking type }
|
|
|
- bmh_Compression, { Compression type }
|
|
|
- bmh_Pad : Byte;
|
|
|
- bmh_Transparent : WORD; { Transparent color }
|
|
|
- bmh_XAspect,
|
|
|
- bmh_YAspect : Byte;
|
|
|
- bmh_PageWidth,
|
|
|
- bmh_PageHeight : smallint;
|
|
|
- end;
|
|
|
+ fri_RedBits: Byte;
|
|
|
+ fri_GreenBits: Byte;
|
|
|
+ fri_BlueBits: Byte;
|
|
|
|
|
|
-{***************************************************************************}
|
|
|
+ fri_Dimensions: record
|
|
|
+ Width: LongWord;
|
|
|
+ Height: LongWord;
|
|
|
+ Depth: LongWord;
|
|
|
+ end;
|
|
|
|
|
|
-{ Color register structure }
|
|
|
- pColorRegister = ^tColorRegister;
|
|
|
- tColorRegister = record
|
|
|
- red, green, blue : Byte;
|
|
|
- end;
|
|
|
+ fri_Screen: PScreen;
|
|
|
+ fri_ColorMap: PColorMap;
|
|
|
|
|
|
-{***************************************************************************}
|
|
|
+ fri_Flags: LongWord; // FIF_*
|
|
|
+ end;
|
|
|
|
|
|
const
|
|
|
-{ IFF types that may be in pictures }
|
|
|
- ID_ILBM = 1229734477;
|
|
|
- ID_BMHD = 1112361028;
|
|
|
- ID_BODY = 1112491097;
|
|
|
- ID_CMAP = 1129136464;
|
|
|
- ID_CRNG = 1129467463;
|
|
|
- ID_GRAB = 1196572994;
|
|
|
- ID_SPRT = 1397772884;
|
|
|
- ID_DEST = 1145394004;
|
|
|
- ID_CAMG = 1128353095;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
- SOUNDDTCLASS : PChar = 'sound.datatype';
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-{ Sound attributes }
|
|
|
- SDTA_Dummy = (DTA_Dummy + 500);
|
|
|
- SDTA_VoiceHeader = (SDTA_Dummy + 1);
|
|
|
- SDTA_Sample = (SDTA_Dummy + 2);
|
|
|
- { (UBYTE *) Sample data }
|
|
|
-
|
|
|
- SDTA_SampleLength = (SDTA_Dummy + 3);
|
|
|
- { (ULONG) Length of the sample data in UBYTEs }
|
|
|
-
|
|
|
- SDTA_Period = (SDTA_Dummy + 4);
|
|
|
- { (UWORD) Period }
|
|
|
-
|
|
|
- SDTA_Volume = (SDTA_Dummy + 5);
|
|
|
- { (UWORD) Volume. Range from 0 to 64 }
|
|
|
-
|
|
|
- SDTA_Cycles = (SDTA_Dummy + 6);
|
|
|
-
|
|
|
-{ The following tags are new for V40 }
|
|
|
- SDTA_SignalTask = (SDTA_Dummy + 7);
|
|
|
- { (struct Task *) Task to signal when sound is complete or
|
|
|
- next buffer needed. }
|
|
|
-
|
|
|
-{ (ULONG) Signal mask to use on completion or 0 to disable
|
|
|
- *
|
|
|
- * NOTE: Due to a bug in sound.datatype V40 SDTA_SignalBit
|
|
|
- * was actually implemented as a signal mask as opposed
|
|
|
- * to a bit number. The documentation now reflects
|
|
|
- * this. If you intend to use a signal bit number
|
|
|
- * instead of the mask, use the new V44 tag
|
|
|
- * SDTA_SignalBitNumber below.
|
|
|
- *}
|
|
|
- SDTA_SignalBit = (SDTA_Dummy + 8);
|
|
|
- SDTA_SignalBitMask = SDTA_SignalBit;
|
|
|
- { (BYTE) Signal bit to use on completion or -1 to disable }
|
|
|
-
|
|
|
- SDTA_Continuous = (SDTA_Dummy + 9);
|
|
|
- { (ULONG) Playing a continuous stream of data. Defaults to
|
|
|
- FALSE. }
|
|
|
-
|
|
|
-{ The following tags are new for V44 }
|
|
|
-
|
|
|
-{ (BYTE) Signal bit to use on completion or -1 to disable }
|
|
|
- SDTA_SignalBitNumber = (SDTA_Dummy + 10);
|
|
|
-
|
|
|
-{ (UWORD) Samples per second }
|
|
|
- SDTA_SamplesPerSec = (SDTA_Dummy + 11);
|
|
|
+ FIF_SCALABLE = $1;
|
|
|
+ FIF_SCROLLABLE = $2;
|
|
|
+ FIF_REMAPPABLE = $4;
|
|
|
|
|
|
-{ (struct timeval *) Sample replay period }
|
|
|
- SDTA_ReplayPeriod = (SDTA_Dummy + 12);
|
|
|
-
|
|
|
-{ (BYTE *) Sample data }
|
|
|
- SDTA_LeftSample = (SDTA_Dummy + 13);
|
|
|
- SDTA_RightSample = (SDTA_Dummy + 14);
|
|
|
-
|
|
|
-{ (BYTE) Stereo panning }
|
|
|
- SDTA_Pan = (SDTA_Dummy + 15);
|
|
|
-
|
|
|
-{ (BOOL) FreeVec() all sample data upon OM_DISPOSE. }
|
|
|
- SDTA_FreeSampleData = (SDTA_Dummy + 16);
|
|
|
-
|
|
|
-{ (BOOL) Wait for the current sample to be played back before
|
|
|
- * switching to the new sample data.
|
|
|
- }
|
|
|
- SDTA_SyncSampleChange = (SDTA_Dummy + 17);
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
- CMP_NONE = 0;
|
|
|
- CMP_FIBDELTA = 1;
|
|
|
-
|
|
|
-Type
|
|
|
- pVoiceHeader = ^tVoiceHeader;
|
|
|
- tVoiceHeader = record
|
|
|
- vh_OneShotHiSamples,
|
|
|
- vh_RepeatHiSamples,
|
|
|
- vh_SamplesPerHiCycle : ULONG;
|
|
|
- vh_SamplesPerSec : WORD;
|
|
|
- vh_Octaves,
|
|
|
- vh_Compression : Byte;
|
|
|
- vh_Volume : ULONG;
|
|
|
- end;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
+type
|
|
|
+ // DTM_REMOVEDTOBJECT, DTM_CLEARSELECTED, DTM_COPY, DTM_ABORTPRINT
|
|
|
+ PdtGeneral = ^TdtGeneral;
|
|
|
+ TdtGeneral = record
|
|
|
+ MethodID: LongWord;
|
|
|
+ dtg_GInfo: PGadgetInfo;
|
|
|
+ end;
|
|
|
+
|
|
|
+ // DTM_SELECT
|
|
|
+ PdtSelect = ^TdtSelect;
|
|
|
+ TdtSelect = record
|
|
|
+ MethodID: LongWord;
|
|
|
+ dts_GInfo: PGadgetInfo;
|
|
|
+ dts_Select: TRectangle;
|
|
|
+ end;
|
|
|
+
|
|
|
+ // DTM_FRAMEBOX
|
|
|
+ PdtFrameBox = ^TdtFrameBox;
|
|
|
+ TdtFrameBox = record
|
|
|
+ MethodID: LongWord;
|
|
|
+ dtf_GInfo: PGadgetInfo;
|
|
|
+ dtf_ContentsInfo: PFrameInfo;
|
|
|
+ dtf_FrameInfo: PFrameInfo; // Input
|
|
|
+ dtf_SizeFrameInfo: LongWord; // Output
|
|
|
+ dtf_FrameFlags: LongWord;
|
|
|
+ end;
|
|
|
+
|
|
|
+ // DTM_GOTO
|
|
|
+ PdtGoto = ^TdtGoto;
|
|
|
+ TdtGoto = record
|
|
|
+ MethodID: LongWord;
|
|
|
+ dtg_GInfo: PGadgetInfo;
|
|
|
+ dtg_NodeName: STRPTR; // Node to goto
|
|
|
+ dtg_AttrList: PTagItem; // Additional attributes
|
|
|
+ end;
|
|
|
+
|
|
|
+ //* DTM_TRIGGER */
|
|
|
+ PdtTrigger = ^TdtTrigger;
|
|
|
+ TdtTrigger = record
|
|
|
+ MethodID: LongWord;
|
|
|
+ dtt_GInfo: PGadgetInfo;
|
|
|
+ dtt_Function: LongWord;
|
|
|
+ dtt_Data: APTR;
|
|
|
+ end;
|
|
|
|
|
|
const
|
|
|
+ STM_PAUSE = 1;
|
|
|
+ STM_PLAY = 2;
|
|
|
+ STM_CONTENTS = 3;
|
|
|
+ STM_INDEX = 4;
|
|
|
+ STM_RETRACE = 5;
|
|
|
+ STM_BROWSE_PREV = 6;
|
|
|
+ STM_BROWSE_NEXT = 7;
|
|
|
+
|
|
|
+ STM_NEXT_FIELD = 8;
|
|
|
+ STM_PREV_FIELD = 9;
|
|
|
+ STM_ACTIVATE_FIELD = 10;
|
|
|
+
|
|
|
+ STM_COMMAND = 11;
|
|
|
+
|
|
|
+ // New for V40
|
|
|
+ STM_REWIND = 12;
|
|
|
+ STM_FASTFORWARD = 13;
|
|
|
+ STM_STOP = 14;
|
|
|
+ STM_RESUME = 15;
|
|
|
+ STM_LOCATE = 16;
|
|
|
|
|
|
-{ Channel allocation }
|
|
|
- SAMPLETYPE_Left = (2);
|
|
|
- SAMPLETYPE_Right = (4);
|
|
|
- SAMPLETYPE_Stereo = (6);
|
|
|
-
|
|
|
-{ IFF types }
|
|
|
- ID_8SVX = 944985688;
|
|
|
- ID_VHDR = 1447576658;
|
|
|
- ID_CHAN = $4348414E;
|
|
|
-
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-{ ***************************************************************************}
|
|
|
-
|
|
|
- TEXTDTCLASS : PChar = 'text.datatype';
|
|
|
-
|
|
|
-{ ***************************************************************************}
|
|
|
-
|
|
|
-{ Text attributes }
|
|
|
- TDTA_Buffer = (DTA_Dummy + 300);
|
|
|
- TDTA_BufferLen = (DTA_Dummy + 301);
|
|
|
- TDTA_LineList = (DTA_Dummy + 302);
|
|
|
- TDTA_WordSelect = (DTA_Dummy + 303);
|
|
|
- TDTA_WordDelim = (DTA_Dummy + 304);
|
|
|
- TDTA_WordWrap = (DTA_Dummy + 305);
|
|
|
- { Boolean. Should the text be word wrapped. Defaults to false. }
|
|
|
-
|
|
|
-{ ***************************************************************************}
|
|
|
-
|
|
|
-Type
|
|
|
-{ There is one Line structure for every line of text in our document. }
|
|
|
- pLine = ^tLine;
|
|
|
- tLine = record
|
|
|
- ln_Link : tMinNode; { to link the lines together }
|
|
|
- ln_Text : STRPTR; { pointer to the text for this line }
|
|
|
- ln_TextLen : ULONG; { the character length of the text for this line }
|
|
|
- ln_XOffset, { where in the line the text starts }
|
|
|
- ln_YOffset, { line the text is on }
|
|
|
- ln_Width, { Width of line in pixels }
|
|
|
- ln_Height, { Height of line in pixels }
|
|
|
- ln_Flags : WORD; { info on the line }
|
|
|
- ln_FgPen, { foreground pen }
|
|
|
- ln_BgPen : Shortint; { background pen }
|
|
|
- ln_Style : ULONG; { Font style }
|
|
|
- ln_Data : Pointer; { Link data... }
|
|
|
- end;
|
|
|
-
|
|
|
-{ ***************************************************************************}
|
|
|
+type
|
|
|
+ // Printer IO request
|
|
|
+ PPrinterIO = ^TPrinterIO;
|
|
|
+ TPrinterIO = record
|
|
|
+ Ios: TIOStdReq;
|
|
|
+ Iodrp: TIODRPReq;
|
|
|
+ Iopc: TIOPrtCmdReq;
|
|
|
+ end;
|
|
|
+
|
|
|
+ // DTM_PRINT
|
|
|
+ PdtPrint = ^TdtPrint;
|
|
|
+ TdtPrint = record
|
|
|
+ MethodID: LongWord;
|
|
|
+ dtp_GInfo: PGadgetInfo;
|
|
|
+ dtp_PIO: PPrinterIO;
|
|
|
+ dtp_AttrList: PTagItem;
|
|
|
+ end;
|
|
|
+
|
|
|
+ // DTM_DRAW
|
|
|
+ PdtDraw = ^TdtDraw;
|
|
|
+ TdtDraw = record
|
|
|
+ MethodID: LongWord;
|
|
|
+ dtd_RPort: PRastPort;
|
|
|
+ dtd_Left: LongInt;
|
|
|
+ dtd_Top: LongInt;
|
|
|
+ dtd_Width: LongInt;
|
|
|
+ dtd_Height: LongInt;
|
|
|
+ dtd_TopHoriz: LongInt;
|
|
|
+ dtd_TopVert: LongInt;
|
|
|
+ dtd_AttrList: PTagItem; // Additional attributes
|
|
|
+ end;
|
|
|
+
|
|
|
+ // DTM_WRITE
|
|
|
+ PdtWrite = ^TdtWrite;
|
|
|
+ TdtWrite = record
|
|
|
+ MethodID: LongWord;
|
|
|
+ dtw_GInfo: PGadgetInfo; // Gadget information
|
|
|
+ dtw_FileHandle: BPTR; // File handle to write to
|
|
|
+ dtw_Mode: LongWord;
|
|
|
+ dtw_AttrList: PTagItem; // Additional attributes
|
|
|
+ end;
|
|
|
|
|
|
const
|
|
|
-{ Line.ln_Flags }
|
|
|
-
|
|
|
-{ Line Feed }
|
|
|
- LNF_LF = 1;
|
|
|
-
|
|
|
-{ Segment is a link }
|
|
|
- LNF_LINK = 2;
|
|
|
-
|
|
|
-{ ln_Data is a pointer to an DataTypes object }
|
|
|
- LNF_OBJECT = 4;
|
|
|
-
|
|
|
-{ Object is selected }
|
|
|
- LNF_SELECTED = 8;
|
|
|
-
|
|
|
-{ ***************************************************************************}
|
|
|
-
|
|
|
-{ IFF types that may be text }
|
|
|
- ID_FTXT = 1179932756;
|
|
|
- ID_CHRS = 1128813139;
|
|
|
-
|
|
|
-{ ***************************************************************************}
|
|
|
-
|
|
|
- ANIMATIONDTCLASS : PChar = 'animation.datatype';
|
|
|
-
|
|
|
-{ ***************************************************************************}
|
|
|
-
|
|
|
-{ Animation attributes }
|
|
|
- ADTA_Dummy = (DTA_Dummy + 600);
|
|
|
- ADTA_ModeID = PDTA_ModeID ;
|
|
|
- ADTA_KeyFrame = PDTA_BitMap ;
|
|
|
- { (struct BitMap *) Key frame (first frame) bitmap }
|
|
|
-
|
|
|
- ADTA_ColorRegisters = PDTA_ColorRegisters;
|
|
|
- ADTA_CRegs = PDTA_CRegs ;
|
|
|
- ADTA_GRegs = PDTA_GRegs ;
|
|
|
- ADTA_ColorTable = PDTA_ColorTable ;
|
|
|
- ADTA_ColorTable2 = PDTA_ColorTable2 ;
|
|
|
- ADTA_Allocated = PDTA_Allocated ;
|
|
|
- ADTA_NumColors = PDTA_NumColors ;
|
|
|
- ADTA_NumAlloc = PDTA_NumAlloc ;
|
|
|
-
|
|
|
- ADTA_Remap = PDTA_Remap;
|
|
|
- { (BOOL) : Remap animation (defaults to TRUE) }
|
|
|
-
|
|
|
- ADTA_Screen = PDTA_Screen;
|
|
|
- { (struct Screen *) Screen to remap to }
|
|
|
-
|
|
|
- ADTA_NumSparse = PDTA_NumSparse;
|
|
|
- { (UWORD) Number of colors used for sparse remapping }
|
|
|
-
|
|
|
- ADTA_SparseTable = PDTA_SparseTable;
|
|
|
- { (UBYTE *) Pointer to a table of pen numbers indicating
|
|
|
- * which colors should be used when remapping the image.
|
|
|
- * This array must contain as many entries as there
|
|
|
- * are colors specified with ADTA_NumSparse }
|
|
|
-
|
|
|
- ADTA_Width = (ADTA_Dummy + 1);
|
|
|
- ADTA_Height = (ADTA_Dummy + 2);
|
|
|
- ADTA_Depth = (ADTA_Dummy + 3);
|
|
|
- ADTA_Frames = (ADTA_Dummy + 4);
|
|
|
- { (ULONG) Number of frames in the animation }
|
|
|
-
|
|
|
- ADTA_Frame = (ADTA_Dummy + 5);
|
|
|
- { (ULONG) Current frame }
|
|
|
-
|
|
|
- ADTA_FramesPerSecond = (ADTA_Dummy + 6);
|
|
|
- { (ULONG) Frames per second }
|
|
|
-
|
|
|
- ADTA_FrameIncrement = (ADTA_Dummy + 7);
|
|
|
- { (LONG) Amount to change frame by when fast forwarding or
|
|
|
- * rewinding. Defaults to 10. }
|
|
|
-
|
|
|
- ADTA_PreloadFrameCount = (ADTA_Dummy + 8); { (V44) }
|
|
|
-{ Sound attributes }
|
|
|
- ADTA_Sample = SDTA_Sample ;
|
|
|
- ADTA_SampleLength = SDTA_SampleLength;
|
|
|
- ADTA_Period = SDTA_Period ;
|
|
|
- ADTA_Volume = SDTA_Volume ;
|
|
|
- ADTA_Cycles = SDTA_Cycles ;
|
|
|
-
|
|
|
- ADTA_LeftSample = SDTA_LeftSample; { (V44) }
|
|
|
- ADTA_RightSample = SDTA_RightSample; { (V44) }
|
|
|
- ADTA_SamplesPerSec = SDTA_SamplesPerSec; { (V44) }
|
|
|
-
|
|
|
-{ ***************************************************************************}
|
|
|
-
|
|
|
- ID_ANIM = 1095649613;
|
|
|
- ID_ANHD = 1095649348;
|
|
|
- ID_DLTA = 1145852993;
|
|
|
-
|
|
|
-{ ***************************************************************************}
|
|
|
-
|
|
|
-{ Required ANHD structure describes an ANIM frame }
|
|
|
-Type
|
|
|
- pAnimHeader = ^tAnimHeader;
|
|
|
- tAnimHeader = record
|
|
|
- ah_Operation : Byte; { The compression method:
|
|
|
- 0 set directly (normal ILBM BODY),
|
|
|
- 1 XOR ILBM mode,
|
|
|
- 2 Long Delta mode,
|
|
|
- 3 Short Delta mode,
|
|
|
- 4 Generalized short/long Delta mode,
|
|
|
- 5 Byte Vertical Delta mode
|
|
|
- 6 Stereo op 5 (third party)
|
|
|
- 74 (ascii 'J') reserved for Eric Graham's
|
|
|
- compression technique (details to be
|
|
|
- released later). }
|
|
|
-
|
|
|
- ah_Mask : Byte; { (XOR mode only - plane mask where each
|
|
|
- bit is set =1 if there is data and =0
|
|
|
- if not.) }
|
|
|
-
|
|
|
- ah_Width, { (XOR mode only - width and height of the }
|
|
|
- ah_Height, { area represented by the BODY to eliminate }
|
|
|
- { unnecessary un-changed data) }
|
|
|
-
|
|
|
-
|
|
|
- ah_Left, { (XOR mode only - position of rectangular }
|
|
|
- ah_Top : WORD; { area representd by the BODY) }
|
|
|
-
|
|
|
-
|
|
|
- ah_AbsTime, { Timing for a frame relative to the time
|
|
|
- the first frame was displayed, in
|
|
|
- jiffies (1/60 sec) }
|
|
|
-
|
|
|
- ah_RelTime : ULONG; { Timing for frame relative to time
|
|
|
- previous frame was displayed - in
|
|
|
- jiffies (1/60 sec) }
|
|
|
-
|
|
|
- ah_Interleave, { Indicates how may frames back this data is to
|
|
|
- modify. 0 defaults to indicate two frames back
|
|
|
- (for double buffering). n indicates n frames back.
|
|
|
- The main intent here is to allow values
|
|
|
- of 1 for special applications where
|
|
|
- frame data would modify the immediately
|
|
|
- previous frame. }
|
|
|
-
|
|
|
- ah_Pad0 : Byte; { Pad byte, not used at present. }
|
|
|
-
|
|
|
- ah_Flags : ULONG; { 32 option bits used by options=4 and 5.
|
|
|
- At present only 6 are identified, but the
|
|
|
- rest are set =0 so they can be used to
|
|
|
- implement future ideas. These are defined
|
|
|
- for option 4 only at this point. It is
|
|
|
- recommended that all bits be set =0 for
|
|
|
- option 5 and that any bit settings
|
|
|
- used in the future (such as for XOR mode)
|
|
|
- be compatible with the option 4
|
|
|
- bit settings. Player code should check
|
|
|
- undefined bits in options 4 and 5 to assure
|
|
|
- they are zero.
|
|
|
-
|
|
|
- The six bits for current use are:
|
|
|
-
|
|
|
- bit # set =0 set =1
|
|
|
- ===============================================
|
|
|
- 0 short data long data
|
|
|
- 1 set XOR
|
|
|
- 2 separate info one info list
|
|
|
- for each plane for all planes
|
|
|
- 3 not RLC RLC (run length coded)
|
|
|
- 4 horizontal vertical
|
|
|
- 5 short info offsets long info offsets
|
|
|
- }
|
|
|
-
|
|
|
- ah_Pad : Array[0..15] of Byte; { This is a pad for future use for future
|
|
|
- compression modes. }
|
|
|
- end;
|
|
|
-
|
|
|
-{ ***************************************************************************}
|
|
|
+ DTWM_IFF = 0; // Save data as IFF data
|
|
|
+ DTWM_RAW = 1; // Save data as local data format
|
|
|
|
|
|
+// pictureclass
|
|
|
const
|
|
|
- ADTM_Dummy = ($700);
|
|
|
+ PICTUREDTCLASS = 'picture.datatype';
|
|
|
+
|
|
|
+ // Picture attributes
|
|
|
+ PDTA_ModeID = DTA_Dummy + 200; // Mode ID of the picture
|
|
|
+ PDTA_BitMapHeader = DTA_Dummy + 201;
|
|
|
+ PDTA_BitMap = DTA_Dummy + 202; // (PBitmap) Pointer to a class-allocated bitmap, that will end up being freed by picture.class when DisposeDTObject() is called
|
|
|
+ PDTA_ColorRegisters = DTA_Dummy + 203; // (PColorRegister) Picture colour table
|
|
|
+ PDTA_CRegs = DTA_Dummy + 204; // (PLongWord) Color table to use with SetRGB32CM()
|
|
|
+ PDTA_GRegs = DTA_Dummy + 205; // (PLongWord) Color table; this table is initialized during the layout process and will contain the colours the picture will use
|
|
|
+ // after remapping. If no remapping takes place, these colours will match those in the PDTA_CRegs table.
|
|
|
+ PDTA_ColorTable = DTA_Dummy + 206; // (PByte) Shared pen table; this table is initialized during the layout process while the picture is being remapped
|
|
|
+ PDTA_ColorTable2 = DTA_Dummy + 207; // (PByte) Shared pen table; in most places this table will be identical to the PDTA_ColorTable table. Some of the colours in this table might
|
|
|
+ // match the original colour palette a little better than the colours picked for the other table. The picture.datatype uses the two tables
|
|
|
+ // during remapping, alternating for each pixel
|
|
|
+ PDTA_Allocated = DTA_Dummy + 208; // OBSOLETE; DO NOT USE
|
|
|
+ PDTA_NumColors = DTA_Dummy + 209; // (Word) Number of colors used by the picture.
|
|
|
+ PDTA_NumAlloc = DTA_Dummy + 210; // (Word) Number of colors allocated by the picture
|
|
|
+ PDTA_Remap = DTA_Dummy + 211; // (Boolean) Remap picture (defaults to True)
|
|
|
+ PDTA_Screen = DTA_Dummy + 212; // (PScreen) Screen to remap to
|
|
|
+ PDTA_FreeSourceBitMap = DTA_Dummy + 213; // (Boolean) Free the source bitmap after remapping
|
|
|
+ PDTA_Grab = DTA_Dummy + 214; // Pointer to a Point structure
|
|
|
+ PDTA_DestBitMap = DTA_Dummy + 215; // Pointer to the destination (remapped) bitmap
|
|
|
+ PDTA_ClassBitMap = DTA_Dummy + 216; // Pointer to class-allocated bitmap, that will end up being freed by the class after DisposeDTObject() is called
|
|
|
+ PDTA_NumSparse = DTA_Dummy + 217; // (Word) Number of colors used for sparse remapping
|
|
|
+ PDTA_SparseTable = DTA_Dummy + 218; // (PByte) Pointer to a table of pen numbers indicating which colors should be used when remapping the image.
|
|
|
+ // This array must contain as many entries as there are colors specified with PDTA_NumSparse
|
|
|
+ // V44
|
|
|
+ PDTA_WhichPicture = DTA_Dummy + 219; // (LongWord) Index number of the picture to load
|
|
|
+ PDTA_GetNumPictures = DTA_Dummy + 220; // (PLongWord) Get the number of pictures stored in the file
|
|
|
+ PDTA_MaxDitherPens = DTA_Dummy + 221; // (LongWord) Maximum number of colours to use for dithering
|
|
|
+ PDTA_DitherQuality = DTA_Dummy + 222; // (LongWord) Quality of the dithering algorithm to be used during colour quantization
|
|
|
+ PDTA_AllocatedPens = DTA_Dummy + 223; // (PByte) Pointer to the allocated pen table
|
|
|
+ // V45
|
|
|
+ PDTA_ScaleQuality = DTA_Dummy + 224; // Quality for scaling.
|
|
|
+
|
|
|
+
|
|
|
+ PDTANUMPICTURES_Unknown = 0; // When querying the number of pictures stored in a file, the following value denotes "the number of pictures is unknown".
|
|
|
+
|
|
|
+ // V43 extensions (attributes)
|
|
|
+ PDTA_SourceMode = DTA_Dummy + 250; // Set the interface mode for the sub datatype. See below.
|
|
|
+ PDTA_DestMode = DTA_Dummy + 251; // Set the interface mode for the app datatype. See below.
|
|
|
+ PDTA_UseFriendBitMap = DTA_Dummy + 255; // Make the allocated bitmap be a "friend" bitmap (LongBool)
|
|
|
+ PDTA_MaskPlane = DTA_Dummy + 258; // (PlantPtr) nil or mask plane for use with BltMaskBitMapRastPort()
|
|
|
+
|
|
|
+ // Interface modes
|
|
|
+ PMODE_V42 = 0; // Compatibility mode
|
|
|
+ PMODE_V43 = 1; // Extended mode
|
|
|
+
|
|
|
+ // V43 extensions (methods)
|
|
|
+ PDTM_Dummy = DTM_Dummy + $60;
|
|
|
+
|
|
|
+ PDTM_WRITEPIXELARRAY = PDTM_Dummy + 0; // Transfer pixel data to the picture object in the specified format
|
|
|
+ PDTM_READPIXELARRAY = PDTM_Dummy + 1; // Transfer pixel data from the picture object in the specified format
|
|
|
+
|
|
|
+ // Masking techniques
|
|
|
+ mskNone = 0;
|
|
|
+ mskHasMask = 1;
|
|
|
+ mskHasTransparentColor = 2;
|
|
|
+ mskLasso = 3;
|
|
|
+ mskHasAlpha = 4;
|
|
|
+
|
|
|
+ // Compression techniques
|
|
|
+ cmpNone = 0;
|
|
|
+ cmpByteRun1 = 1;
|
|
|
+ cmpByteRun2 = 2;
|
|
|
|
|
|
- ADTM_LOADFRAME = ($701);
|
|
|
- { Used to load a frame of the animation }
|
|
|
+type
|
|
|
+ // Bitmap header (BMHD) structure
|
|
|
+ PBitMapHeader = ^TBitMapHeader;
|
|
|
+ TBitMapHeader = record
|
|
|
+ bmh_Width: Word; // Width in pixels
|
|
|
+ bmh_Height: Word; // Height in pixels
|
|
|
+ bmh_Left: SmallInt; // Left position
|
|
|
+ bmh_Top: SmallInt; // Top position
|
|
|
+ bmh_Depth: Byte; // Number of planes
|
|
|
+ bmh_Masking: Byte; // Masking type
|
|
|
+ bmh_Compression: Byte; // Compression type
|
|
|
+ bmh_Pad: Byte;
|
|
|
+ bmh_Transparent: Word; // Transparent color
|
|
|
+ bmh_XAspect: Byte;
|
|
|
+ bmh_YAspect: Byte;
|
|
|
+ bmh_PageWidth: SmallInt;
|
|
|
+ bmh_PageHeight: SmallInt;
|
|
|
+ end;
|
|
|
+
|
|
|
+ PColorRegister = ^TColorRegister;
|
|
|
+ TColorRegister = record
|
|
|
+ red: Byte;
|
|
|
+ green: Byte;
|
|
|
+ blue: Byte;
|
|
|
+ end;
|
|
|
|
|
|
- ADTM_UNLOADFRAME = ($702);
|
|
|
- { Used to unload a frame of the animation }
|
|
|
+const
|
|
|
+ // IFF types that may be in pictures
|
|
|
+ ID_ILBM = Ord('I') shl 24 + Ord('L') shl 16 + Ord('B') shl 8 + Ord('M'); // ILBM
|
|
|
+ ID_BMHD = Ord('B') shl 24 + Ord('M') shl 16 + Ord('H') shl 8 + Ord('D'); // BMHD
|
|
|
+ ID_CMAP = Ord('C') shl 24 + Ord('M') shl 16 + Ord('A') shl 8 + Ord('P'); // CMAP
|
|
|
+ ID_CRNG = Ord('C') shl 24 + Ord('R') shl 16 + Ord('N') shl 8 + Ord('G'); // CRNG
|
|
|
+ ID_GRAB = Ord('G') shl 24 + Ord('R') shl 16 + Ord('A') shl 8 + Ord('B'); // GRAB
|
|
|
+ ID_SPRT = Ord('S') shl 24 + Ord('P') shl 16 + Ord('R') shl 8 + Ord('T'); // SPRT
|
|
|
+ ID_DEST = Ord('D') shl 24 + Ord('E') shl 16 + Ord('S') shl 8 + Ord('T'); // DEST
|
|
|
+ ID_CAMG = Ord('C') shl 24 + Ord('A') shl 16 + Ord('M') shl 8 + Ord('G'); // CAMG
|
|
|
+
|
|
|
+ ID_BODY = Ord('B') shl 24 + Ord('O') shl 16 + Ord('D') shl 8 + Ord('Y'); // BODY
|
|
|
+
|
|
|
+// soundclass
|
|
|
+const
|
|
|
+ SOUNDDTCLASS = 'sound.datatype';
|
|
|
+ // Sound attributes
|
|
|
+ SDTA_Dummy = DTA_Dummy + 500;
|
|
|
+ SDTA_VoiceHeader = SDTA_Dummy + 1;
|
|
|
+ SDTA_Sample = SDTA_Dummy + 2; // (PByte) Sample data
|
|
|
+ SDTA_SampleLength = SDTA_Dummy + 3; // (LongWord) Length of the sample data in Bytes
|
|
|
+ SDTA_Period = SDTA_Dummy + 4; // (Word) Period
|
|
|
+ SDTA_Volume = SDTA_Dummy + 5; // (Word) Volume. Range from 0 to 64
|
|
|
+ SDTA_Cycles = SDTA_Dummy + 6;
|
|
|
+ // The following tags are new for V40
|
|
|
+ SDTA_SignalTask = SDTA_Dummy + 7; // (PTask) Task to signal when sound is complete or next buffer needed.
|
|
|
+ SDTA_SignalBit = SDTA_Dummy + 8; // (LongWord) Signal mask to use on completion or 0 to disable
|
|
|
+ SDTA_SignalBitMask = SDTA_SignalBit; // (Byte) Signal bit to use on completion or -1 to disable
|
|
|
+ SDTA_Continuous = SDTA_Dummy + 9; // (Byte) Playing a continuous stream of data. Defaults to False.
|
|
|
+
|
|
|
+ // The following tags are new for V44
|
|
|
+ SDTA_SignalBitNumber = SDTA_Dummy + 10; // (Byte) Signal bit to use on completion or -1 to disable
|
|
|
+ SDTA_SamplesPerSec = SDTA_Dummy + 11; // (Word) Samples per second
|
|
|
+ SDTA_ReplayPeriod = SDTA_Dummy + 12; // (PTimeVal) Sample replay period
|
|
|
+ SDTA_LeftSample = SDTA_Dummy + 13; // (PByte) Sample data
|
|
|
+ SDTA_RightSample = SDTA_Dummy + 14; // (PByte) Sample data
|
|
|
+ SDTA_Pan = SDTA_Dummy + 15; // (PByte) Stereo panning
|
|
|
+ SDTA_FreeSampleData = SDTA_Dummy + 16; // (Bool) FreeVec() all sample data upon OM_DISPOSE.
|
|
|
+ SDTA_SyncSampleChange = SDTA_Dummy + 17; // (Boot) Wait for the current sample to be played back before switching to the new sample data.
|
|
|
+
|
|
|
+ // Data compression methods
|
|
|
+ CMP_NONE = 0;
|
|
|
+ CMP_FIBDELTA = 1;
|
|
|
+
|
|
|
+ // Unity = Fixed 1.0 = maximum volume
|
|
|
+ Unity = $10000;
|
|
|
|
|
|
- ADTM_START = ($703);
|
|
|
- { Used to start the animation }
|
|
|
+type
|
|
|
+ PVoiceHeader = ^TVoiceHeader;
|
|
|
+ TVoiceHeader = record
|
|
|
+ vh_OneShotHiSamples: LongWord; // # samples in the high octave 1-shot part
|
|
|
+ vh_RepeatHiSamples: LongWord; // # samples in the high octave repeat part
|
|
|
+ vh_SamplesPerHiCycle: LongWord; // # samples/cycle in high octave, else 0
|
|
|
+ vh_SamplesPerSec: Word; // data sampling rate
|
|
|
+ vh_Octaves: Byte; // # of octaves of waveforms
|
|
|
+ vh_Compression: Byte; // data compression technique used
|
|
|
+ vh_Volume: LongWord; // playback nominal volume from 0 to Unity (full volume). Map this value into the output hardware's dynamic range.
|
|
|
+ end;
|
|
|
|
|
|
- ADTM_PAUSE = ($704);
|
|
|
- { Used to pause the animation (don't reset the timer) }
|
|
|
+const
|
|
|
+ // Channel allocation */
|
|
|
+ SAMPLETYPE_Left = 2;
|
|
|
+ SAMPLETYPE_Right = 4;
|
|
|
+ SAMPLETYPE_Stereo = 6;
|
|
|
|
|
|
- ADTM_STOP = ($705);
|
|
|
- { Used to stop the animation }
|
|
|
+type
|
|
|
+ TSampleType = LongInt;
|
|
|
|
|
|
- ADTM_LOCATE = ($706);
|
|
|
- { Used to locate a frame in the animation (as set by a slider...) }
|
|
|
+const
|
|
|
+ // IFF types
|
|
|
+ ID_8SVX = Ord('8') shl 24 + Ord('S') shl 16 + Ord('V') shl 8 + Ord('X'); // 8SVX
|
|
|
+ ID_VHDR = Ord('V') shl 24 + Ord('H') shl 16 + Ord('D') shl 8 + Ord('R'); // VHDR
|
|
|
+ ID_CHAN = Ord('C') shl 24 + Ord('H') shl 16 + Ord('A') shl 8 + Ord('N'); // CHAN
|
|
|
|
|
|
- { Used to load a new format frame of the animation (V44) }
|
|
|
- ADTM_LOADNEWFORMATFRAME = ($707);
|
|
|
+// textclass
|
|
|
+const
|
|
|
+ TEXTDTCLASS = 'text.datatype';
|
|
|
|
|
|
- { Used to unload a new format frame of the animation (V44) }
|
|
|
- ADTM_UNLOADNEWFORMATFRAME = ($708);
|
|
|
-{ ***************************************************************************}
|
|
|
+ // attributes
|
|
|
+ TDTA_Buffer = DTA_Dummy + 300;
|
|
|
+ TDTA_BufferLen = DTA_Dummy + 301;
|
|
|
+ TDTA_LineList = DTA_Dummy + 302;
|
|
|
+ TDTA_WordSelect = DTA_Dummy + 303;
|
|
|
+ TDTA_WordDelim = DTA_Dummy + 304;
|
|
|
+ TDTA_WordWrap = DTA_Dummy + 305; // Boolean. Should the text be word wrapped. Defaults to false.
|
|
|
|
|
|
-{ ADTM_LOADFRAME, ADTM_UNLOADFRAME }
|
|
|
Type
|
|
|
- padtFrame = ^tadtFrame;
|
|
|
- tadtFrame = record
|
|
|
- MethodID,
|
|
|
- alf_TimeStamp, { Timestamp of frame to load }
|
|
|
-
|
|
|
- { The following fields are filled in by the ADTM_LOADFRAME method, }
|
|
|
- { and are read-only for any other methods. }
|
|
|
-
|
|
|
- alf_Frame, { Frame number }
|
|
|
- alf_Duration : ULONG; { Duration of frame }
|
|
|
-
|
|
|
- alf_BitMap : pBitMap; { Loaded BitMap }
|
|
|
- alf_CMap : pColorMap; { Colormap, if changed }
|
|
|
-
|
|
|
- alf_Sample : Pointer; { Sound data }
|
|
|
- alf_SampleLength,
|
|
|
- alf_Period : ULONG;
|
|
|
+ // There is one line structure for every line of text in the document.
|
|
|
+ PLine = ^TLine;
|
|
|
+ TLine = record
|
|
|
+ ln_Link: TMinNode; // to link the lines together
|
|
|
+ ln_Text: STRPTR; // pointer to the text for this line
|
|
|
+ ln_TextLen: LongWord; // the character length of the text for this line
|
|
|
+ ln_XOffset: Word; // where in the line the text starts
|
|
|
+ ln_YOffset: Word; // line the text is on
|
|
|
+ ln_Width: Word; // Width of line in pixels
|
|
|
+ ln_Height: Word; // Height of line in pixels
|
|
|
+ ln_Flags: Word; // info on the line LNF_*
|
|
|
+ ln_FgPen: ShortInt; // foreground pen
|
|
|
+ ln_BgPen: ShortInt; // background pen
|
|
|
+ ln_Style: LongWord; // Font style
|
|
|
+ ln_Data: APTR; // Link data...
|
|
|
+ end;
|
|
|
+const
|
|
|
+ // ln_Flags
|
|
|
+ LNF_LF = 1 shl 0; // Line Feed
|
|
|
+ LNF_LINK = 1 shl 1; // Segment is a link
|
|
|
+ LNF_OBJECT = 1 shl 2; // ln_Data is a pointer to an DataTypes object
|
|
|
+ LNF_SELECTED = 1 shl 3; // Object is selected
|
|
|
|
|
|
- alf_UserData : Pointer; { Used by load frame for extra data }
|
|
|
- end;
|
|
|
+ ID_FTXT = Ord('F') shl 24 + Ord('T') shl 16 + Ord('X') shl 8 + Ord('T'); // FTXT
|
|
|
+ ID_CHRS = Ord('C') shl 24 + Ord('H') shl 16 + Ord('R') shl 8 + Ord('S'); // CHRS
|
|
|
|
|
|
- { ADTM_LOADNEWFORMATFRAME, ADTM_UNLOADNEWFORMATFRAME }
|
|
|
-
|
|
|
- PadtNewFormatFrame = ^tadtNewFormatFrame;
|
|
|
- tadtNewFormatFrame = record
|
|
|
- MethodID : ULONG;
|
|
|
- alf_TimeStamp : ULONG; { Timestamp of frame to load }
|
|
|
- { The following fields are filled in by the ADTM_NEWLOADFRAME method, }
|
|
|
- { and are read-only for any other methods. }
|
|
|
- alf_Frame : ULONG; { Frame number }
|
|
|
- alf_Duration : ULONG; { Duration of frame }
|
|
|
- alf_BitMap : PBitMap; { Loaded BitMap }
|
|
|
- alf_CMap : PColorMap; { Colormap, if changed }
|
|
|
- alf_Sample : PBYTE;
|
|
|
- alf_SampleLength : ULONG; { Sound data }
|
|
|
- alf_Period : ULONG;
|
|
|
- alf_UserData : APTR; { Used by load frame for extra data }
|
|
|
- alf_Size : ULONG; { Size of this data structure (in bytes) }
|
|
|
- alf_LeftSample : PBYTE; { Sound for left channel, or NULL if none }
|
|
|
- alf_RightSample : PBYTE; { Sound for right channel, or NULL if none }
|
|
|
- alf_SamplesPerSec : ULONG; { Replay speed; if > 0, this overrides alf_Period }
|
|
|
- end;
|
|
|
-
|
|
|
-
|
|
|
-{ ADTM_START, ADTM_PAUSE, ADTM_STOP, ADTM_LOCATE }
|
|
|
- padtStart = ^tadtStart;
|
|
|
- tadtStart = record
|
|
|
- MethodID,
|
|
|
- asa_Frame : ULONG; { Frame # to start at }
|
|
|
- end;
|
|
|
+// animationclass
|
|
|
+const
|
|
|
+ ANIMATIONDTCLASS = 'animation.datatype';
|
|
|
+
|
|
|
+ // Animation attributes
|
|
|
+ ADTA_Dummy = DTA_Dummy + 600;
|
|
|
+ ADTA_ModeID = PDTA_ModeID;
|
|
|
+ ADTA_KeyFrame = PDTA_BitMap; // (PBitmap) Key frame (first frame) bitmap
|
|
|
+ ADTA_ColorRegisters = PDTA_ColorRegisters;
|
|
|
+ ADTA_CRegs = PDTA_CRegs;
|
|
|
+ ADTA_GRegs = PDTA_GRegs;
|
|
|
+ ADTA_ColorTable = PDTA_ColorTable;
|
|
|
+ ADTA_ColorTable2 = PDTA_ColorTable2;
|
|
|
+ ADTA_Allocated = PDTA_Allocated;
|
|
|
+ ADTA_NumColors = PDTA_NumColors;
|
|
|
+ ADTA_NumAlloc = PDTA_NumAlloc;
|
|
|
+ ADTA_Remap = PDTA_Remap; // (Bool) Remap animation (defaults to True)
|
|
|
+ ADTA_Screen = PDTA_Screen; // (PScreen) Screen to remap to
|
|
|
+ ADTA_NumSparse = PDTA_NumSparse; // (Word) Number of colors used for sparse remapping
|
|
|
+ ADTA_SparseTable = PDTA_SparseTable; // (PByte) Pointer to a table of pen numbers indicating which colors should be used when remapping the image.
|
|
|
+ // This array must contain as many entries as there are colors specified with ADTA_NumSparse
|
|
|
+ ADTA_Width = ADTA_Dummy + 1;
|
|
|
+ ADTA_Height = ADTA_Dummy + 2;
|
|
|
+ ADTA_Depth = ADTA_Dummy + 3;
|
|
|
+ ADTA_Frames = ADTA_Dummy + 4; // (LongWord) Number of frames in the animation
|
|
|
+ ADTA_Frame = ADTA_Dummy + 5; // (LongWord) Current frame
|
|
|
+ ADTA_FramesPerSecond = ADTA_Dummy + 6; // (LongWord) Frames per second
|
|
|
+ ADTA_FrameIncrement = ADTA_Dummy + 7; // (LongInt) Amount to change frame by when fast forwarding or rewinding. Defaults to 10.
|
|
|
+
|
|
|
+ ADTA_PreloadFrameCount = ADTA_Dummy + 8; // (V44)
|
|
|
+
|
|
|
+ // Sound attributes
|
|
|
+ ADTA_Sample = SDTA_Sample;
|
|
|
+ ADTA_SampleLength = SDTA_SampleLength;
|
|
|
+ ADTA_Period = SDTA_Period;
|
|
|
+ ADTA_Volume = SDTA_Volume;
|
|
|
+ ADTA_Cycles = SDTA_Cycles;
|
|
|
+ // V44
|
|
|
+ ADTA_LeftSample = SDTA_LeftSample;
|
|
|
+ ADTA_RightSample = SDTA_RightSample;
|
|
|
+ ADTA_SamplesPerSec = SDTA_SamplesPerSec;
|
|
|
+
|
|
|
+ // IFF ANIM chunks
|
|
|
+ ID_ANIM = Ord('A') shl 24 + Ord('N') shl 16 + Ord('I') shl 8 + Ord('M'); // ANIM
|
|
|
+ ID_ANHD = Ord('A') shl 24 + Ord('N') shl 16 + Ord('H') shl 8 + Ord('D'); // ANHD
|
|
|
+ ID_DLTA = Ord('D') shl 24 + Ord('L') shl 16 + Ord('T') shl 8 + Ord('A'); // DLTA
|
|
|
|
|
|
-{ ***************************************************************************}
|
|
|
+type
|
|
|
+ // Required ANHD structure describes an ANIM frame
|
|
|
+ PAnimHeader = ^TAnimHeader;
|
|
|
+ TAnimHeader = record
|
|
|
+ ah_Operation: Byte; { The compression method:
|
|
|
+ 0 set directly (normal ILBM BODY),
|
|
|
+ 1 XOR ILBM mode,
|
|
|
+ 2 Long Delta mode,
|
|
|
+ 3 Short Delta mode,
|
|
|
+ 4 Generalized short/long Delta mode,
|
|
|
+ 5 Byte Vertical Delta mode
|
|
|
+ 6 Stereo op 5 (third party)
|
|
|
+ 74 (ascii 'J') reserved for Eric Graham's
|
|
|
+ compression technique (details to be
|
|
|
+ released later). }
|
|
|
+ ah_Mask: Byte; // (XOR mode only - plane mask where each bit is set =1 if there is data and =0 if not.)
|
|
|
+ ah_Height: Word; // (XOR mode only - width and height of the area represented
|
|
|
+ ah_Width: Word; // by the BODY to eliminate unnecessary un-changed data)
|
|
|
+ ah_Left: SmallInt; // (XOR mode only - position of rectangular
|
|
|
+ ah_Top: SmallInt; // area representd by the BODY)
|
|
|
+ ah_AbsTime: LongWord; // Timing for a frame relative to the time the first frame was displayed, in jiffies (1/60 sec)
|
|
|
+ ah_RelTime: LongWord; // Timing for frame relative to time previous frame was displayed - in jiffies (1/60 sec)
|
|
|
+ ah_Interleave: Byte; { Indicates how may frames back this data is to modify. 0 defaults to indicate two frames back
|
|
|
+ (for double buffering). n indicates n frames back. The main intent here is to allow values
|
|
|
+ of 1 for special applications where frame data would modify the immediately previous frame. }
|
|
|
+ ah_Pad0: Byte; // Pad byte, not used at present.
|
|
|
+ ah_Flags: LongWord; { 32 option bits used by options=4 and 5. At present only 6 are identified, but the
|
|
|
+ rest are set =0 so they can be used to implement future ideas. These are defined
|
|
|
+ for option 4 only at this point. It is recommended that all bits be set =0 for
|
|
|
+ option 5 and that any bit settings used in the future (such as for XOR mode)
|
|
|
+ be compatible with the option 4 bit settings. Player code should check undefined bits
|
|
|
+ in options 4 and 5 to assure they are zero.
|
|
|
+ The six bits for current use are:
|
|
|
+ bit # set =0 set =1
|
|
|
+ ===============================================
|
|
|
+ 0 short data long data
|
|
|
+ 1 set XOR
|
|
|
+ 2 separate info one info list
|
|
|
+ for each plane for all planes
|
|
|
+ 3 not RLC RLC (run length coded)
|
|
|
+ 4 horizontal vertical
|
|
|
+ 5 short info offsets long info offsets}
|
|
|
+ ah_Pad: array[0..15] of Byte; // This is a pad for future use for future compression modes
|
|
|
+ end;
|
|
|
+const
|
|
|
+ // Methods
|
|
|
+ ADTM_Dummy = $700;
|
|
|
+ ADTM_LOADFRAME = $701; // Used to load a frame of the animation
|
|
|
+ ADTM_UNLOADFRAME = $702; // Used to unload a frame of the animation
|
|
|
+ ADTM_START = $703; // Used to start the animation
|
|
|
+ ADTM_PAUSE = $704; // Used to pause the animation (don't reset the timer)
|
|
|
+ ADTM_STOP = $705; // Used to stop the animation
|
|
|
+ ADTM_LOCATE = $706; // Used to locate a frame in the animation (as set by a slider...)
|
|
|
+ // New on V44
|
|
|
+ ADTM_LOADNEWFORMATFRAME = $707; // Used to load a new format frame of the animation
|
|
|
+ ADTM_UNLOADNEWFORMATFRAME = $708; // Used to unload a new format frame of the animation
|
|
|
|
|
|
-VAR DataTypesBase : pLibrary = nil;
|
|
|
+type
|
|
|
+ // ADTM_LOADFRAME, ADTM_UNLOADFRAME
|
|
|
+ PadtFrame = ^TadtFrame;
|
|
|
+ TadtFrame = record
|
|
|
+ MethodID: LongWord;
|
|
|
+ alf_TimeStamp: LongWord; // Timestamp of frame to load
|
|
|
+ // The following fields are filled in by the ADTM_LOADFRAME method, and are read-only for any other methods.
|
|
|
+ alf_Frame: LongWord; // Frame number
|
|
|
+ alf_Duration: LongWord; // Duration of frame
|
|
|
+ alf_BitMap: PBitMap; // Loaded BitMap
|
|
|
+ alf_CMap: PColorMap; // Colormap, if changed
|
|
|
+ alf_Sample: PShortInt; // Sound data
|
|
|
+ alf_SampleLength: LongWord;
|
|
|
+ alf_Period: LongWord;
|
|
|
+ alf_UserData: APTR; // Used by load frame for extra data
|
|
|
+ end;
|
|
|
+
|
|
|
+ // ADTM_LOADFRAME, ADTM_UNLOADFRAME
|
|
|
+ PadtNewFormatFrame = ^TadtNewFormatFrame;
|
|
|
+ TadtNewFormatFrame = record
|
|
|
+ MethodID: LongWord;
|
|
|
+ alf_TimeStamp: LongWord; // Timestamp of frame to load
|
|
|
+ // // The following fields are filled in by the ADTM_NEWLOADFRAME method, and are read-only for any other methods.
|
|
|
+ alf_Frame: LongWord; // Frame number
|
|
|
+ alf_Duration: LongWord; // Duration of frame
|
|
|
+ alf_BitMap: PBitMap; // Loaded BitMap
|
|
|
+ alf_CMap: PColorMap; // Colormap, if changed
|
|
|
+ alf_Sample: PShortInt;
|
|
|
+ alf_SampleLength: LongWord; // Sound data
|
|
|
+ alf_Period: LongWord;
|
|
|
+ alf_UserData: APTR; // Used by load frame for extra data
|
|
|
+ alf_Size: LongWord; // Size of this data structure (in bytes)
|
|
|
+ alf_LeftSample: PShortInt; // Sound for left channel, or nil if none
|
|
|
+ alf_RightSample: PShortInt; // Sound for right channel, or nil if none
|
|
|
+ alf_SamplesPerSec: LongWord; // Replay speed; if > 0, this overrides alf_Period
|
|
|
+ end;
|
|
|
+
|
|
|
+ // ADTM_START, ADTM_PAUSE, ADTM_STOP, ADTM_LOCATE
|
|
|
+ PadtStart = ^tadtStart;
|
|
|
+ TadtStart = record
|
|
|
+ MethodID: LongWord;
|
|
|
+ asa_Frame: LongWord; // Frame # to start at
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+var
|
|
|
+ DataTypesBase: PLibrary = nil;
|
|
|
|
|
|
const
|
|
|
- DATATYPESNAME : PChar = 'datatypes.library';
|
|
|
-
|
|
|
-{
|
|
|
- Just a note.
|
|
|
- You will see a lot of pObject_ here, pObject is
|
|
|
- defined in intuition.
|
|
|
+ DATATYPESNAME: PChar = 'datatypes.library';
|
|
|
+
|
|
|
+function AddDTObject(Win: PWindow location 'a0'; Req: PRequester location 'a1'; o: PObject_ location 'a2'; Pos: LongInt location 'd0'): LongInt; syscall DataTypesBase 072;
|
|
|
+procedure DisposeDTObject(o: PObject_ location 'a0'); syscall DataTypesBase 054;
|
|
|
+function DoAsyncLayout(o: PObject_ location 'a0'; gpl: pgpLayout location 'a1'): LongWord; syscall DataTypesBase 084;
|
|
|
+function DoDTMethodA(o: PObject_ location 'a0'; Win: PWindow location 'a1'; Req: PRequester location 'a2'; Msg: PLongInt location 'a3'): LongWord; syscall DataTypesBase 090;
|
|
|
+function GetDTAttrsA(o: PObject_ location 'a0'; Attrs: PTagItem location 'a2'): LongWord; syscall DataTypesBase 066;
|
|
|
+function GetDTMethods(Obj: PObject_ location 'a0'): Pointer; syscall DataTypesBase 102;
|
|
|
+function GetDTString(Id: LongWord location 'a0'): STRPTR; syscall DataTypesBase 138;
|
|
|
+function GetDTTriggerMethods(Obj: PObject_ location 'a0'): PDTMethod; syscall DataTypesBase 108;
|
|
|
+function NewDTObjectA(Name: STRPTR location 'd0'; Attrs: pTagItem location 'a0'): Pointer; syscall DataTypesBase 048;
|
|
|
+function ObtainDataTypeA(Typ: LongWord location 'd0'; Handle: Pointer location 'a0'; Attrs: PTagItem location 'a1'): pDataType; syscall DataTypesBase 036;
|
|
|
+function PrintDTObjectA(o: PObject_ location 'a0'; w: PWindow location 'a1'; r: PRequester location 'a2'; Msg: PdtPrint location 'a3'): LongWord; syscall DataTypesBase 114;
|
|
|
+procedure RefreshDTObjectA(o: PObject_ location 'a0'; Win: PWindow location 'a1'; Req: PRequester location 'a2'; Attrs: PTagItem location 'a3'); syscall DataTypesBase 078;
|
|
|
+procedure ReleaseDataType(Dt: PDataType location 'a0'); syscall DataTypesBase 042;
|
|
|
+function RemoveDTObject(Win: PWindow location 'a0'; o: PObject_ location 'a1'): LongInt; syscall DataTypesBase 096;
|
|
|
+function SetDTAttrsA(o: PObject_ location 'a0'; Win: PWindow location 'a1'; Req: PRequester location 'a2'; Attrs: PTagItem location 'a3'): LongWord; syscall DataTypesBase 060;
|
|
|
+
|
|
|
+function ObtainDTDrawInfoA(o: PObject_ location 'a0'; Attrs: PTagItem location 'a1'): Pointer; syscall DataTypesBase 120;
|
|
|
+function DrawDTObjectA(Rp: PRastPort location 'a0'; o: PObject_ location 'a1'; x: LongInt location 'd0'; y: LongInt location 'd1'; w: LongInt location 'd2'; h: LongInt location 'd3'; th: LongInt location 'd4'; tv: LongInt location 'd5'; Attrs: PTagItem location 'a2'): LongInt; syscall DataTypesBase 126;
|
|
|
+procedure ReleaseDTDrawInfo(o: PObject_ location 'a0'; Handle: Pointer location 'a1'); syscall DataTypesBase 132;
|
|
|
+
|
|
|
+function ObtainDataType(Typ: LongWord; Handle: APTR; const TagList: array of PtrUInt): PDataType; inline;
|
|
|
+function NewDTObject(Name: APTR; const TagList: array of PtrUInt): PObject_; inline;
|
|
|
+function SetDTAttrs(O: PObject_; Win: PWindow; Req: PRequester; const TagList: array of PtrUInt): LongWord; inline;
|
|
|
+function GetDTAttrs(O: PObject_; const TagList: array of PtrUInt): LongWord; inline;
|
|
|
+procedure RefreshDTObject(Obj: PObject_; Window: PWindow; Req: PRequester; const TagList: array of PtrUInt); inline;
|
|
|
+function DoDTMethod(O: PObject_; Win: PWindow; Req: PRequester; const ArgList: array of PtrUInt): PtrUInt; inline;
|
|
|
+function PrintDTObject(Obj: PObject_; Window: PWindow; Requester: PRequester; const ArgList: array of PtrUInt): LongWord; inline;
|
|
|
+function ObtainDTDrawInfo(O: PObject_; const TagList: array of PtrUInt): APTR; inline;
|
|
|
+function DrawDTObject(Rp: PRastPort; O: PObject_; x, y, w, h, th, tv: LongInt; const TagList: array of PtrUInt): LongInt; inline;
|
|
|
+
|
|
|
+implementation
|
|
|
+
|
|
|
+function ObtainDataType(Typ: LongWord; Handle: APTR; const TagList: array of PtrUInt): PDataType;
|
|
|
+begin
|
|
|
+ ObtainDataType := ObtainDataTypeA(Typ, Handle, @TagList);
|
|
|
+end;
|
|
|
|
|
|
- In c it's object * but we can't have object in fpc.
|
|
|
- typedef object ULONG
|
|
|
+function NewDTObject(Name: APTR; const TagList: array of PtrUInt): PObject_;
|
|
|
+begin
|
|
|
+ NewDTObject := NewDTObjectA(Name, @TagList);
|
|
|
+end;
|
|
|
|
|
|
- pObject_ is just pULONG.
|
|
|
+function SetDTAttrs(O: PObject_; Win: PWindow; Req: PRequester; const TagList: array of PtrUInt): LongWord;
|
|
|
+begin
|
|
|
+ SetDTAttrs := SetDTAttrsA(O, Win, Req, @TagList);
|
|
|
+end;
|
|
|
|
|
|
-}
|
|
|
+function GetDTAttrs(O: PObject_; const TagList: array of PtrUInt): LongWord;
|
|
|
+begin
|
|
|
+ GetDTAttrs := GetDTAttrsA(O, @TagList);
|
|
|
+end;
|
|
|
|
|
|
-FUNCTION AddDTObject(win : pWindow location 'a0'; req : pRequester location 'a1'; o : pObject_ location 'a2'; pos : LONGINT location 'd0') : LONGINT; syscall DataTypesBase 072;
|
|
|
-PROCEDURE DisposeDTObject(o : pObject_ location 'a0'); syscall DataTypesBase 054;
|
|
|
-FUNCTION DoAsyncLayout(o : pObject_ location 'a0'; gpl : pgpLayout location 'a1') : ULONG; syscall DataTypesBase 084;
|
|
|
-FUNCTION DoDTMethodA(o : pObject_ location 'a0'; win : pWindow location 'a1'; req : pRequester location 'a2'; msg : pLONGINT location 'a3') : ULONG; syscall DataTypesBase 090;
|
|
|
-FUNCTION GetDTAttrsA(o : pObject_ location 'a0'; attrs : pTagItem location 'a2') : ULONG; syscall DataTypesBase 066;
|
|
|
-FUNCTION GetDTMethods(obj : pObject_ location 'a0') : POINTER; syscall DataTypesBase 102;
|
|
|
-FUNCTION GetDTString(id : ULONG location 'a0') : pCHAR; syscall DataTypesBase 138;
|
|
|
-FUNCTION GetDTTriggerMethods(obj : pObject_ location 'a0') : pDTMethod; syscall DataTypesBase 108;
|
|
|
-FUNCTION NewDTObjectA(name : POINTER location 'd0'; attrs : pTagItem location 'a0') : POINTER; syscall DataTypesBase 048;
|
|
|
-FUNCTION ObtainDataTypeA(typ : ULONG location 'd0'; handle : POINTER location 'a0'; attrs : pTagItem location 'a1') : pDataType; syscall DataTypesBase 036;
|
|
|
-FUNCTION PrintDTObjectA(o : pObject_ location 'a0'; w : pWindow location 'a1'; r : pRequester location 'a2'; msg : pdtPrint location 'a3') : ULONG; syscall DataTypesBase 114;
|
|
|
-PROCEDURE RefreshDTObjectA(o : pObject_ location 'a0'; win : pWindow location 'a1'; req : pRequester location 'a2'; attrs : pTagItem location 'a3'); syscall DataTypesBase 078;
|
|
|
-PROCEDURE ReleaseDataType(dt : pDataType location 'a0'); syscall DataTypesBase 042;
|
|
|
-FUNCTION RemoveDTObject(win : pWindow location 'a0'; o : pObject_ location 'a1') : LONGINT; syscall DataTypesBase 096;
|
|
|
-FUNCTION SetDTAttrsA(o : pObject_ location 'a0'; win : pWindow location 'a1'; req : pRequester location 'a2'; attrs : pTagItem location 'a3') : ULONG; syscall DataTypesBase 060;
|
|
|
-
|
|
|
-FUNCTION ObtainDTDrawInfoA( o : pObject_ location 'a0'; attrs : pTagItem location 'a1') : POINTER; syscall DataTypesBase 120;
|
|
|
-FUNCTION DrawDTObjectA(rp : pRastPort location 'a0'; o : pObject_ location 'a1'; x : LONGINT location 'd0'; y : LONGINT location 'd1'; w : LONGINT location 'd2'; h : LONGINT location 'd3'; th : LONGINT location 'd4'; tv : LONGINT location 'd5'; attrs : pTagItem location 'a2') : LONGINT; syscall DataTypesBase 126;
|
|
|
-PROCEDURE ReleaseDTDrawInfo( o : pObject_ location 'a0'; handle : POINTER location 'a1'); syscall DataTypesBase 132;
|
|
|
-
|
|
|
-function GetDTAttrs(o : pObject_; Const argv : array of PtrUInt) : ULONG;
|
|
|
-function NewDTObject(name : POINTER; Const argv : array of PtrUInt): POINTER;
|
|
|
-function ObtainDataType(typ : ULONG; handle : POINTER; Const argv : array of PtrUInt) : pDataType;
|
|
|
-procedure RefreshDTObject(o : pObject_; win : pWindow; req : pRequester; Const argv : array of PtrUInt);
|
|
|
-function SetDTAttrs(o : pObject_; win : pWindow; req : pRequester; Const argv : array of PtrUInt) : ULONG;
|
|
|
-
|
|
|
-IMPLEMENTATION
|
|
|
-
|
|
|
-function GetDTAttrs(o : pObject_; Const argv : array of PtrUInt) : ULONG;
|
|
|
+procedure RefreshDTObject(Obj: PObject_; Window: PWindow; Req: PRequester; const TagList: array of PtrUInt);
|
|
|
begin
|
|
|
- GetDTAttrs := GetDTAttrsA(o,@argv);
|
|
|
+ RefreshDTObjectA(Obj, Window, Req, @TagList);
|
|
|
end;
|
|
|
|
|
|
-function NewDTObject(name : POINTER; Const argv : array of PtrUInt): POINTER;
|
|
|
+function DoDTMethod(O: PObject_; Win: PWindow; Req: PRequester; const ArgList: array of PtrUInt): PtrUInt;
|
|
|
begin
|
|
|
- NewDTObject := NewDTObjectA(name,@argv);
|
|
|
+ DoDTMethod := DoDTMethodA(O, Win, Req, @ArgList);
|
|
|
end;
|
|
|
|
|
|
-function ObtainDataType(typ : ULONG; handle : POINTER; Const argv : array of PtrUInt) : pDataType;
|
|
|
+function PrintDTObject(Obj: PObject_; Window: PWindow; Requester: PRequester; const ArgList: array of PtrUInt): LongWord;
|
|
|
begin
|
|
|
- ObtainDataType := ObtainDataTypeA(typ,handle,@argv);
|
|
|
+ PrintDTObject := PrintDTObjectA(Obj, Window, Requester, @ArgList);
|
|
|
end;
|
|
|
-procedure RefreshDTObject(o : pObject_; win : pWindow; req : pRequester; Const argv : array of PtrUInt);
|
|
|
+
|
|
|
+function ObtainDTDrawInfo(O: PObject_; const TagList: array of PtrUInt): APTR;
|
|
|
begin
|
|
|
- RefreshDTObjectA(o,win,req,@argv);
|
|
|
+ ObtainDTDrawInfo := ObtainDTDrawInfoA(O, @TagList);
|
|
|
end;
|
|
|
|
|
|
-function SetDTAttrs(o : pObject_; win : pWindow; req : pRequester; Const argv : array of PtrUInt) : ULONG;
|
|
|
+function DrawDTObject(Rp: PRastPort; O: PObject_; x, y, w, h, th, tv: LongInt; const TagList: array of PtrUInt): LongInt;
|
|
|
begin
|
|
|
- SetDTAttrs := SetDTAttrsA(o,win,req,@argv);
|
|
|
+ DrawDTObject := DrawDTObjectA(RP, O, x, y, w, h, th, tv, @TagList);
|
|
|
end;
|
|
|
|
|
|
|
|
|
const
|
|
|
- { Change VERSION and LIBVERSION to proper values }
|
|
|
- VERSION : string[2] = '0';
|
|
|
- LIBVERSION : longword = 0;
|
|
|
+ LIBVERSION : longword = 0;
|
|
|
|
|
|
initialization
|
|
|
DataTypesBase := OpenLibrary(DATATYPESNAME,LIBVERSION);
|
marcus