Fórum Como Adicionar Progresso a um gauge #210903
01/02/2004
0
[b:df50322132]Gostaria De saber como Faço para que meu navegador adiciona progresso a um gauge ou a um progressbar que quando navego não sei quanto carregou da pagina[/b:df50322132][size=18:df50322132][/size:df50322132]
Ecmsoftware
Curtir tópico
+ 0
Responder
Posts
01/02/2004
Caninha51
No TWebBrowser ou o TEmbeddedWB pois um evento chamado ProgressChange, eh só vc colocar...
progressbar.Min := 0;
progressbar.Max := ProgressMax;
progressbar.Position := Progress;
statusbar.repaint;{pra atualizar a statusbar}
pra vc colocar a barra de progresso numa status bar, vc seta o visible da progressbar pra FALSE e coloca isso no evento DrawPanel do status bar....
if (Panel.Index = 1) and (progressbar.Position > 0){pra naum pintar quando estiver zerado} then
begin
progressbar.Width := Rect.Right - Rect.Left;
progressbar.Height := Rect.Bottom - Rect.Top;
progressbar.PaintTo(StatusBar.Canvas.Handle, Rect.Left, Rect.Top);
end;
Espero ter ajuda!
Falow
Caninha51
progressbar.Min := 0;
progressbar.Max := ProgressMax;
progressbar.Position := Progress;
statusbar.repaint;{pra atualizar a statusbar}
pra vc colocar a barra de progresso numa status bar, vc seta o visible da progressbar pra FALSE e coloca isso no evento DrawPanel do status bar....
if (Panel.Index = 1) and (progressbar.Position > 0){pra naum pintar quando estiver zerado} then
begin
progressbar.Width := Rect.Right - Rect.Left;
progressbar.Height := Rect.Bottom - Rect.Top;
progressbar.PaintTo(StatusBar.Canvas.Handle, Rect.Left, Rect.Top);
end;
Espero ter ajuda!
Falow
Caninha51
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)