2015-05-22 4 views
0

как изменить последний цвет recb dbgrid?Изменить цвет строки DBGrid

if (Sender as TDBGrid).DataSource.DataSet.RecNo = (Sender as TDBGrid) 
    .DataSource.DataSet.RecordCount then 
begin 
    Canvas.Brush.Color := $00C66F71; 
end; 
(Sender as TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State); 

ответ

3

Использование OnDrawColumnCell свойство TDbGrid

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; 
    const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
    if (Sender as TDBGrid).DataSource.DataSet.RecNo = (Sender as TDBGrid).DataSource.DataSet.RecordCount then 
begin 
    //change color of row  
    DBGrid1.Canvas.Brush.Color:=$00C66F71; 
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end; 

Чтобы изменить цвет текста использования:

DBGrid1.Canvas.Font.Color:=clRed; 
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 

В коде

Canvas.Brush.Color:=$00C66F71; 

: Canvas от TForm, а не Canvas от TDbgrid

Смежные вопросы