TMemoField em DBGrid, palavra MEMO sobrepondo o conteudo, como resolver?

Delphi

13/06/2019

Olá, estou com um problema na exibição de um campo TMemoField em um DBGrid, consegui fazer a exibição no grid mas ao clicar na linha do grid a palavra 'MEMO' está sobrepondo o conteúdo, meu código:
procedure TovF_LanPedVendaItens.ovDBG_ProdutosDrawColumnCell(Sender : TObject; const Rect : TRect; DataCol : Integer; Column : TColumn; State : TGridDrawState);
begin
  inherited;

  if Column.Field.DataType = ftMemo then
  begin
    ovDBG_Produtos.Canvas.FillRect(Rect);
    ovDBG_Produtos.Canvas.TextRect(Rect, Rect.Left, Rect.Top, (Owner as TovF_LanPedVenda).cdsItens.FieldByName('PedItm_Obs').Value);
  end;
end;

Andrey Lara

Andrey Lara

Curtidas 0
POSTAR