Changeset 124 for oup/current/Global/OniImgClass.pas

Timestamp:

Mar 23, 2007, 4:07:58 AM (18 years ago)

Author:

alloc

Message:

 

File:

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

oup/current/Global/OniImgClass.pas

@@ -590 +590 @@
   x, y: Word;
   bpp:  Byte;
-begin
+  minside: Byte;
+begin
+  minside := 1;
   case Self.FStoreType of
     9:
-      bpp := 8;
+    begin
+      bpp := 4;
+      minside := 4;
+    end;
     0, 1, 2:
       bpp := 16;
@@ -612 +617 @@
       y    := y div 2;
       size := size + (x * y * bpp) div 8;
-    until (x = 1) or (y = 1);
+    until (x = minside) or (y = minside);
   end;
   Result := size;