Index: oup/current/Tools/TxmpReplace.dfm
===================================================================
--- oup/current/Tools/TxmpReplace.dfm	(revision 194)
+++ oup/current/Tools/TxmpReplace.dfm	(revision 195)
@@ -136,4 +136,5 @@
       Height = 17
       Caption = 'Transparency'
+      Enabled = False
       TabOrder = 1
     end
Index: oup/current/Tools/TxmpReplace.pas
===================================================================
--- oup/current/Tools/TxmpReplace.pas	(revision 194)
+++ oup/current/Tools/TxmpReplace.pas	(revision 195)
@@ -165,7 +165,8 @@
     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;