Voy a revisarlo todo, te pasare de la forma mas clara todo lo que he ido haciendo, a ver si con tu ayuda lo consigo.

Solo me lo hace en la primera línea que inserto en el albarán, si inserto otra el color de la fuente se vuelve al negro predefinido (lo normal), si ese mismo albarán lo abro más tarde no hace nada raro, es simplemente cuando inserto la primera línea.

Hola Minio, también a todos los del club.

Minio, veo en tu código que haces varías condicionales con if ... then. Podría apostar a que puede ser que el primer registro no cumple con ninguna de las condiciones evaluadas y por consecuencia el registro se pinte en algun color predeterminado en alguna parte..

Intenta insertar forzar la letra a color negro en la primera línea de código.

Código Delphi [-]
Grid.Canvas.Font.Color := clBlack;
..... // continuación del código que tienes.

Saludos.

Acabo de volver de un curro, voy a probar lo que me comentáis.

No me ha funcionado sigue pasando los mismo, voy ver como dice Neftali, ir probando partes de código a ver donde falla.

Intenta bloquear el canvas.

Código Delphi [-]
LockCanvas;

Creo que así se llama el procedimiento.

Saludos.

Esto es lo que he probado y nada, no hay manera.

Código Delphi [-]
DBGDatos.Canvas.Lock;

Deeeeeuuuu, conseguido..., gracias a los dos por fin. D&W acertaste con tu primera propuesta. Antes lo probá al final del evento y ahora lo puse al inicio y conseguido, ya no hace ese efecto.

Código Delphi [-]
DBGDatos.Canvas.Font.Color := clBlack;

Muchiiiiiiiiissssimas gracias, sois unos cracks

Ya decía yo, me parecía raro que no te haya funcionado.
Nos ofendes si nos dices crackers, será hackers. :cool:

Jajajajaj, no tio , no me referia a hackers ni cracker, sino que sois unos "cracks" (unas maquinas, unos fenómenos, muy buenos, etc...). Es diferente.

Bueno de nuevo muchas gracias.

Ah pues que bien que lo especificas porque ya estaba pensando en esto :eek::cool::D:D:D

Salud OS