[Lazarus] Problem with revision 28344

[Paul Ishenin]

29.11.2010 13:58, tim launchbury wrote:
>
> I have done some more investigation on this.
>
> The offending section of code is the following
>
> Begin {GetColor}<=== it stops here with runtime error 202
> Result := Inherited Color;
> End; {GetColor}
>
>
> Procedure TTrackPlan.SetColor(Value: TColor);
> Begin {SetColor}
> If Color<>  Value
> Then
> Begin
> inherited Color := Value;
>
> If Value = clBlack
> Then Font.Color := clWhite
> Else Font.Color := clBlack;
>
> //all objects
> Invalidate;
> End;
> End; {SetColor}

Please show the TTrackPlan declaration. From what class it inherits from 
and how are GetColor, SetColor and property color are declared.

Best regards,
Paul Ishenin