Changeset 127 for oup/current/Global

Timestamp:

Mar 23, 2007, 6:14:40 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current/Global

Files:

• OniImgClass.pas (modified) (1 diff)
• RawList.pas (modified) (1 diff)

oup/current/Global/OniImgClass.pas

@@ -618 +618 @@
       size := size + (x * y * bpp) div 8;
     until (x = minside) or (y = minside);
+    if FStoreType = 9 then
+    begin
+      repeat
+        x    := x div 2;
+        y    := y div 2;
+        size := size + (x * y * 16) div 8;
+      until (x = 1) or (y = 1);
+    end;
   end;
   Result := size;

oup/current/Global/RawList.pas

@@ -345 +345 @@
       datasize := datasize + (x * y * bpp) div 8;
     until (x = minside) or (y = minside);
+    if storetype = 9 then
+    begin
+      repeat
+        x    := x div 2;
+        y    := y div 2;
+        datasize := datasize + (x * y * 16) div 8;
+      until (x = 1) or (y = 1);
+    end;
   end;