Ver Mensaje Individual
  #4  
Antiguo 08-02-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.233
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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
   // Es un Blob?
   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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita