Campo MEMO en un DBGrid

[Tecnic2]

Pues la verda es que si, que me interesa ésta opción de hacer-lo en tiempo de ejecución.

[Neftali [Germán.Estévez]]

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.

[bustio]

Empezado por Neftali

Pruébalo y haz variantes.

Exactamente eso fue lo que hice. Tome el parametro DataCol para solo hacerle el pintado a la primera columna y funciono.. tu ejemplo esta muy bien y muy bueno. Pero tiene un defecto.. al menos a mi me lo hace. El texto cuando lo lee y lo muestra no se ve completo... solo a partir del 2 caracter y cuando trato de marcarlo con el Mouse para darle "<-" con el cursor vuelve a mostrar el valor: (MEMO).

Como puedo solucionar esto????

GRACIAS!!

Lazaro Bustio Martinez..

[Neftali [Germán.Estévez]]

Empezado por bustio

Exactamente eso fue lo que hice. Tome el parametro DataCol para solo hacerle el pintado a la primera columna y funciono.. tu ejemplo esta muy bien y muy bueno. Pero tiene un defecto.. al menos a mi me lo hace. El texto cuando lo lee y lo muestra no se ve completo... solo a partir del 2 caracter y cuando trato de marcarlo con el Mouse para darle "<-" con el cursor vuelve a mostrar el valor: (MEMO).

Lo de que se vea el 2º caracter lo controla la constante(DX):

Código Delphi [-]
 DBGrid1.Canvas.TextRect(Rect, Left + DX, Rect.Top + DY, Str);

Revisa que la hayas colocado Bien. Al entrar te vuelve a mostrar (MEMO) porque ésta soilución sólo sirve para Visualizar, no para editar.

Otra opción (que tb permite editar) es la siguiente; Añadir al TTable/TQuery/... los Fields y programar los atributos OnGetText y OnSetText del TField(en éste caso un TMemoField) con el siguiente código:

Código Delphi [-]
 procedure TForm1.Table1NotesGetText(Sender: TField; var Text: String; DisplayText: Boolean);
 begin
   Text:= Trim (Sender.asString);  
 end;
 
 procedure TForm1.Table1NotesSetText(Sender: TField; const Text: String);
 begin
   Sender.AsString := Text;
 end;

Es mejorable, ya que al editar aparecen los saltos de línea pero puede servir.

[Tecnic2]

Otra pregunta:

Tengo un par de campos en mi DBGrid que me deben mostrar una información en formato de hh:mm:ss.
El campo de la base de datos Access es Fecha/Hora, y el formato es Hora Larga, pero en mi DBGrid me aparece 30/12/1899 12:34:12, y yo solo quiero que me aparezca la hora.

Muchas gracias por adelantado.

[Neftali [Germán.Estévez]]

Si defines los TField como se ha comentado antes, y accedes a las propiedades del TField correspondiente a tu campo hay una propiedad que te permite definir el formato (Display...., Masked..., no recuerdo el nombre, pero seguro que cuando las tengas en pantalla la identificas enseguida).

[yo_coco_py]

aca esta la solucion y en una sola linea de codigo.. http://delphi.about.com/library/weekly/aa030105a.htm
Funciona super bien..
Si tienen alguna duda y les puedo ayudar, con mucho gusto lo hare..
Saludos..