Inicio > Ejemplos, VCL > Dibujar porcentaje en una celda de un Grid

Dibujar porcentaje en una celda de un Grid

Share Button

En este ejemplo se muestra cómo dibujar manualmente una barra de porcentaje en una celda de un DBGrid. Presuponemos que en la celda en la que vamos a dibujar la barra se está mostrando un valor entre 0 y 100 que pertenece a un porcentaje. Este ejemplo muestra cómo se hace para un componente TDBGrid estándard; No es muy difícil adaptarlo para utilizarlo en un TStringGrid o similar.

Dibujar porcentaje en Grid

Download Descargar ejemplo

(Actualizacion 17/05/2021) He actualizado el ejemplo para mostrar cómo se utiliza el mismo evento para realizar esta acción sobre varias columnas.

Download Descargar ejemplo con 2 columnas

Vota este post
Categories: Ejemplos, VCL Tags: , , ,
Subscribe
Notify of
guest

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

8 Comments
Inline Feedbacks
Ver todos los comentarios
Juanlu
Juanlu
15 years ago

Me da error al intentar compilar. En la línea:

StrValue := STR_EMPTY;

¿A que puede ser debido?

Ali Reyes
Ali Reyes
6 years ago

Amigo buenas, gracias por el ejemplo, aqui esoy varios años despues de publicado, tengo una consulta que me llena un DBGRID, copio el ejemplo completo pero aun asi no me funciona.

if not (Column.FieldName = ‘avancetarea’) then begin
Exit;

en esta linea coloco el nombre de la columna que quiero convertir en la barra de progreso pero no me lo toma, cuando depuro y veo que «Fieldname» me esta tomando, me toma el primero de mi DBGRID «consectarea» podrias ayudarme por favor =(

Pedro-Juan
Pedro-Juan
3 years ago

Hola Neftali.
En varias ocasiones me he servido de tu código y aprovecho para agradecerte tu dedicación.
En este caso, lo que quiero es poner dos porcentajes, dos campos que contienen esos porcentajes, en un mismo dbgrid.
Lo he probado de varias maneras pero no consigo (o no sé) hacerlo.
Si me pudieras dar una pista, te lo agradecería mucho.
Muchas gracias y un saludo.

Pedro-Juan
Pedro-Juan
3 years ago

@Germán Estévez

Hola Neftali.
Justo lo que quería. ¡Y tan sencillo!
Muchas gracias y un saludo.

8
0
Would love your thoughts, please comment.x
()
x