Salto de línea en DBGrid

[jlrdz]

Tengo una duda con el componente DBGrid, quiero saber si es posible cargarle el texto a una celda pero que me respete los saltos de línea con los que está almacenado, el texto se almacena en un campo de tipo memo en la base de datos MySQL, para enlazar la base de datos con mi programa utilizo los componentes de MyDac. Así como está ahorita me carga el texto pero sólo la primer linea, las demás no. Espero me puedan ayudar si es que es posible esto, saludos!.

[*Caro*]

Hola jlrdz, debes utilizar el evento OnDrawColumnCell de tu dbgrid y hacer lo siguiente:

Código Delphi [-]
procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  Rec := Rect;
  //si es la columna donde esta el campo memo
  if (Column.Index = 2) then
   begin
     Str := TBlobField(Column.Field).AsString;
     DrawText(TDBGrid(Sender).Canvas.Handle,PChar(Str),
             StrLen(PChar(Str)),Rec,DT_WORDBREAK);
   end;
end;

Y no te olvides cambiar el alto de la fila.

Saluditos

[jlrdz]

Lo intentaré muchisimas gracias de antemano .

[jlrdz]

De qué tipo debe ser la variable Rec?, me marca como no declarada la variable, aquí están los errores. :s

Undeclared identifier: 'Rec'
'(' expected but ':=' found
Incompatible types
'(' expected but ')' found
'(' expected but ')' found

[[gluglu]]

Del tipo TRect