Amigo del foro no comprendo que es el query1 que me pusistes
Muchisimas gracias por todo
Cita:
Empezado por JULIPO
Creo que esto te puede servir tienes que leer el dato que t interesa y asignarle el color que quieras.
Código Delphi [-]
procedure tdata.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
inherited;
if query1.Field[No].AsString[1] ='R' then
begin
DBGrid1.Canvas.Font.Color:=clBLACK;
dbgrid1.Canvas.Brush.Color:=clblue;
end
ELSE
BEGIN
if query1.Field[No].AsString[1] ='O' then
BEGIN
DBGRID1.Canvas.Font.Color:=CLWHITE;
DBGRID1.Canvas.Brush.Color:=CLgreen
END
END;
DBGrid1.DefaultDrawColumnCell
(Rect, DataCol, Column, State);
end;
tienes que hacer esto con cada columna No es el numero de field en tu tabla de paradox
Espero te sirva
|