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