ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/Tools/Preview.pas (file contents):
Revision 46 by alloc, Sat Dec 23 16:26:43 2006 UTC vs.
Revision 86 by alloc, Sun Jan 14 20:19:08 2007 UTC

#	Line 79 | Line 79 | var
79
80		begin
81		OniImage := TOniImage.Create;
82	<	OniImage.Load(fileid);
82	>	OniImage.Load(Connection, fileid);
83		Data := OniImage.GetAsBMP;
84		OniImage.Free;
85
#	Line 136 | Line 136 | var
136		link: LongWord;
137		i:    Byte;
138		begin
139	<	OniDataConnection.LoadDatFilePart(_fileid, $14, SizeOf(loop_speed), @loop_speed);
140	<	OniDataConnection.LoadDatFilePart(_fileid, $1C, SizeOf(linkcount), @linkcount);
139	>	Connection.LoadDatFilePart(_fileid, $14, SizeOf(loop_speed), @loop_speed);
140	>	Connection.LoadDatFilePart(_fileid, $1C, SizeOf(linkcount), @linkcount);
141		SetBitmapCount(linkcount);
142		for i := 0 to linkcount - 1 do
143		begin
144	<	OniDataConnection.LoadDatFilePart(_fileid, $20 + i * 4, SizeOf(link), @link);
144	>	Connection.LoadDatFilePart(_fileid, $20 + i * 4, SizeOf(link), @link);
145		link := link div 256;
146		if link = 0 then
147		link := _fileid - 1;
#	Line 179 | Line 179 | begin
179		Dec(actualimg)
180		else
181		actualimg := High(bitmaps);
182	<	Self.Caption := 'Preview ' + OniDataConnection.GetFileInfo(_fileid).FileName +
182	>	Self.Caption := 'Preview ' + Connection.GetFileInfo(_fileid).FileName +
183		' (' + IntToStr(actualimg + 1) + '/' + IntToStr(Length(bitmaps)) + ')';
184		DrawImage(actualimg);
185		end;
#	Line 191 | Line 191 | begin
191		Inc(actualimg)
192		else
193		actualimg := 0;
194	<	Self.Caption := 'Preview ' + OniDataConnection.GetFileInfo(_fileid).FileName +
194	>	Self.Caption := 'Preview ' + Connection.GetFileInfo(_fileid).FileName +
195		' (' + IntToStr(actualimg + 1) + '/' + IntToStr(Length(bitmaps)) + ')';
196		DrawImage(actualimg);
197		end;

Diff Legend

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