ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Global/OniImgClass.pas
(Generate patch)

Comparing oup/current/Global/OniImgClass.pas (file contents):
Revision 192 by alloc, Thu May 24 17:48:18 2007 UTC vs.
Revision 193 by alloc, Sat May 26 14:24:55 2007 UTC

# Line 55 | Line 55 | var
55    rect: TRect;
56   begin
57    InitImage(singleimg);
58 <  CloneImage(FImages[Index], singleimg);
58 >  CloneImage(FImages[Index-1], singleimg);
59    ConvertImage(singleimg, ifX8R8G8B8);
60    rect.Left := 0;
61    rect.Top := 0;
# Line 423 | Line 423 | begin
423      ConManager.Connection[ConnectionID].LoadRawFile(fileid, $9C, TStream(data))
424    else
425      ConManager.Connection[ConnectionID].LoadRawFile(fileid, $A0, TStream(data));
426 +
427 + //  data.Seek(0, soFromBeginning);
428 + //  data.SaveToFile('m:\test.txmp');
429 +
430    data.Seek(0, soFromBeginning);
431    result := LoadMultiImageFromStream(data, FImages);
432    data.Free;
433 <
433 > {
434 >  if result then
435 >  begin
436 >    for i := 0 to High(FImages) do
437 >    begin
438 >      data := TMemoryStream.Create;
439 >      data.Write(FImages[i].Bits^, FImages[i].Size);
440 >      data.Seek(0, soFromBeginning);
441 >      data.SaveToFile('m:\test.txmp.'+IntToStr(i));
442 >      data.Free;
443 >    end;
444 >  end;
445 > }
446    if not result then
447    begin
448      ShowMessage('Error while loading file' + #13#10 + DetermineStreamFormat(data));

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)