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

Comparing:
oup/rewrite/Tools/Preview.pas (file contents), Revision 97 by alloc, Mon Jan 22 23:05:45 2007 UTC vs.
oup/current/Tools/Preview.pas (file contents), Revision 111 by alloc, Wed Feb 21 03:28:48 2007 UTC

# Line 83 | Line 83 | end;
83  
84   procedure TForm_Preview.LoadImage(fileid, index: Integer);
85   var
86 –  Data:      TByteData;
86    memstream: TMemoryStream;
87    OniImage:  TOniImage;
89 –
88   begin
89    OniImage := TOniImage.Create;
90    OniImage.Load(ConnectionID, fileid);
93 –  OniImage.GetAsBMP(Data);
94 –  OniImage.Free;
95 –
91    memstream := TMemoryStream.Create;
92 <  memstream.Write(Data[0], Length(Data));
93 <  memstream.Seek(0, soFromBeginning);
92 >  OniImage.GetAsBMP(TStream(memstream));
93 >  OniImage.Free;
94    bitmaps[index].LoadFromStream(memstream);
95    memstream.Free;
96   end;
# Line 142 | Line 137 | end;
137   procedure TForm_Preview.PreviewTXAN;
138   var
139    loop_speed: Word;
140 <  linkcount: LongWord;
141 <  link: LongWord;
140 >  linkcount: Integer;
141 >  link: Integer;
142    i:    Byte;
143   begin
144    ConManager.Connection[ConnectionID].LoadDatFilePart(_fileid, $14, SizeOf(loop_speed), @loop_speed);

Diff Legend

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