Hola, yo trabajo los campos ntext o comunmente conocidos como campos Memo del siguiente modo dentro de lod DBGrids, espero te sirva. No bstante puede sbuscar como hacerlo en Trucomania.
Suerte
// Para la visualización de texto memo en el grid
procedure TFModuloX.DBGridDrawColumnCell(
Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
Grid : TStringGrid;
Texto : String;
Rectangulo : TRect;
begin
Rectangulo:=Rect;
Grid := TStringGrid(Sender);
if Column.Field.DataType = ftMemo then
begin
Grid.Canvas.FillRect(Rect);
Texto := Column.Field.Value;
DrawText( Grid.Canvas.Handle,
PChar(Texto),
StrLen(PChar(Texto)),
Rectangulo,
DT_WORDBREAK);
end;
end;
__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí.
|