rewrite/Global/TypeDefs.pas

unit TypeDefs;
interface

uses
  Graphics, SysUtils;

type
  ENotImplemented = class(Exception);

  TDataBackend = (DB_ONI, DB_ADB);
  TDataOS = (DOS_WIN, DOS_WINDEMO, DOS_MAC, DOS_MACBETA);

  TChangeRights = set of (CR_EditDat, CR_EditRaw, CR_ResizeDat, CR_ResizeRaw, CR_AppendRaw);

  TStatusMessages = (
      SM_OK,
      SM_AlreadyOpened,
      SM_FileNotFound,
      SM_UnknownExtension,
      SM_IncompatibleFile,
      SM_IncompatibleDBVersion,
      SM_UnknownError
  ); 

  TExtensionsMap = array of packed record
      Ident:       array[0..$7] of Byte;
      Extension:   array[0..$3] of Char;
      ExtCount:    LongWord;
  end;

  TFileInfo = packed record
      ID:          Integer;
      Name:        String;
      Extension:   String[4];
      Size:        Integer;
      FileType:    LongWord;
      DatAddr:     Integer;
  end;
  TFiles = array of TFileInfo;

  TRawDataInfo = record
      SrcID:       Integer;
      SrcOffset:   Integer;
      RawAddr:     Integer;
      RawSize:     Integer;
      LocSep:      Boolean;
  end;
  TRawDataList = array of TRawDataInfo;

  TSortType = (
      ST_IDAsc,
      ST_IDDesc,
      ST_NameAsc,
      ST_NameDesc,
      ST_ExtAsc,
      ST_ExtDesc
  );

  TExtensionFormat = (
      EF_ExtOnly,
      EF_ExtCount
  );

  TByteData = array of Byte; 

  TAppSettings = record
      DatPath:        String[250];
      ExtractPath:    String[250];
      FilenumbersAsHex: Boolean;
      CharSet:        TFontCharSet;
      HideUnusedData: Boolean;
  end;

  TToolList = array of record
    context: String;
    name: String;
    exts: String;
  end;

{
  TLevelInfo = record
    Ident: array[0..$13] of Byte;
    LevelNumber: Byte;
  end;

 TDatLinks = array of record
    Src_Offset: LongWord;
    Target:     LongWord;
  end;
}

const
  CrLf: String[2] = #13#10;

implementation

end.
Revision:	101
Committed:	Tue Feb 20 20:43:29 2007 UTC (18 years, 7 months ago) by alloc
Content type:	text/x-pascal
File size:	1945 byte(s)
Log Message:
#	Content
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: LongWord;
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	{
81	TLevelInfo = record
82	Ident: array[0..$13] of Byte;
83	LevelNumber: Byte;
84	end;
85
86	TDatLinks = array of record
87	Src_Offset: LongWord;
88	Target: LongWord;
89	end;
90	}
91
92	const
93	CrLf: String[2] = #13#10;
94
95	implementation
96
97	end.