source: oup/current/Global/TypeDefs.pas@ 112

Last change on this file since 112 was 112, checked in by alloc, 18 years ago
File size: 2.9 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 THeader = packed record
26 Ident: array[0..$13] of Byte;
27 Files: Integer;
28 NamedFiles: Integer;
29 Extensions: Integer;
30 DataAddr: Integer;
31 DataSize: Integer;
32 NamesAddr: Integer;
33 NamesSize: Integer;
34 Ident2: array[0..$F] of Byte;
35 end;
36 TFilesMap = array of packed record
37 Extension: array[0..$3] of Char;
38 DataAddr: Integer;
39 NameAddr: Integer;
40 FileSize: Integer;
41 FileType: LongWord;
42 end;
43 TNamedFilesMap = array of packed record
44 FileNumber: Integer;
45 blubb: Integer;
46 end;
47
48 TTypeIdent = array[0..7] of Byte;
49 TFileType = record
50 Extension: String[4];
51 StructID: Integer;
52 Description: String;
53 IdentWin: TTypeIdent;
54 IdentMac: TTypeIdent;
55 end;
56
57 TExtensionsMap = array of packed record
58 Ident: TTypeIdent;
59 Extension: array[0..$3] of Char;
60 ExtCount: Integer;
61 end;
62
63 TFileInfo = packed record
64 ID: Integer;
65 Name: String;
66 Extension: String[4];
67 Size: Integer;
68 FileType: LongWord;
69 DatAddr: Integer;
70 end;
71 TFiles = array of TFileInfo;
72
73 TRawDataInfo = record
74 SrcID: Integer;
75 SrcOffset: Integer;
76 RawAddr: Integer;
77 RawSize: Integer;
78 LocSep: Boolean;
79 end;
80 TRawDataList = array of TRawDataInfo;
81
82 TSortType = (
83 ST_IDAsc,
84 ST_IDDesc,
85 ST_NameAsc,
86 ST_NameDesc,
87 ST_ExtAsc,
88 ST_ExtDesc,
89 ST_ExtNameAsc,
90 ST_ExtNameDesc
91 );
92
93 TExtensionFormat = (
94 EF_ExtOnly,
95 EF_ExtCount
96 );
97
98 TByteData = array of Byte;
99
100 TAppSettings = record
101 DatPath: String[250];
102 ExtractPath: String[250];
103 CharSet: TFontCharSet;
104 HideUnusedData: Boolean;
105 end;
106
107 TToolList = array of record
108 context: String;
109 name: String;
110 exts: String;
111 end;
112
113 TLinkByName = record
114 SrcOffset: Integer;
115 Destination: String;
116 end;
117 TLinkByID = record
118 SrcOffset: Integer;
119 Destination: Integer;
120 end;
121 TLinks = record
122 ByName: array of TLinkByName;
123 ByID: array of TLinkByID;
124 end;
125
126{
127 TLevelInfo = record
128 Ident: array[0..$13] of Byte;
129 LevelNumber: Byte;
130 end;
131
132 TDatLinks = array of record
133 Src_Offset: Integer;
134 Target: Integer;
135 end;
136}
137
138const
139 CrLf: String[2] = #13#10;
140
141implementation
142
143end.
Note: See TracBrowser for help on using the repository browser.