Changeset 195 for oup/current/Tools

Timestamp:

May 26, 2007, 8:31:36 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current/Tools

Files:

• TxmpReplace.dfm (modified) (1 diff)
• TxmpReplace.pas (modified) (1 diff)

oup/current/Tools/TxmpReplace.dfm

@@ -136 +136 @@
       Height = 17
       Caption = 'Transparency'
+      Enabled = False
       TabOrder = 1
     end

oup/current/Tools/TxmpReplace.pas

@@ -165 +165 @@
     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;