DbGrid campo quot;Redquot; ou Blue

Delphi

07/05/2004

Ai pessoal tudo bem......eu tenho uma Tabela em InterBase...com o campo chamado CONTROLE neste campo so vai ser armazenado o valor ´LIVRE ou OCUPADA´ ......Eu faço uma consulta sem problema.......eu quero saber como faço, que [b:c8085df23f]celula da DBGrid fique vermelha quando estive OCUPADA e azul quendo estive LIVRE[/b:c8085df23f]...

.....fico muito grato pela dica....sou inicante.... [ ]s....Jairo


Jairo-go

Jairo-go

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

07/05/2004

Tente assim:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   if (Column.Field.FieldName = ´CONTROLE´) then
      begin
      if Table1CONTROLE.Value = ´LIVRE´ then
         DBGrid1.Canvas.Brush.Color:= clBlue
      else
         DBGrid1.Canvas.Brush.Color:= clRed;
      DBGrid1.Canvas.FillRect(Rect);
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end;
end;



GOSTEI 0
Jairo-go

Jairo-go

07/05/2004

[b:875a072b9b]Valeu Fabio........pela dica .....estou muito grato....[ ]s....jairo[/b:875a072b9b]


GOSTEI 0
POSTAR