[Lazarus] Problem with revision 28344

tim launchbury tim at tlaunchbury.ukfsn.org
Mon Nov 29 07:58:23 CET 2010

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
inherited Color := Value;

If Value = clBlack
Then Font.Color := clWhite
Else Font.Color := clBlack;

//all objects
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 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



More information about the Lazarus mailing list