Programa De Bina

[McBlade]

Salve irmaos,

Aqui no serviço todos tem BINA (Menos eu! ), pensando assim eu resolvi deselvolver uma BINA em delphi pra mim!!

Mas eu nem sei por onde começar...

Alguém pode dar uma ajuda???

[Kikonanet]

Olá,

Me passa seu email, pois eu tenho um exemplo aqui!

Abs.

Kiko

[McBlade]

mcblade [arroba] gmail.com

Valeu!!! ;)

AAAAhhhhhh, aproveitando a deixa...

você por acaso sabe como faço pra criar uma barra de progresso tipo do IExplorer no TStatusBar??

Vlw de novo!! :lol:

Editado Julho 12, 2007 por McBlade

[Kikonanet]

Olá,

Adicione panel na StatusBar (propriedade Panels).

- Ajuste a propriedade do panel conforme abaixo:

Style = psOwnerDraw

Width = 150

- Coloque uma ProgressBar no form e mude sua propriedade Visible para false.

- No evento OnDrawPanel da StatusBar digite o código abaixo:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  if Panel.Index = 0 then 
  begin
  { Ajusta a tamanho da ProgressBar de acordo com
  o tamanho do painel }
  ProgressBar1.Width := Rect.Right - Rect.Left +1;
  ProgressBar1.Height := Rect.Bottom - Rect.Top +1;
  { Pinta a ProgressBar no DC (device-context) da StatusBar }
  ProgressBar1.PaintTo(StatusBar1.Canvas.Handle, Rect.Left, Rect.Top);
  end;
end;

qualquer coisa posta ae.

Abs.

Kiko

[McBlade]

Como q faz pra o progresso se mexer??? Eu to tentando ProgressBar1.StepIt; mas o progresso não se mexe!!!

----------

Consegui fazer dando repaint no StatusBar... Mas num tem uma maneira mais fácil?

Editado Junho 3, 2005 por McBlade

[McBlade]

Não estou conseguindo compilar o Bina, dá pau no SpeedBar to usando D7

[Kikonanet]

Olá,

Use para incrementar

progressbar1.position:=progressbar1.position+1;

Speedbar é um componente do RxLib....

Abs.

Kiko

[McBlade]

Use para incrementar

progressbar1.position:=progressbar1.position+1;

Speedbar é um componente do RxLib....

Incrementar eu acho que incrementa mas ele não aparece o progresso c eu não der um repaint!

E como eu acho/instalo o SpeedBar??? Não acho site nenhum com download (que funcione) do RxLib7

Editado Junho 3, 2005 por McBlade

[Kikonanet]

Olá,

Incrementar eu acho que incrementa mas ele não aparece o progresso c eu não der um repaint!

Você pode usar progressbar1.refresh; // faz o mesmo!

Se você não achar, eu te envio por email.

Abs.

Kiko

[Fabio Lira]

Kiko, me manda o exemplo se for possível.

Obrigado

Fabio Lira

[Antonio Maucyr Pasqualli F]

Poderia passar pra mim também?

tmaucyr [arroba] gmail