DBGrid

22/05/2003

1

: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 ???


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;


Responder