[lazarus] CVS changes

Peter Dyson peter at skel.demon.co.uk
Wed Mar 8 21:40:58 EST 2000



>
> Added changes from Peter Dyson <peter at skel.demon.co.uk>
> - a new GetSysColor
> - some improvements on ExTextOut
>
> Known problems:
>    On the new editor the backcolor turnst into black. For some reason
>    the clWindow color isn't read.
>
> Marc
>
did you change the last line in function ColorToRGB(Color: TColor): Longint;
from
Result := Color and $FFFFFF;
to
Result := Result and $FFFFFF;

This would cause the problem you are seeing, $80000005  And $FFFFFF = 5
which is just about black and not white as $80000005  is by default

Peter






More information about the Lazarus mailing list