[Lazarus] How to obtain the "real" color of a control @runtime?

[Mattias Gaertner]

On Mon, 22 Dec 2014 18:49:58 +0100
Bart <bartjunk64 at gmail.com> wrote:

> Hi,
> 
> I'm trying to obtain the "real" color of a control (TEdit) at runtime.
> The color at design time is set to clDefault ($20000000), but I need
> to get the RGB value (which in this case should be $FFFFFF, since with
> the current theme the default color of a TEdit on my OS is white).
> I need this s I can have another control paint in that same color on
> it's canvas.

What platform, Lazarus version, widgetset?

 
> ColorToRGB just gave me $0, whic is not what I'm looking for.

The background can be an image, gradient or whatever. So on some themes
this might be the correct result.

Mattias