Pintar Iconos en el UNIDBGRID

[gpaulino]

Hola

a Todos.

 

Necesito ayuda, actualmente tengo un DBgried el cual me estara manejando un listado de registro, estos regristros aran referencia

a tipos de documentos como .doc,.xls y .PDF.

 

Los que quiero es que poder pintar los registros con icono que lo represenre por ejemplo, si es un pdf poner el icono de pdf, y asi con los demas.

 

me pueden ayudar por favor...

 

Ejemplo de una imagen.

[heromo80]

Se puede hacer todo lo que quiera dentro de una celda de un tunidbgrid, en el metodo OnGetText del campo se incluye codigo html

 

procedure TMainForm.dtOrderspicurlGetText(Sender: TField; var Text: string;
 DisplayText: Boolean);
begin
 if Length(Sender.AsString)>0  then
 begin
   text := '<img src="' + Sender.AsString + '" />';
 end else Text := '';
end;

 

O con un campo calculado incluyendo etiquetas html...

 

Un ejemplo:

 

[gpaulino]

Se puede hacer todo lo que quiera dentro de una celda de un tunidbgrid, en el metodo OnGetText del campo se incluye codigo html

 

procedure TMainForm.dtOrderspicurlGetText(Sender: TField; var Text: string;
 DisplayText: Boolean);
begin
 if Length(Sender.AsString)>0  then
 begin
   text := '<img src="' + Sender.AsString + '" />';
 end else Text := '';
end;

 

O con un campo calculado incluyendo etiquetas html...

 

Un ejemplo:

 

Hola agmoro7622,

 

Gracias por responder pero no Encuentro el evento OnGetText en el unidbgrid que estoy usando...

 

 

OK Ya lo encontre, voy a probar y te dejo saber gracias..

[gpaulino]

Hola agmoro7622

 

Muchisimas gracias me esta funcionando de maravilla.

[AlbertoVesx]

Hola agmoro7622

 

Muchisimas gracias me esta funcionando de maravilla.

 

Hola Guillermo. Me puedes decir donde encontrar el método del unidbgrid.

 

Saludos

[heromo80]

El método no aplica en el unidbgrid, esta en el dataset que se utiliza como persistencia a la grilla... cuando se selecciona un campo del Fields Editor del dataset esta el evento OnGetText en el cual puede jugar con las etiquetas html y el contenido a mostrar. También se puede utilizar campos calculados en el dataset estos se pueden construir incluyendo etiquetas html.

 

Saludos

[gpaulino]

disculpen por no contestar a tiempo pero he tenido mucho trabajo pero ahora voy a estar mas activamente.

[mmurgas]

disculpen, se que estoy cerca de la solución ..¿como muestro mi icono X ? me imagino que va en "text := '<img src="' + Sender.AsString + '" />';"

 

en Sender.AsString ....pero no se como cargarlo.... favor su apoyo

 

Gracias

MM

[gpaulino]

Hola mmurgas

 

   Para mostrar tu iconos tienes que hacer los siguiente, cuando pones un componente Table en delphi y agregas los campos a dicho componente.

  te posicionas en el campos que quiere mostrar la imagen y te vas a envento, ayi buscas el evento OnGetText y procedes a poner el codgo. yo generalmente tengo un directorio con todas las imagenes que quiero mostrar, el codigo que uso es el siguiente.

 

en el evento OnGetText 

 

 pongo : text:='<img src="./img/imagen.png"/>';

 

donde ./img : es el directorio en donde estan las imagenes.

 

luego solamente tienes que poner el campo que tiene el codigo que escribi anteriormente en el unidbgird y listo, este metodo aplica para varios componetes como en el satusbar para poner un icono de usuario.

 

te debo una imgane por que no estoy en mi pc regular. Cualquier duda me informa por favor.

[mmurgas]

Guillermo , Muchas gracias por tu ayuda y por sobre todo tomarte tu tiempo para enseñarnos esta genial herramienta.........ahora si me funciona!!    

 

Cordiales Saludos, 

 

-------------

 

William, Thank you for your help and most of all take time to teach this great tool ......... now if I work!

 

Best Regards,

[gpaulino]

DE NADA Y NO TE PREOCUPES POR EL ENGLISH SOY DE REPUBLICA DOMINICANA. CUALQUIER COSA PUEDES PREGUNTAR.