Fórum Progress Bar #210009
28/01/2004
0
Fiz programinha que copia uns arquivo de uma pasta para outra e gostaria de colcar um progress Bar e nao sei como funciona. Se alguem poder me ajudar Agradeço.
Francisco Waldiney
Curtir tópico
+ 0
Responder
Posts
28/01/2004
Reginaldo174
utilize o componente gauge, pois acho ele melhor;
gauge1.maxvalue := // valor maximo de uma tabela o conteudo de pasta
while not query1.eof do
begin
// insira seu procedimento
gauge1.progress := gauge1.progress + 1; // mostra o progresso
query1.next;
end;
gauge1.progress :0;
showmessage(´Processo terminado ´);
gauge1.maxvalue := // valor maximo de uma tabela o conteudo de pasta
while not query1.eof do
begin
// insira seu procedimento
gauge1.progress := gauge1.progress + 1; // mostra o progresso
query1.next;
end;
gauge1.progress :0;
showmessage(´Processo terminado ´);
Responder
Gostei + 0
28/01/2004
Celo-faveri
daí cara, bele?
seguinte...tem um programa OpenSource aqui no clube, acho que na sessão de Uploads, o nome é ArqDiv. O programa serve para quebrar arquivos em partes, porém faz uso de uma barra de progressão p/ mostrar o andamento do mesmo. Pegue ele e estude como o programa faz essa progressão e veja o que vc consegue aproveitar.
Flow
T+ :wink:
seguinte...tem um programa OpenSource aqui no clube, acho que na sessão de Uploads, o nome é ArqDiv. O programa serve para quebrar arquivos em partes, porém faz uso de uma barra de progressão p/ mostrar o andamento do mesmo. Pegue ele e estude como o programa faz essa progressão e veja o que vc consegue aproveitar.
Flow
T+ :wink:
Responder
Gostei + 0
28/01/2004
Chico Gois
Não sei se é isso que vc quer?
procedure TForm1.Button1Click(Sender: TObject);
var
time1, time2:tdatetime;
n1, n2, total: variant;
begin
time1:= now;
n1:= 0;
n2:= 0;
progressbar1.position:= 0;
while n1 < 5000000 do
begin
n2:=n2 + n1;
inc (n1);
if (n1 mod 50000) = 0 then
begin
progressbar1.position:= n1 div 50000;
application.ProcessMessages;
end;
end;
// devemos usar o resultado
total:=n2;
time2:=now;
label1.caption:= formatdatetime(´n:ss´, time1-time2) + ´ segundos´;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
time1, time2:tdatetime;
n1, n2, total: variant;
begin
time1:= now;
n1:= 0;
n2:= 0;
progressbar1.position:= 0;
while n1 < 5000000 do
begin
n2:=n2 + n1;
inc (n1);
if (n1 mod 50000) = 0 then
begin
progressbar1.position:= n1 div 50000;
application.ProcessMessages;
end;
end;
// devemos usar o resultado
total:=n2;
time2:=now;
label1.caption:= formatdatetime(´n:ss´, time1-time2) + ´ segundos´;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)