--- oup/current/Tools/TxmpReplace.pas	2007/06/18 14:49:24	224
+++ oup/current/Tools/TxmpReplace.pas	2007/12/18 20:48:24	255
@@ -5,7 +5,7 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, _TemplateFileList, Menus, StdCtrls, Buttons, ComCtrls, ExtCtrls,
-  OniImgClass, TypeDefs;
+  OniImgClass, TypeDefs, VirtualTrees;
 
 type
   TForm_TxmpReplace = class(TForm_TemplateFileList)
@@ -13,7 +13,7 @@ type
     btn_replace: TButton;
     check_transparency: TCheckBox;
     check_fading: TCheckBox;
-    GroupBox1: TGroupBox;
+    group_txmp: TGroupBox;
     Splitter1: TSplitter;
     group_bmpselect: TGroupBox;
     image_bmppreview: TImage;
@@ -176,7 +176,7 @@ begin
     newsize := mem.Size;
     mem.Seek(0, soFromBeginning);
 
-    if (newsize > old_size) and (ConManager.Connection[ConnectionID].Backend = DB_ONI) then
+    if (newsize > old_size) and (ConManager.Connection[ConnectionID].Backend in [DB_ONI, DB_ONISPLIT]) then
       new_rawaddr := ConManager.Connection[ConnectionID].AppendRawFile(
         not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN), mem)
     else
@@ -189,7 +189,7 @@ begin
       oldfading := oldfading or $01
     else
       oldfading := oldfading and (not Byte($01));
-    ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @datbyte);
+    ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @oldfading);
     datbyte := $10;
 //    if check_transparency.Checked then
 //      datbyte := datbyte or $04;