Masked property not set correctly when assigning TIcon to TBitmap
Original Reporter info from Mantis: cobines
-
Reporter name:
Original Reporter info from Mantis: cobines
- Reporter name:
Description:
In procedure TRasterImage.Assign(Source: TPersistent);
FMasked is copied like this
FMasked := SrcImage.FMasked;
TCustomIcon does not have FMasked variable set to True, however it overrides GetMasked to always return True.
After assigning TIcon to for example TBitmap Masked is not True, because FMasked is copied, not GetMasked.
Proposed solution:
a) Set FMasked to True in TCustomIcon, delete GetMasked so that base functions just returns FMasked.
b) Change
FMasked := SrcImage.FMasked;
to
FMasked := SrcImage.Masked;
Mantis conversion info:
- Mantis ID: 19747
- OS: Windows XP
- OS Build: SP3
- Build: 31679
- Platform: Win32
- Version: 0.9.31 (SVN)
- Fixed in version: 0.9.31 (SVN)
- Fixed in revision: 32932 (#35770596)
- Target version: 0.99.0