FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Urgente! No encuentro sol. para mostrar memo en rxdbgrid.
Buenos días,
Tengo un rxdbgrid enlazado con una qry que tiene un campo memo. Como sabéis, aparece el texto [Memo] en el grid al enlazarlo. He probado varias soluciones en el OnDrawColumnCell que he encontrado, pero no he podido visualizar el memo. Las soluciones son del tipo: var Grid : TStringGrid; Texto : String; Rectangulo : TRect; begin Rectangulo:=Rect; Grid := TStringGrid(Sender); if Field.IsBlob then begin Grid.Canvas.FillRect(Rect); Texto := Field.AsString; DrawText( Grid.Canvas.Handle, PChar(Texto), StrLen(PChar(Texto)), Rectangulo, DT_WORDBREAK); end; o En este recomendaban quitar el field del campo del grid que es el memo. var rectangulo:trect; begin with Sender as TDBGrid do begin //micampo es campo memo if column.Title.Caption='micampo' then begin rectangulo:=rect; DrawText(Canvas.Handle,PChar(ibdataset.FieldByName('micampo').AsString),StrLen(PChar(ibdataset.Field ByName('micampo').AsString)),Rectangulo,DT_EDITCONTROL); end; He probado estas y otras más, pero no he conseguido que funcionen. Si directamente en la qry corto el memo a 255 caracteres, entonces sí me muestra el contenido del memo, pero en los retornos de carro aparece un cuadrado. Hoy parece que estoy un poco negado porque no he podido ni quitar los retornos de carro directamente desde la qry (para que almenos me muestre 255 car. del memo limpios) ni al mostrar el dado en el grid. Muchas gracias de antemano por vuestro tiempo. Un saludo.
__________________
Setry2 Eres un bit? www.lafesta.com |
|
|
|