dbgrid em vermelho

07/12/2003

1

bom dia a todo do clube.

olha só pessoal

eu tenho um programa de contro de estoque.
eu tenho um dbgrid com os produtos cadastrados algum estão negativo.
como eu faço para deixar a linha em vermelho no produtos que esntão negativos?


Responder

Posts

07/12/2003

Fabio.hc

Tente assim:
-Dbgrid.
procedure TForm1.dbgDadosDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   if dmC.qryEstoqSALDO.Value < 0 then 
      begin
      dbgDados.Canvas.Font.Color:=clRed;
      dbgDados.DefaultDrawDataCell(Rect, dbgDados.Columns[datacol].Field, State);
      end
   else
      begin
      dbgDados.Canvas.Font.Color:=clWindowText;
      dbgDados.DefaultDrawDataCell(Rect, dbgDados.Columns[datacol].Field, State);
      end;
end;


- QuickReport.
procedure TFrmRelEstoq.QRGroup1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   if dmC.qryEstoqSALDO.Value < 0 then
      QRGroup1.Font.Color:=clRed
   else
      QRGroup1.Font.Color:=clBlack;
end;



Responder