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