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
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;