Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Salto de línea en DBGrid (https://www.clubdelphi.com/foros/showthread.php?t=73725)

jlrdz 12-05-2011 15:52:00

Salto de línea en DBGrid
 
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 12-05-2011 16:42:27

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 12-05-2011 19:05:21

Lo intentaré muchisimas gracias de antemano :).

jlrdz 13-05-2011 15:47:28

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 13-05-2011 16:26:29

Del tipo TRect ;)


La franja horaria es GMT +2. Ahora son las 17:43:05.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi