Ignore:
Timestamp:
Jun 5, 2007, 12:07:29 AM (18 years ago)
Author:
alloc
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • oup/current/FileClasses/TXMP.pas

    r207 r209  
    44
    55uses
    6   TypeDefs, _FileTypes, _DataTypes;
     6  _FileTypes;
    77
    88type
    … …  
    1717
    1818uses
    19   ConnectionManager, Math, Classes;
     19  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
    2020
    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;
    33 
     21{ TFile_TXMP }
    3422
    3523procedure TFile_TXMP.InitDataFields;
    … …  
    119107
    120108
     109procedure TFile_TXMP.InitDatLinks;
     110begin
     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';
     118end;
     119
     120
    121121procedure TFile_TXMP.InitRawList;
    122122var
Note: See TracChangeset for help on using the changeset viewer.