source: oup/releases/0.34a/Global/TypeDefs.pas@ 505

Last change on this file since 505 was 200, checked in by alloc, 18 years ago
File size: 3.2 KB
Line 
1unit TypeDefs;
2interface
3
4uses
5 Graphics, SysUtils;
6
7type
8 ENotImplemented = class(Exception);
9
10 TDataBackend = (DB_ONI, DB_ADB);
11 TDataOS = (DOS_WIN, DOS_WINDEMO, DOS_MAC, DOS_MACBETA);
12
13 TChangeRights = set of (CR_EditDat, CR_EditRaw, CR_ResizeDat, CR_ResizeRaw, CR_AppendRaw);
14
15 TStatusMessages = (
16 SM_OK,
17 SM_AlreadyOpened,
18 SM_FileNotFound,
19 SM_UnknownExtension,
20 SM_IncompatibleFile,
21 SM_IncompatibleDBVersion,
22 SM_UnknownError
23 );
24
25 TDatOSIdent = array[0..3] of Byte;
26 TDatGlobalIdent = array[0..15] of Byte;
27
28 THeader = packed record
29 OSIdent: TDatOSIdent;
30 GlobalIdent:TDatGlobalIdent;
31 Files: Integer;
32 NamedFiles: Integer;
33 Extensions: Integer;
34 DataAddr: Integer;
35 DataSize: Integer;
36 NamesAddr: Integer;
37 NamesSize: Integer;
38 Ident2: array[0..$F] of Byte;
39 end;
40 TFilesMap = array of packed record
41 Extension: array[0..$3] of Char;
42 DataAddr: Integer;
43 NameAddr: Integer;
44 FileSize: Integer;
45 FileType: LongWord;
46 end;
47 TNamedFilesMap = array of packed record
48 FileNumber: Integer;
49 blubb: Integer;
50 end;
51
52 TTypeIdent = array[0..7] of Byte;
53 TFileType = record
54 Extension: String[4];
55 StructID: Integer;
56 Name: String;
57 IdentWin: TTypeIdent;
58 IdentMac: TTypeIdent;
59 end;
60
61 TExtensionsMap = array of packed record
62 Ident: TTypeIdent;
63 Extension: array[0..$3] of Char;
64 ExtCount: Integer;
65 end;
66
67 TFileInfo = packed record
68 ID: Integer;
69 Name: String;
70 Extension: String[4];
71 Size: Integer;
72 FileType: LongWord;
73 DatAddr: Integer;
74 end;
75 TFiles = array of TFileInfo;
76
77 TRawDataInfo = record
78 SrcID: Integer;
79 SrcOffset: Integer;
80 RawAddr: Integer;
81 RawSize: Integer;
82 LocSep: Boolean;
83 end;
84 TRawDataList = array of TRawDataInfo;
85
86 TSortType = (
87 ST_IDAsc,
88 ST_IDDesc,
89 ST_NameAsc,
90 ST_NameDesc,
91 ST_ExtAsc,
92 ST_ExtDesc,
93 ST_ExtNameAsc,
94 ST_ExtNameDesc
95 );
96
97 TExtensionFormat = (
98 EF_ExtOnly,
99 EF_ExtCount
100 );
101
102 TByteData = array of Byte;
103
104 TAppSettings = record
105 DatPath: String[250];
106 ExtractPath: String[250];
107 CharSet: TFontCharSet;
108 HideUnusedData: Boolean;
109 end;
110
111 TToolList = array of record
112 context: String;
113 name: String;
114 exts: String;
115 end;
116
117
118 TLinkByName = record
119 SrcOffset: Integer;
120 Destination: String;
121 end;
122 TLinkByID = record
123 SrcOffset: Integer;
124 Destination: Integer;
125 end;
126 TLinks = record
127 ByName: array of TLinkByName;
128 ByID: array of TLinkByID;
129 end;
130
131 TDatLink = record
132 SrcOffset: Integer;
133 DestID: Integer;
134 PosDestExts: String;
135 end;
136 TDatLinkList = array of TDatLink;
137
138{
139 TLevelInfo = record
140 Ident: array[0..$13] of Byte;
141 LevelNumber: Byte;
142 end;
143
144 TDatLinks = array of record
145 Src_Offset: Integer;
146 Target: Integer;
147 end;
148}
149
150const
151 CrLf: String[2] = #13#10;
152
153implementation
154
155end.
Note: See TracBrowser for help on using the repository browser.