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 224 by alloc, Mon Jun 18 14:49:24 2007 UTC vs.
Revision 255 by alloc, Tue Dec 18 20:48:24 2007 UTC

# Line 5 | Line 5 | interface
5   uses
6    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7    Dialogs, _TemplateFileList, Menus, StdCtrls, Buttons, ComCtrls, ExtCtrls,
8 <  OniImgClass, TypeDefs;
8 >  OniImgClass, TypeDefs, VirtualTrees;
9  
10   type
11    TForm_TxmpReplace = class(TForm_TemplateFileList)
# Line 13 | Line 13 | type
13      btn_replace: TButton;
14      check_transparency: TCheckBox;
15      check_fading: TCheckBox;
16 <    GroupBox1: TGroupBox;
16 >    group_txmp: TGroupBox;
17      Splitter1: TSplitter;
18      group_bmpselect: TGroupBox;
19      image_bmppreview: TImage;
# Line 176 | Line 176 | begin
176      newsize := mem.Size;
177      mem.Seek(0, soFromBeginning);
178  
179 <    if (newsize > old_size) and (ConManager.Connection[ConnectionID].Backend = DB_ONI) then
179 >    if (newsize > old_size) and (ConManager.Connection[ConnectionID].Backend in [DB_ONI, DB_ONISPLIT]) then
180        new_rawaddr := ConManager.Connection[ConnectionID].AppendRawFile(
181          not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN), mem)
182      else
# Line 189 | Line 189 | begin
189        oldfading := oldfading or $01
190      else
191        oldfading := oldfading and (not Byte($01));
192 <    ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @datbyte);
192 >    ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @oldfading);
193      datbyte := $10;
194   //    if check_transparency.Checked then
195   //      datbyte := datbyte or $04;

Diff Legend

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