Ver Mensaje Individual
  #2  
Antiguo 05-12-2003
Avatar de Cabanyaler
Cabanyaler Cabanyaler is offline
Miembro
 
Registrado: jun 2003
Ubicación: País Valencià
Posts: 339
Reputación: 21
Cabanyaler Va por buen camino
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í.
Responder Con Cita