ProgressBar en un celda de DBGrid

[MaMu]

Bueno, estoy probando, aunque por ahora está demaciado "frutal"

Código Delphi [-]
if (datacol=10)
 then begin
    PaintProgressBar(canvas,rect,10,'10%',taCenter,clBlue,clLime);
 end
 else begin
    defaultdrawing:= true;
 end;

No es ohhh la barra de progreso, pero es una alternativa muy buena.

Saludos

[MaMu]

Volviendo al control clásico del ProgressBar, yo puedo hacer lo siguiente

Código Delphi [-]
//OnDrawColumnCell
pb:=TProgressBar.Create(DBGrid1);
with pb do
 begin
   Parent := DBGrid1;
   Height := 16;
   Width := DBGrid1.Columns[10].Width;
   Top := 1;
   Left := 1;
   Position := 13;
   Smooth:=True;
end;

Creo el ProgressBar dentro del DBGrid y todo muy lindo, pero... como la posiciono en una determinada celda?

Saludos

[juanlaplata]

mas que en una celda creo que tendrias que pensar a que registro de la tabla se la tendrias que asignar, por que, imagina que logras pintarla en la celda [2,2], siempre sera en esa, sin importar los datos, si en tal caso se borrara el registro 2 la prox. ves el reg.3 estara en la posicion del 2 y con la barra.
Tal ves lo esto lo tienes contemplado y no lo he entendido asi.
Otra cosita, cuando haces el OnDrawColumncell en el encabezado del mismo te viene la columna que se esta pintando, solo deberias preg si es la 10 (segun tu ejemplo), o por el nombre; y si es asi pintar, de lo contrario por cada columna esta pintando la 10. No es problema ni da error, es solo no hacer lo que no queremos.
Suerte y luego verifico este codigo para tenerlo en cuenta en algun proyecto.

[MaMu]

Si Juan, es tal cual lo que estoy pensando.