[Lazarus] Problem with revision 28344

Paul Ishenin ip at kmiac.ru
Mon Nov 29 08:18:05 CET 2010

29.11.2010 13:58, tim launchbury wrote:

> Procedure TTrackPlan.SetColor(Value: TColor);
> Begin {SetColor}
> If Color<>  Value
> Then
> Begin
> inherited Color := Value;

Btw, the error is in this line ^

Replace it with: "inherited SetColor(Value);".

And the bug is in your code, not in LCL. You probably did not notice 
because TTrackPlan constructor has something like Color := clBtnFace?

Best regards,
Paul Ishenin

More information about the Lazarus mailing list