Imprimir letras de distintos colores con libreria printer

[krewer]

Empezado por ecfisa

Hola krewer.

No se a que partes de la salida de tu código deseas agregarle colores, pero supongamos que deseas poner en color rojo la siguiente línea:

Código Delphi [-]
Printer.Canvas.TextOut(20,Linha,'Horario');

Basta con que hagas:

Código Delphi [-]
   Printer.Canvas.Font.Color := clRed;
   Printer.Canvas.TextOut(20, Linha, 'Horario');

Otro ejemplo, si deseas la letra 'H' en color rojo y el resto ('orario') en color azul, harías:

Código Delphi [-]
  Printer.Canvas.Font.Color:= clRed;
  Printer.Canvas.TextOut(20, Linha, 'H');
  Printer.Canvas.Font.Color := clBlue;
  Printer.Canvas.TextOut(20 + Printer.Canvas.TextWidth('H'), Linha, 'orario');

Saludos

Muchas gracias

Pero en si a la parte del codigo que quiero colocarle colores independiente es a esta

Código Delphi [-]
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d1').AsString);
Coluna:= Coluna + (Tamanho * 3);

Hice como me indicaste, pero por ejemplo si coloco esto asi

Código Delphi [-]
printer.Canvas.Font.Color:=clRed;
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d1').AsString);
Coluna:= Coluna + (Tamanho * 3);

Me cambia todas las letras a rojo y no solo esa