| # | 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) |