dbgrid em vermelho
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?
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?
Anjomd
Curtidas 0
Respostas
Fabio.hc
07/12/2003
Tente assim:
-Dbgrid.
- QuickReport.
-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;
GOSTEI 0