# | Line 617 | Line 617 | begin | |
---|---|---|
617 | y := y div 2; | |
618 | size := size + (x * y * bpp) div 8; | |
619 | until (x = minside) or (y = minside); | |
620 | + | if FStoreType = 9 then |
621 | + | begin |
622 | + | repeat |
623 | + | x := x div 2; |
624 | + | y := y div 2; |
625 | + | size := size + (x * y * 16) div 8; |
626 | + | until (x = 1) or (y = 1); |
627 | + | end; |
628 | end; | |
629 | Result := size; | |
630 | end; |
– | Removed lines |
+ | Added lines |
< | Changed lines (old) |
> | Changed lines (new) |