F�rum TMemoField em DBGrid, palavra MEMO sobrepondo o conteudo, como resolver? #602983

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

Curtir t�pico

+ 0

Responder