Cita:
Empezado por Tecnic2
Pues la verda es que si, que me interesa ésta opción de hacer-lo en tiempo de ejecución.
|
Bueno, pues sería algo parecido a lo que sigue; En el evento OnDrawColumnCell programa lo siguiente:
Código Delphi
[-]
const
DX = 5;
DY = 2;
var
Str:String;
begin
if(Column.Field is TMemoField) then begin
Str := TMemoField(Column.Field).AsString;
DBGrid1.Canvas.TextRect(Rect, Left + 8, Rect.Top + DY, Str);
end;
Si hay varias columnas de memo en el Grid y no quieres hacerlo con todas, también puedes utilizar un parámetro llamado DataCol del evento que te deuelve el índice de la columna que se está pintando.
Pruébalo y haz variantes.