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

Last change on this file since 111 was 111, checked in by alloc, 15 years ago
File size: 2.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  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
105const
106  CrLf: String[2] = #13#10;
107
108implementation
109
110end.
Note: See TracBrowser for help on using the repository browser.