FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
No lei por completo lo que hiciste pero me parece mucho mas simple que en el select uses substr sobre la columna memo, onda select columna1, columna2, substr(columna3,0,150) as "columna3" from tabla con eso tranformas el memo en string
__________________
comemos.com.ar, todo el delivery de Capital Federal en un solo lugar |
#2
|
|||
|
|||
a mi me da el mismo error con el rxdbgrid pero lo reemplace por el dbgrid y si funciona, proba con el dbgrid.
chau suerte |
#3
|
|||
|
|||
Pues acabo de probarlo tanto en un TRxDbGrid como en un TDbGrid y me ha funcionado correctamente
Código:
procedure TForm1.RxDBGrid1DrawColumnCell(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.IsBlob then // <= esta forma también me ha funcionado if Column.Field.ClassType = TMemoField then begin Grid.Canvas.FillRect(Rect); Texto := Column.Field.AsString; DrawText( Grid.Canvas.Handle, PChar(Texto), StrLen(PChar(Texto)), Rectangulo, DT_WORDBREAK); end; end; |
|
|
|