[Lazarus] How to obtain the color of a component?

Felipe Monteiro de Carvalho felipemonteiro.carvalho at gmail.com
Fri Oct 21 10:21:47 CEST 2011

On Fri, Oct 21, 2011 at 10:14 AM, Paul Ishenin <ip at kmiac.ru> wrote:
> How ParentColor property will work in this case?

I think that it would work like this:

function TWinControl.GetColor: TColor
  if ParentColor and (Parent <> nil) then Result := Parent.Color
  else Result := FColor;

Felipe Monteiro de Carvalho

More information about the Lazarus mailing list