Как полужирная часть текста в dbgrid?

Question

Я использую Delphi XE2, есть ли способ установить жирный шрифт в части текста в DBGrid? Например, когда я что-то ищу, я хочу что-то вроде этого.

Можно ли это сделать?

Answer 1

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
    if (Column.Field.FieldName = 'Pay') then 
    begin 
    if Column.Field.AsString = 'yes' then 
    begin 
     dbgrid1.Canvas.Font.Color := clBlue; 
     dbgrid1.Canvas.Font.Style :=[fsBold]; 
     dbgrid1.Canvas.FillRect(Rect); 
     dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
    end 
    else 
    begin 
     dbgrid1.Canvas.Font.Color:= clRed; 
     dbgrid1.Canvas.FillRect(Rect); 
     dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
    end; 
    end; 
end; 

Answer 2

Для решения этой проблемы задайте значение свойства DefaultDrawing DBGrid равным False.

У меня была такая же проблема для меня и решена.