Fórum DbGrid campo quot;Redquot; ou Blue #230802

07/05/2004

0

Delphi

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

Responder

Posts

07/05/2004

Fabio.hc

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;



Responder

Gostei + 0

08/05/2004

Jairo-go

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar