¿Por qué tengo que asignar la fuente de la Lona para cambiar el tamaño de la fuente en Delphi 2009?

Question

Tengo una subclase de TPanel que amo tan mucho y muy a mi pesar, la fuente no parece tomar cuando se hace esto:

font.size := AFontsize; 
font.style := AFontStyle; 
font.color := AFontColor; 

pero sí cambia cuando hago esto:

Canvas.Font.Assign(Font); 

No tuve que hacer eso en Delphi 7, pero parece que tengo que hacerlo en 2009. ¿Cuál es el problema?

Answer 1

Si pinta texto en el panel utilizando su lienzo, debe establecer la fuente de lienzo.

Algunos componentes y/o algunas versiones de Delphi pueden, ya sea intencionalmente o como efecto secundario de una tarea de pintura anterior, establecer Canvas.Font, pero no debe confiar en ello.

Por lo tanto, se recomienda hacer Canvas.Font := Font; antes de comenzar a pintar el texto.

Lo mismo se aplica a Canvas.Brush y Canvas.Pen.

type 
    TMyPanel = class(TCustomPanel) 
    protected 
    procedure Paint; override; 
    end; 

procedure TMyPanel.Paint; 
var 
    r: TRect; 
begin 
    r := ClientRect; 

    Canvas.Brush.Color := Color; 
    Canvas.FillRect(r); // fill the background 

    Canvas.Font := Font; 
    DrawText(Canvas.Handle, 'Sample Text', -1, r, DT_SINGLELINE or DT_CENTER or DT_VCENTER or DT_EXPANDTABS or DT_NOPREFIX); 
end;