Changeset 244 for oup/current/Global

Timestamp:

Aug 17, 2007, 11:09:51 PM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Global/OniImgClass.pas (modified) (2 diffs)

oup/current/Global/OniImgClass.pas

@@ -414 +414 @@
     images[i] := TOniImage.Create;
     images[i].LoadFromTXMP(ConnectionID, link);
-    SetLength(FImages, 1);
-    NewImage(width, height, ifA1R5G5B5, FImages[0]);
-  end;
+  end;
+  SetLength(FImages, 1);
+  NewImage(width, height, images[0].Format {ifA1R5G5B5}, FImages[0]);
   for y := 0 to rows - 1 do
   begin
@@ -426 +426 @@
       for i := 0 to x do
         if i < x then
-          x_start := x_start + images[i].Image[0].Width;
+          x_start := x_start + images[i].Image[1].Width;
       for i := 0 to y do
         if i < y then
-          y_start := y_start + images[i].Image[0].Height;
-      CopyRect(images[imgid].Image[0], 0, 0, images[imgid].Image[0].Width,
-          images[imgid].Image[0].Height, FImages[0], x_start, y_start);
+          y_start := y_start + images[i].Image[1].Height; 
+      CopyRect(images[imgid].Image[1], 0, 0, images[imgid].Image[1].Width,
+          images[imgid].Image[1].Height, FImages[0], x_start, y_start);
     end;
   end;