Ayuda para sobreescribir property
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...
|