[Egroc]

Hola:

Tengo un problema al que no consigo dar solución y no encuentro nada en el foro:

Estoy intentando crear una clase que deriva de la TCanvas de la librería graphics. El problema surge cuando quiero "reemplazar" la clase Pen y el Brush del TCanvas original por una implementación mia de dichas clases. En la clase TCanvas original está asi:

property Brush: TBrush read FBrush write SetBrush;
property Pen: TPen read FPen write SetPen;

Como el metodo read no es una función no sé como reemplazarla... He probado a redefinir las propiedades en mi clase, pero al lanzar la aplicación me va al TPen del padre. (Nota: estoy usando una llamada a un función donde recojo un TCanvas y llega un TCanvas o un TMiCanvas según el momento).

Gracias por la ayuda. No sé si lo que planteo es una tontería o es que soy muy nulo...