Linhas coloridas numa Grid

Question

Tenho uma Grid vinculada a uma Query.Neste tem um campo de DIAS.H� como colocar a linha da Grid dependendo do valor do campo DIASUso delphi 7Obrigado...

Fabio.hc · Answer

Tente assim:Ex:[code:1:e7b351374f]procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; State: TGridDrawState);begin   if (Column.Field.FieldName = �DIAS�) then      begin      if Column.Field.Value = 3 then          begin         DBGrid1.Canvas.Brush.Color:= clAqua;         DBGrid1.Canvas.Font.Color:= clWindowText;         DBGrid1.Canvas.FillRect(Rect);         DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);         end;      end;end;[/code:1:e7b351374f]...

Jonnymarques · Answer

Cara funcionou que foi uma beleza.Mas tentei fazer a linha ficar toda colorida e n�o consegui.Tem alguma id�ia.Obrigado[quote:c9e0933250=�Fabio.HC�]Tente assim:Ex:[code:1:c9e0933250]procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; State: TGridDrawState);begin   if (Column.Field.FieldName = �DIAS�) then      begin      if Column.Field.Value = 3 then          begin         DBGrid1.Canvas.Brush.Color:= clAqua;         DBGrid1.Canvas.Font.Color:= clWindowText;         DBGrid1.Canvas.FillRect(Rect);         DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);         end;      end;end;[/code:1:c9e0933250][/quote:c9e0933250]...

Fabio.hc · Answer

Tente assim:Ex: [b:37cf5360de]DrawDataCell[/b:37cf5360de][code:1:37cf5360de]procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;  Field: TField; State: TGridDrawState);begin   if Query1DIAS.Value = 3 then      begin      DBGrid1.Canvas.Brush.Color:= clAqua;      DBGrid1.Canvas.Font.Color:= clWindowText;      DBGrid1.Canvas.FillRect(Rect);      DBGrid1.Canvas.TextOut(Rect.Left+2, Rect.Top+2, Field.Text);      end;end;[/code:1:37cf5360de]...

F�rum Linhas coloridas numa Grid #217906