Changeset 255 for oup/current/Tools

Timestamp:

Dec 18, 2007, 9:48:24 PM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current/Tools

Files:

• TxmpReplace.dfm (modified) (7 diffs)
• TxmpReplace.pas (modified) (2 diffs)

oup/current/Tools/TxmpReplace.dfm

@@ -8 +8 @@
   inherited panel_basecontent: TPanel
     Height = 413
-    ExplicitHeight = 548
+    ExplicitHeight = 413
     inherited splitter_content: TSplitter
       Height = 413
@@ -16 +16 @@
     inherited panel_files: TPanel
       Height = 413
-      ExplicitHeight = 548
+      ExplicitHeight = 413
       inherited FilePages: TPageControl
         Height = 412
         Constraints.MinHeight = 250
-        ExplicitHeight = 547
+        ExplicitHeight = 412
         inherited tab_files: TTabSheet
-          ExplicitHeight = 467
+          ExplicitHeight = 384
           inherited filelist: TListBox
             Height = 259
-            ExplicitHeight = 342
+            ExplicitHeight = 259
           end
         end
@@ -32 +32 @@
           ExplicitTop = 24
           ExplicitWidth = 190
-          ExplicitHeight = 519
+          ExplicitHeight = 384
           inherited filelist_meta: TVirtualStringTree
             Height = 384
-            ExplicitHeight = 519
+            ExplicitHeight = 384
           end
         end
@@ -42 +42 @@
     inherited panel_content: TPanel
       Height = 413
-      ExplicitHeight = 548
+      ExplicitHeight = 413
       object Splitter1: TSplitter
         Left = 0
@@ -65 +65 @@
         Enabled = False
         TabOrder = 0
-        ExplicitTop = 469
         object btn_replace: TButton
           Left = 4
@@ -120 +119 @@
           BevelOuter = bvNone
           TabOrder = 0
-          ExplicitTop = 188
           object btn_save: TButton
             Left = 2
@@ -141 +139 @@
         Enabled = False
         TabOrder = 2
-        ExplicitLeft = -2
-        ExplicitTop = 206
         object image_bmppreview: TImage
           AlignWithMargins = True

oup/current/Tools/TxmpReplace.pas

@@ -177 +177 @@
     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)
@@ -190 +190 @@
     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