[Lazarus] Problem with revision 28344

[tim launchbury]

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}


If the inherited Color := Value; line is commented out then the
runtime error does not occur, but the main menu is shown greyed out but
still operational.

It is running on mandriva linux 2010.1 and the error occurs with fpc
2.4.2 and 2.5.1.
It is running kernel 2.6.33.7-desktop586-2mnb with pentium 4 2.8GHz.

The application is one that I have ported from delphi and tha above code
is unchanged from the delphi version; it worked correctly prior to
revision 28344

Regards

Tim