Changeset 54 for oup/current/Tools

Timestamp:

Dec 25, 2006, 4:04:47 AM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current/Tools

Files:

• Template.dfm (modified) (1 diff)
• Template.pas (modified) (1 diff)
• TxmpReplace.pas (modified) (5 diffs)

oup/current/Tools/Template.dfm

@@ -49 +49 @@
       PopupMenu = filepopup
       TabOrder = 0
+      OnClick = listClick
       OnMouseDown = listMouseDown
     end

oup/current/Tools/Template.pas

@@ -278 +278 @@
   pt.X := x;
   pt.Y := y;
-  filelist.ItemIndex := filelist.ItemAtPos(pt, true);
-  Self.listClick(Self);
+//  filelist.ItemIndex := filelist.ItemAtPos(pt, true);
+//  Self.listClick(Self);
 end;
 

oup/current/Tools/TxmpReplace.pas

@@ -31 +31 @@
     OniImage_Old: TOniImage;
     OniImage_New: TOniImage;
+    old_size: Integer;
     fileid: Integer;
   public
@@ -58 +59 @@
 
   OniImage_Old.LoadFromTXMP(fileid);
+  old_size := OniImage_Old.GetImageDataSize((fadingbyte and $01) > 0);
   Data := OniImage_Old.GetAsBMP;
   mem  := TMemoryStream.Create;
@@ -92 +94 @@
 procedure TForm_TxmpReplace.btn_replaceClick(Sender: TObject);
 var
-  oldsize, newsize: LongWord;
+  newsize: LongWord;
   old_rawaddr, new_rawaddr: LongWord;
   oldfading: Byte;
@@ -121 +123 @@
     end;
 
-    oldsize := OniImage_Old.GetImageDataSize((oldfading and $01) > 0);
-
     if check_fading.Checked then
       if not OniImage_New.GetMipMappedImage(tempd) then
@@ -137 +137 @@
 
     newsize := OniImage_New.GetImageDataSize(check_fading.Checked);
-    ShowMessage(IntToStr(newsize));
-
-    if (newsize > oldsize) and (OniDataConnection.Backend = ODB_Dat) then
+
+    if (newsize > old_size) and (OniDataConnection.Backend = ODB_Dat) then
       new_rawaddr := OniDataConnection.AppendRawFile(
         OniDataConnection.OSisMac, Length(tempd), tempd)