--- oup/current/Tools/TxmpReplace.pas	2007/05/26 18:26:48	194
+++ oup/current/Tools/TxmpReplace.pas	2007/05/26 20:41:34	199
@@ -129,6 +129,7 @@ begin
     mem := TMemoryStream.Create;
 
     case OniImage_New.Format of
+      ifX1R5G5B5: new_storetype := 1;
       ifA1R5G5B5: new_storetype := 2;
       ifA4R4G4B4: new_storetype := 0;
       ifA8R8G8B8:
@@ -164,9 +165,10 @@ begin
       ConManager.Connection[ConnectionID].UpdateRawFile(fileid, $9C, mem);
     end;
 
-    datbyte := $00;
     if check_fading.Checked then
-      datbyte := datbyte or $01;
+      oldfading := oldfading or $01
+    else
+      oldfading := oldfading and (not Byte($01));
     ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @datbyte);
     datbyte := $10;
 //    if check_transparency.Checked then