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
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus