Campo memo no dbGrid

Question

Ol�;

Preciso exibir o conte�do de um campo memo em paradox no dbGrid sem utilizar campo calculado. Algu�m ajuda

Biscalquini · Answer

A edi��o deste m�s da ClubeDelphi ensina como faz isso...

Marcelo.c · Answer

Se voc� deseja simplesmente �exibir� o campo:

No evento OnDrawColumnCell

var R: TRect;
begin
  R:=Rect;
  Dec(R.Bottom, 2);
  if Column.Field = CampoMemo then
  begin
    if not (gdSelected in State) then
     DBGrid1.Canvas.FillRect(Rect);
    DrawText(DBGrid1.Canvas.Handle, pchar(CampoMemo.AsString), 
    Length(CampoMemo.AsString), R, DT_WORDBREAK);
  end;
end;