Jump to content

Pintar Iconos en el UNIDBGRID


gpaulino

Recommended Posts

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.

post-482-0-06593100-1350312806.jpeg

Link to comment
Share on other sites

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:

 

Link to comment
Share on other sites

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.. :D

Link to comment
Share on other sites

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

  • Upvote 1
Link to comment
Share on other sites

  • 4 months later...

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.

Link to comment
Share on other sites

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,
Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...