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

Comparing oup/current/Tools/TxmpReplace.pas (file contents):
Revision 201 by alloc, Sat May 26 21:36:23 2007 UTC vs.
Revision 206 by alloc, Sun May 27 23:31:26 2007 UTC

# Line 41 | Line 41 | var
41  
42   implementation
43   {$R *.dfm}
44 < uses Main, ConnectionManager, ImagingTypes;
44 > uses Main, ConnectionManager, ImagingTypes, TXMP;
45  
46  
47  
48   procedure TForm_TxmpReplace.SelectFile(fileinfo: TFileInfo);
49   var
50 –  mem:  TMemoryStream;
50    fadingbyte, depthbyte, storebyte: Byte;
51   begin
52    fileid := fileinfo.ID;
# Line 79 | Line 78 | begin
78   end;
79  
80   procedure TForm_TxmpReplace.btn_loadClick(Sender: TObject);
82 – var
83 –  mem:   TMemoryStream;
81   begin
82    if opend.Execute then
83    begin
# Line 101 | Line 98 | var
98    datbyte: Word;
99    mem: TMemoryStream;
100    new_storetype: Byte;
104 –  formatinfo: TImageFormatInfo;
101    i: Integer;
102   const
103    powers: array[0..8] of Integer = (1, 2, 4, 8, 16, 32, 64, 128, 256);
# Line 228 | Line 224 | end;
224  
225  
226   procedure TForm_TxmpReplace.FormCreate(Sender: TObject);
227 + var
228 +  TXMP: TFile_TXMP;
229   begin
230    inherited;
231    OniImage_Old := TOniImage.Create;
# Line 235 | Line 233 | begin
233    Self.AllowedExts := 'TXMP';
234    Self.OnNewFileSelected := SelectFile;
235    opend.Filter := saved.Filter;
236 +
237 +  TXMP := TFile_TXMP.Create(ConnectionID, 8552);
238 +  TXMP.Free;
239   end;
240  
241  

Diff Legend

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