delphi - poner - Simple TListView OwnerDraw Tamaño de fuente de texto y color de ejemplo?

tamaño de letra html

Question

Estoy intentando que el propietario dibuje un control de Vista de lista en modo de informe con 4 columnas, usando OnCustomDrawItem .

Cuando trato de cambiar Canvas.font.color, y eso es todo lo que hago, no tengo problemas.

Si configuro canvas.font.size, me parece que no hay cambios en el tamaño del texto dibujado por el control.

Si trato de encargarme de la pintura del texto, desde dentro de CustomDrawItem, encuentro que no puedo. Soy consciente de cómo usar OnCustomDraw para dibujar en el área de fondo, pero quiero dibujar un ARTÍCULO de vista de lista, de modo que pueda establecer el color y el nombre de la fuente y el tamaño de la fuente del texto.

Sé que hay algunos problemas con el uso de Canvas en el contexto del sorteo del propietario de ListView y algunas limitaciones de lo que puede hacer en un ListView.

procedure TForm1.MyListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
Sender.Canvas.Font.Size := 13; // NO effect.
Sender.Canvas.Font.Color := clRed; // WORKS.
Sender.Canvas.Font.Style :=Sender.Canvas.Font.Style + [fsBold]; // WORKS!
end;

Answer 1

Experimenté un problema similar en TDBGrid.

Intente llamar a Canvas.Refresh después de reasignar las propiedades Canvas.Font.