[lazarus] CVS changes

[Peter Dyson]

----- Original Message ----- 
From: Marc Weustink 

<snip>

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

hmmm... I'll update later on and do some diffs to see 
if I changed anything else.
It works ok here, I'll also try to get the win32 sorted in
the mwedit.

Peter