Changeset 193 for oup/current

Timestamp:

May 26, 2007, 4:24:55 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• DataAccess/DataAccess.pas (modified) (3 diffs)
• Global/OniImgClass.pas (modified) (2 diffs)
• Tools/Preview.pas (modified) (1 diff)
• Tools/TxmpReplace.pas (modified) (6 diffs)
• _exe/OniUnPacker.exe (modified) ( previous)

oup/current/DataAccess/DataAccess.pas

@@ -61 +61 @@
     function AppendRawFile(LocSep: Boolean; Src: TStream): Integer; overload; virtual;
     function AppendRawFile(LocSep: Boolean; Src: TByteData): Integer; overload;
-    function AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; overload;
+//    function AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; overload;
   published
   end;
@@ -277 +277 @@
   data.Free;
 end;
-
+{
 function TDataAccess.AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer;
 var
@@ -288 +288 @@
   data.Free;
 end;
-
+}
 
 

oup/current/Global/OniImgClass.pas

@@ -56 +56 @@
 begin
   InitImage(singleimg);
-  CloneImage(FImages[Index], singleimg);
+  CloneImage(FImages[Index-1], singleimg);
   ConvertImage(singleimg, ifX8R8G8B8);
   rect.Left := 0;
@@ -424 +424 @@
   else
     ConManager.Connection[ConnectionID].LoadRawFile(fileid, $A0, TStream(data));
+
+//  data.Seek(0, soFromBeginning);
+//  data.SaveToFile('m:\test.txmp');
+
   data.Seek(0, soFromBeginning);
   result := LoadMultiImageFromStream(data, FImages);
   data.Free;
-
+{
+  if result then
+  begin
+    for i := 0 to High(FImages) do
+    begin
+      data := TMemoryStream.Create;
+      data.Write(FImages[i].Bits^, FImages[i].Size);
+      data.Seek(0, soFromBeginning);
+      data.SaveToFile('m:\test.txmp.'+IntToStr(i));
+      data.Free;
+    end;
+  end;
+}
   if not result then
   begin

oup/current/Tools/Preview.pas

@@ -91 +91 @@
 procedure TForm_Preview.DrawImage(index: Integer);
 begin
-  bitmaps[index].DrawOnCanvas(img.Canvas, 0);
+  bitmaps[index].DrawOnCanvas(img.Canvas, 1);
 end;
 

oup/current/Tools/TxmpReplace.pas

@@ -57 +57 @@
   OniImage_Old.LoadFromTXMP(ConnectionID, fileid);
   old_size := OniImage_Old.GetImageSize(True);
-  OniImage_Old.DrawOnCanvas(image_txmppreview.Canvas, 0);
+  OniImage_Old.DrawOnCanvas(image_txmppreview.Canvas, 2);
 
   check_fading.Checked := OniImage_Old.HasMipMaps;
@@ -74 +74 @@
   begin
     OniImage_New.LoadFromFile(opend.FileName);
-    OniImage_New.DrawOnCanvas(image_bmppreview.Canvas, 0);
+    OniImage_New.DrawOnCanvas(image_bmppreview.Canvas, 1);
     group_options.Enabled := True;
   end;
@@ -89 +89 @@
   datbyte: Word;
   mem: TMemoryStream;
+  new_storetype: Byte;
 begin
   if filelist.ItemIndex >= 0 then
@@ -115 +116 @@
     mem := TMemoryStream.Create;
 
+    case OniImage_New.Format of
+      ifA1R5G5B5: new_storetype := 2;
+      ifA4R4G4B4: new_storetype := 0;
+      ifA8R8G8B8:
+        begin
+          new_storetype := 8;
+          OniImage_New.Format := ifX8R8G8B8;
+        end;
+      ifX8R8G8B8: new_storetype := 8;
+      ifDXT1: new_storetype := 9;
+    else
+      OniImage_New.Format := ifX8R8G8B8;
+      new_storetype := 8;
+    end;
+
     OniImage_New.SaveDataToStream(check_fading.Checked, TStream(mem));
 
@@ -122 +138 @@
     if (newsize > old_size) and (ConManager.Connection[ConnectionID].Backend = DB_ONI) then
       new_rawaddr := ConManager.Connection[ConnectionID].AppendRawFile(
-        not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN),
-        mem.Size, mem)
+        not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN), mem)
     else
     begin
@@ -142 +157 @@
     datbyte := OniImage_New.Height[1];
     ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $8E, 2, @datbyte);
-    case OniImage_New.Format of
-      ifA1R5G5B5: datbyte := 2;
-      ifA4R4G4B4: datbyte := 0;
-      ifA8R8G8B8:
-        begin
-          datbyte := 8;
-          OniImage_New.Format := ifX8R8G8B8;
-        end;
-      ifX8R8G8B8: datbyte := 8;
-      ifDXT1: datbyte := 9;
-    else
-      OniImage_New.Format := ifX8R8G8B8;
-      datbyte := 8;
-    end;
-    ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $90, 1, @datbyte);
+    ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $90, 1, @new_storetype);
     if not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN) then
       ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $A0, 4, @new_rawaddr)