Поля memo в dbgrid.

[qivi]

Господа форумчане, помогите пожалуйста... в полном тупике по данному вопросу...

[svk12]

Вот такой метод работает с TRxDBGrid

Код: Выделить всё

procedure TTabViewForm.TheGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Assigned(Column) then begin
    Thegrid.Canvas.TextRect(Rect, Rect.Left, Rect.Top, ' '+Column.Field.AsString);
  end;
end;                                                         

[qivi]

Почти работает... точнее работает но при этом пишет слово "(МЕМО)"... можно же как ни будь от него избавится?

1.png

Добавлено спустя 34 минуты 10 секунд:
Всё, дошло! Большое спасибо

Код: Выделить всё

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if Assigned(Column) then
  begin
   DBGrid1.Canvas.FillRect(Rect);
   DBGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, ' '+Column.Field.AsString);
  end;
end;