[lazarus] CVS changes

[Marc Weustink]

+ From: Peter Dyson [mailto:peter at skel.demon.co.uk]

+ did you change the last line in function 
+ ColorToRGB(Color: TColor): Longint;
+ from
+ Result := Color and $FFFFFF;
+ to
+ Result := Result and $FFFFFF;

Yes.
  if Color < 0
  then Result := GetSysColor(Color and $000000FF)
  else Result := Color;
  Result := Result and $FFFFFF; 

marc