dbgrid em vermelho
07/12/2003
0
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
Curtir tópico
+ 0
Responder
Posts
07/12/2003
Fabio.hc
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
