Cita:
Empezado por ecfisa
Hola de nuevo.
No lo has visto seguramente por que en la mayoría de los casos no se utiliza, ya que como te dije antes es implícito (aunque no es incorrecto usarlo).
Código Delphi [-]procedure TComponentePrueba.SetFont(Value: TFont); begin try Canvas.Font.Assign(Value); // Self (implícito) es TComponentePrueba except end; end;
Un saludo.
|
Gracias por la aclaración, de todas formas el componente debe dibujar en el Canvas, originalmente provenía de
TCustomControl, lo ha intentado adaptar a un
TGraphicControl, pero me dice que no encuentra la propiedad
DoubleBuffered (que debe ser para evitar el parpadeo), con lo que lo he dejado como estaba
Código Delphi
[-]
TComponentePrueba = class(TCustomControl)
¿Que diferencia hay entre asignar la fuente al canvas o al componente?
Código Delphi
[-]
procedure TComponentePrueba.SetFont(Value: TFont);
begin
FFont := Value; ( en el original esto no viene, pero FFont : TFont si)
try
Self.Canvas.Font.Assign(Value);
except
end;
end;