Cita:
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