Foros Club Delphi - como mostrar un string de 500 caracteres en una grilla

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - como mostrar un string de 500 caracteres en una grilla (https://www.clubdelphi.com/foros/showthread.php?t=33721)

afarenas

14-07-2006 21:17:30

como mostrar un string de 500 caracteres en una grilla

Tengo el siguiente problema:
Muestro un campo string de longitud 500 en una rejilla y me aparece (memo) y no me muestra su contenido, como se puede solucionar esto, la base de datos es interbase gracias.

Casimiro Notevi

14-07-2006 23:40:12

Prueba esto:

Código:

procedure TFmain.dbgListaDrawColumnCell(Sender: TObject; const Rect: TRect;   DataCol: Integer; Column: TColumn; State: TGridDrawState);

var

  R : TRect;

begin // exibir campo memo

  R:=Rect;

  Dec(R.Bottom,2);

  if Column.Field = QRfichasTEXTO then

  begin

    if not (gdSelected in State) then

      dbgLista.Canvas.FillRect(Rect);

    DrawText(dbgLista.Canvas.Handle,pchar( QRfichasTEXTO.AsString),

                            length(QRfichasTEXTO.AsString), R, DT_WORDBREAK );

  end;

end;

afarenas

18-07-2006 16:04:33

Gracias me ha funcionado perfectamente.

La franja horaria es GMT +2. Ahora son las 07:43:21.