Line | |
---|
1 | unit TypeDefs; |
---|
2 | interface |
---|
3 | |
---|
4 | uses |
---|
5 | Graphics, SysUtils; |
---|
6 | |
---|
7 | type |
---|
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 | TExtensionsMap = array of packed record |
---|
26 | Ident: array[0..$7] of Byte; |
---|
27 | Extension: array[0..$3] of Char; |
---|
28 | ExtCount: Integer; |
---|
29 | end; |
---|
30 | |
---|
31 | TFileInfo = packed record |
---|
32 | ID: Integer; |
---|
33 | Name: String; |
---|
34 | Extension: String[4]; |
---|
35 | Size: Integer; |
---|
36 | FileType: LongWord; |
---|
37 | DatAddr: Integer; |
---|
38 | end; |
---|
39 | TFiles = array of TFileInfo; |
---|
40 | |
---|
41 | TRawDataInfo = record |
---|
42 | SrcID: Integer; |
---|
43 | SrcOffset: Integer; |
---|
44 | RawAddr: Integer; |
---|
45 | RawSize: Integer; |
---|
46 | LocSep: Boolean; |
---|
47 | end; |
---|
48 | TRawDataList = array of TRawDataInfo; |
---|
49 | |
---|
50 | TSortType = ( |
---|
51 | ST_IDAsc, |
---|
52 | ST_IDDesc, |
---|
53 | ST_NameAsc, |
---|
54 | ST_NameDesc, |
---|
55 | ST_ExtAsc, |
---|
56 | ST_ExtDesc |
---|
57 | ); |
---|
58 | |
---|
59 | TExtensionFormat = ( |
---|
60 | EF_ExtOnly, |
---|
61 | EF_ExtCount |
---|
62 | ); |
---|
63 | |
---|
64 | TByteData = array of Byte; |
---|
65 | |
---|
66 | TAppSettings = record |
---|
67 | DatPath: String[250]; |
---|
68 | ExtractPath: String[250]; |
---|
69 | FilenumbersAsHex: Boolean; |
---|
70 | CharSet: TFontCharSet; |
---|
71 | HideUnusedData: Boolean; |
---|
72 | end; |
---|
73 | |
---|
74 | TToolList = array of record |
---|
75 | context: String; |
---|
76 | name: String; |
---|
77 | exts: String; |
---|
78 | end; |
---|
79 | |
---|
80 | TLinkByName = record |
---|
81 | SrcOffset: Integer; |
---|
82 | Destination: String; |
---|
83 | end; |
---|
84 | TLinkByID = record |
---|
85 | SrcOffset: Integer; |
---|
86 | Destination: Integer; |
---|
87 | end; |
---|
88 | TLinks = record |
---|
89 | ByName: array of TLinkByName; |
---|
90 | ByID: array of TLinkByID; |
---|
91 | end; |
---|
92 | |
---|
93 | { |
---|
94 | TLevelInfo = record |
---|
95 | Ident: array[0..$13] of Byte; |
---|
96 | LevelNumber: Byte; |
---|
97 | end; |
---|
98 | |
---|
99 | TDatLinks = array of record |
---|
100 | Src_Offset: Integer; |
---|
101 | Target: Integer; |
---|
102 | end; |
---|
103 | } |
---|
104 | |
---|
105 | const |
---|
106 | CrLf: String[2] = #13#10; |
---|
107 | |
---|
108 | implementation |
---|
109 | |
---|
110 | end. |
---|
Note: See
TracBrowser
for help on using the repository browser.