DBGrid
22/05/2003
0
:wink: Como faço para mostrar no DBgrid um valor negativo com outro tipo de cor ?
Por exemplo : Tenho 25 pordutos no Estoque e a venda de hoje fechu 22 e tenho uma quantidade minima de 5.
Como faria para mostrar esse produto em cores diferentes das dos demais ?
Estoque | Qtd_minina
25 | 5
Como faria para mostrar o Cinco em vermelho ???
Por exemplo : Tenho 25 pordutos no Estoque e a venda de hoje fechu 22 e tenho uma quantidade minima de 5.
Como faria para mostrar esse produto em cores diferentes das dos demais ?
Estoque | Qtd_minina
25 | 5
Como faria para mostrar o Cinco em vermelho ???
Wdirley
Curtir tópico
+ 0
Responder
Posts
22/05/2003
Okama
Evento OnDrawColumnCell
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with DBGrid1.Canvas do begin if Table1.FieldByName(´Quantidade´).AsInteger < 0 then Brush.Color := clRed else Brush.Color := clBlue; FillRect(Rect); TextOut (Rect.Left + 2, Rect.Top + 2, Column.Field.AsString); end; end;
Responder
10/11/2007
Zap40
procurando uma rotina , o dia inteirinho ,interesante procurei aqui no bau e implementei e bau bau já era blz...
precisava que o dbdgrid mostrase ´precocusto´ <= ´precovenda´
ou seja se preço venda for for menor resalta campo ..
Como tá virando etica colocar a soluçâovai ai embaixo embaixo,,,
procedure TfrmAcertaPreco.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with DBGrid1.Canvas do
begin
if tbDados.FieldByName(´precocusto´).AsInteger >= tbDados.FieldByName(´PRECOVENDA´).AsInteger then
Brush.Color := clRed
else
Brush.Color := clBlue;
FillRect(Rect);
TextOut (Rect.Left + 2, Rect.Top + 2, Column.Field.AsString);
end;
end;
precisava que o dbdgrid mostrase ´precocusto´ <= ´precovenda´
ou seja se preço venda for for menor resalta campo ..
Como tá virando etica colocar a soluçâovai ai embaixo embaixo,,,
procedure TfrmAcertaPreco.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with DBGrid1.Canvas do
begin
if tbDados.FieldByName(´precocusto´).AsInteger >= tbDados.FieldByName(´PRECOVENDA´).AsInteger then
Brush.Color := clRed
else
Brush.Color := clBlue;
FillRect(Rect);
TextOut (Rect.Left + 2, Rect.Top + 2, Column.Field.AsString);
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)