se que este tema se ha tratado en innumerable ocasiones pero he probado todos los ejemplos habidos y por haber y no logro encontrar una solucion
tengo una consulta donde jalo el color que quiero que se pinte en el grid de acuerdo a cierta caracteristica (predefinida en el query)m el asunto que el campo qryArticulosColor debe ser 0 o un dato (TColor) que puede ser diferente
la idea es pintar las lineas del grid de acuerdo a un color predeterminado (varios colores)
Código Delphi
[-]procedure TfrmCatalogoArticulo.dbgArticuloDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Chk : Integer;
begin
if qryArticulosColor.AsInteger <> 0 then
Begin
UnColor := qryArticulosColor.AsInteger;
dbgArticulo.Canvas.brush.Color := clUnColor;
dbgArticulo.Canvas.Font.Color := clBlack;
End
Else
Begin
dbgArticulo.Canvas.Font.Color := clBlack;
dbgArticulo.Canvas.brush.Color := clWhite;
End;
dbgArticulo.Canvas.FillRect(Rect);
end;
y obtengo como resultado esto :
si cambio algunos valores del campo "Color" me sale esto
si bien es cierto pinta toda la linea del color previamente escogido, el texto no esta en negro y lo que no esta asignado color tampoco aparece