ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/FileClasses/TXMP.pas
(Generate patch)

Comparing oup/current/FileClasses/TXMP.pas (file contents):
Revision 207 by alloc, Tue May 29 19:39:15 2007 UTC vs.
Revision 209 by alloc, Mon Jun 4 22:07:29 2007 UTC

# Line 3 | Line 3 | unit TXMP;
3   interface
4  
5   uses
6 <  TypeDefs, _FileTypes, _DataTypes;
6 >  _FileTypes;
7  
8   type
9    TFile_TXMP = class(TFile)
# Line 16 | Line 16 | type
16   implementation
17  
18   uses
19 <  ConnectionManager, Math, Classes;
20 <
21 < { TFile_SNDD }
22 <
23 < procedure TFile_TXMP.InitDatLinks;
24 < begin
25 <  SetLength(FDatLinks, 2);
26 <  FDatLinks[0].SrcOffset := $94;
27 <  FDatLinks[0].DestID := -1;
28 <  FDatLinks[0].PosDestExts := '*';
29 <  FDatLinks[1].SrcOffset := $98;
30 <  FDatLinks[1].DestID := -1;
31 <  FDatLinks[1].PosDestExts := 'TXMP';
32 < end;
19 >  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
20  
21 + { TFile_TXMP }
22  
23   procedure TFile_TXMP.InitDataFields;
24   var
# Line 118 | Line 106 | begin
106   end;
107  
108  
109 + procedure TFile_TXMP.InitDatLinks;
110 + begin
111 +  SetLength(FDatLinks, 2);
112 +  FDatLinks[0].SrcOffset := $94;
113 +  FDatLinks[0].DestID := GetDatLinkValue(FFile, $94);
114 +  FDatLinks[0].PosDestExts := '*';
115 +  FDatLinks[1].SrcOffset := $98;
116 +  FDatLinks[1].DestID := GetDatLinkValue(FFile, $98);
117 +  FDatLinks[1].PosDestExts := 'TXMP';
118 + end;
119 +
120 +
121   procedure TFile_TXMP.InitRawList;
122   var
123    link_pc:   Integer;

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)