Changeset 92 for oup/current/Tools/TxmpReplace.pas

Timestamp:

Jan 16, 2007, 12:35:04 AM (18 years ago)

Author:

alloc

Message:

Rev86 was first after multi-cons

File:

• oup/current/Tools/TxmpReplace.pas (modified) (4 diffs)

oup/current/Tools/TxmpReplace.pas

@@ -52 +52 @@
 begin
   fileid := fileinfo.ID;
-  OniDataConnection.LoadDatFilePart(fileid, $88, SizeOf(fadingbyte), @fadingbyte);
-  OniDataConnection.LoadDatFilePart(fileid, $89, SizeOf(depthbyte), @depthbyte);
-  OniDataConnection.LoadDatFilePart(fileid, $90, SizeOf(storebyte), @storebyte);
+  Connection.LoadDatFilePart(fileid, $88, SizeOf(fadingbyte), @fadingbyte);
+  Connection.LoadDatFilePart(fileid, $89, SizeOf(depthbyte), @depthbyte);
+  Connection.LoadDatFilePart(fileid, $90, SizeOf(storebyte), @storebyte);
   check_fading.Checked := (fadingbyte and $01) > 0;
   check_transparency.Checked := (depthbyte and $04) > 0;
@@ -103 +103 @@
   if filelist.ItemIndex >= 0 then
   begin
-    OniDataConnection.LoadDatFilePart(fileid, $88, 1, @oldfading);
-    if OniDataConnection.OSisMac then
-      OniDataConnection.UpdateDatFilePart(fileid, $A0, 4, @old_rawaddr)
+    Connection.LoadDatFilePart(fileid, $88, 1, @oldfading);
+    if Connection.OSisMac then
+      Connection.UpdateDatFilePart(fileid, $A0, 4, @old_rawaddr)
     else
-      OniDataConnection.LoadDatFilePart(fileid, $9C, 4, @old_rawaddr);
+      Connection.LoadDatFilePart(fileid, $9C, 4, @old_rawaddr);
 
     if (OniImage_Old.Width <> OniImage_New.Width) or
@@ -138 +138 @@
     newsize := OniImage_New.GetImageDataSize(check_fading.Checked);
 
-    if (newsize > old_size) and (OniDataConnection.Backend = ODB_Dat) then
-      new_rawaddr := OniDataConnection.AppendRawFile(
-        OniDataConnection.OSisMac, Length(tempd), tempd)
+    if (newsize > old_size) and (Connection.Backend = ODB_Dat) then
+      new_rawaddr := Connection.AppendRawFile(
+        Connection.OSisMac, Length(tempd), tempd)
     else
     begin
       new_rawaddr := old_rawaddr;
-      OniDataConnection.UpdateRawFile(fileid, $9C, Length(tempd), tempd);
+      Connection.UpdateRawFile(fileid, $9C, Length(tempd), tempd);
     end;
 
@@ -150 +150 @@
     if check_fading.Checked then
       datbyte := datbyte or $01;
-    OniDataConnection.UpdateDatFilePart(fileid, $88, 1, @datbyte);
+    Connection.UpdateDatFilePart(fileid, $88, 1, @datbyte);
     datbyte := $10;
     if check_transparency.Checked then
       datbyte := datbyte or $04;
-    OniDataConnection.UpdateDatFilePart(fileid, $89, 1, @datbyte);
-    OniDataConnection.UpdateDatFilePart(fileid, $8C, 2, @OniImage_New.Width);
-    OniDataConnection.UpdateDatFilePart(fileid, $8E, 2, @OniImage_New.Height);
+    Connection.UpdateDatFilePart(fileid, $89, 1, @datbyte);
+    Connection.UpdateDatFilePart(fileid, $8C, 2, @OniImage_New.Width);
+    Connection.UpdateDatFilePart(fileid, $8E, 2, @OniImage_New.Height);
     datbyte := $08;
-    OniDataConnection.UpdateDatFilePart(fileid, $90, 1, @datbyte);
-    if OniDataConnection.OSisMac then
-      OniDataConnection.UpdateDatFilePart(fileid, $A0, 4, @new_rawaddr)
+    Connection.UpdateDatFilePart(fileid, $90, 1, @datbyte);
+    if Connection.OSisMac then
+      Connection.UpdateDatFilePart(fileid, $A0, 4, @new_rawaddr)
     else
-      OniDataConnection.UpdateDatFilePart(fileid, $9C, 4, @new_rawaddr);
+      Connection.UpdateDatFilePart(fileid, $9C, 4, @new_rawaddr);
 
     ShowMessage('TXMP-image replaced');