Changeset 86 for oup/current/Tools/Preview.pas

Timestamp:

Jan 14, 2007, 9:19:08 PM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Tools/Preview.pas (modified) (4 diffs)

oup/current/Tools/Preview.pas

@@ -80 +80 @@
 begin
   OniImage := TOniImage.Create;
-  OniImage.Load(fileid);
+  OniImage.Load(Connection, fileid);
   Data := OniImage.GetAsBMP;
   OniImage.Free;
@@ -137 +137 @@
   i:    Byte;
 begin
-  OniDataConnection.LoadDatFilePart(_fileid, $14, SizeOf(loop_speed), @loop_speed);
-  OniDataConnection.LoadDatFilePart(_fileid, $1C, SizeOf(linkcount), @linkcount);
+  Connection.LoadDatFilePart(_fileid, $14, SizeOf(loop_speed), @loop_speed);
+  Connection.LoadDatFilePart(_fileid, $1C, SizeOf(linkcount), @linkcount);
   SetBitmapCount(linkcount);
   for i := 0 to linkcount - 1 do
   begin
-    OniDataConnection.LoadDatFilePart(_fileid, $20 + i * 4, SizeOf(link), @link);
+    Connection.LoadDatFilePart(_fileid, $20 + i * 4, SizeOf(link), @link);
     link := link div 256;
     if link = 0 then
@@ -180 +180 @@
   else
     actualimg := High(bitmaps);
-  Self.Caption := 'Preview ' + OniDataConnection.GetFileInfo(_fileid).FileName +
+  Self.Caption := 'Preview ' + Connection.GetFileInfo(_fileid).FileName +
     ' (' + IntToStr(actualimg + 1) + '/' + IntToStr(Length(bitmaps)) + ')';
   DrawImage(actualimg);
@@ -192 +192 @@
   else
     actualimg := 0;
-  Self.Caption := 'Preview ' + OniDataConnection.GetFileInfo(_fileid).FileName +
+  Self.Caption := 'Preview ' + Connection.GetFileInfo(_fileid).FileName +
     ' (' + IntToStr(actualimg + 1) + '/' + IntToStr(Length(bitmaps)) + ')';
   DrawImage(actualimg);