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 113 by alloc, Sun Feb 25 17:20:22 2007 UTC vs.
Revision 118 by alloc, Fri Mar 23 00:58:09 2007 UTC

# Line 19 | Line 19 | type
19  
20      function ResizeImage(oldx, oldy: Integer; img: TByteData): TByteData;
21      procedure RevertImage;
22 –    procedure DecodeImage;
22      procedure DecompressImage;
23    protected
24    public
# Line 38 | Line 37 | type
37      function LoadFromTXMB(ConnectionID, FileID: Integer): Boolean;
38      function GetImageDataSize(fading: Boolean): Integer;
39  
40 +    procedure DecodeImageTo32bit;
41 +
42      procedure GetAsData(var Target: TStream); overload;
43      procedure GetAsData(var Target: TByteData); overload;
44      procedure GetAs32bit(var Target: TStream); overload;
# Line 131 | Line 132 | end;
132  
133  
134  
135 < procedure TOniImage.DecodeImage;
135 > procedure TOniImage.DecodeImageTo32bit;
136   var
137    x, y:  Integer;
138    tempd: TByteData;
# Line 370 | Line 371 | begin
371    end;
372    txmpimg := TOniImage.Create;
373    txmpimg.LoadFromTXMP(ConnectionID, PSpc.TXMP);
374 <  txmpimg.DecodeImage;
374 >  txmpimg.DecodeImageTo32bit;
375   //  txmpimg.WriteToBMP('C:\file.bmp');
376    txmpimg.GetAs32bit(txmpdata);
377   {    ShowMessage(IntToStr(txmpimg.Width)+'x'+IntToStr(txmpimg.Height));
# Line 535 | Line 536 | begin
536      link := link div 256;
537      images_decoded[i] := TOniImage.Create;
538      images_decoded[i].LoadFromTXMP(ConnectionID, link);
539 <    images_decoded[i].DecodeImage;
539 >    images_decoded[i].DecodeImageTo32bit;
540      images_decoded[i].RevertImage;
541    end;
542    SetLength(Self.FData, Self.FWidth * Self.FHeight * 4);
# Line 603 | Line 604 | begin
604  
605    x    := Self.FWidth;
606    y    := Self.FHeight;
607 <  size := x * y * bpp div 8;
607 >  size := (x * y * bpp) div 8;
608    if fading then
609    begin
610      repeat
611        x    := x div 2;
612        y    := y div 2;
613 <      size := size + x * y * bpp div 8;
613 >      size := (size + x * y * bpp) div 8;
614      until (x = 1) or (y = 1);
615    end;
616    Result := size;
# Line 654 | Line 655 | end;
655   procedure TOniImage.GetAs32bit(var Target: TStream);
656   begin
657    if not (DT_Decoded32 in Self.FDataType) then
658 <    Self.DecodeImage;
658 >    Self.DecodeImageTo32bit;
659    if not Assigned(Target) then
660      Target := TMemoryStream.Create;
661    Target.Write(FData[0], Length(FData));
# Line 683 | Line 684 | var
684    i, x, y: Integer;
685   begin
686    if not (DT_Decoded32 in Self.FDataType) then
687 <    Self.DecodeImage;
687 >    Self.DecodeImageTo32bit;
688  
689    SetLength(Target, Self.FWidth * Self.FHeight * 3 + 54);
690    for y := 0 to Self.FHeight - 1 do

Diff Legend

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