ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/Preview.pas

Comparing oup/rewrite/Tools/Preview.pas (file contents):
Revision 97 by alloc, Mon Jan 22 23:05:45 2007 UTC vs.
Revision 101 by alloc, Tue Feb 20 20:43:29 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;

Diff Legend

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