como a lista não aceita anexo, segue:
{*******************************************************************************}
{* TMarqueeProgressBar
v1.0 *}
{*
*}
{* Use this ProgressBar when you do not know the amount of progress
toward *}
{* completion but wish to indicate that progress is being
made. *}
{*
*}
{* This ProgressBar works only on Windows XP or later and the
ComCtl32.dll *}
{* version 6.00 or later is needed. To use the new ComCtrl you have to
provide *}
{* the manifest. In Delphi 7 just drop TXPManifest on the form. For
prior *}
{* versions of Delphi you have to include the XP manifest
resource. *}
{*
*}
{* See http://www.swissdelphicenter.ch/en/showcode.php?id=1118 for
help *}
{* including the
manifest. *}
{*
*}
{*
*}
{* This component is provided "AS-IS" and is written by delight software
gmbh. *}
{* This component is Freeware. Visit www.delightsoftware.com for
updates. *}
{*
*}
{*
*}
{*
Changelog:
*}
{* - v1.0
released *}
{*******************************************************************************}
unit MarqueeProgressBar;
interface
uses
SysUtils, Windows, Classes, Controls, ComCtrls, CommCtrl, Graphics,
Messages;
type
TMarqueeProgressBar = class(TProgressBar)
private
FActive: Boolean;
FAnimationSpeed: Integer;
FBarColor: TColor;
procedure SetActive(const Value: Boolean);
procedure SetAnimationSpeed(const Value: Integer);
procedure UpdateProgressBar;
procedure SetBarColor(const Value: TColor);
protected
procedure CreateParams(var Params: TCreateParams); override;
public
constructor Create(AOwner: TComponent); override;
published
property Active: Boolean read FActive write SetActive;
property AnimationSpeed: Integer read FAnimationSpeed write
SetAnimationSpeed;
property BarColor: TColor read FBarColor write SetBarColor;
end;
const
PBS_MARQUEE = $08;
PBM_SETMARQUEE = WM_USER + 10;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('delight', [TMarqueeProgressBar]);
end;
constructor TMarqueeProgressBar.Create(AOwner: TComponent);
begin
inherited;
FAnimationSpeed := 60;
FBarColor := clNavy;
end;
procedure TMarqueeProgressBar.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or PBS_MARQUEE;
end;
procedure TMarqueeProgressBar.SetActive(const Value: Boolean);
begin
FActive := Value;
UpdateProgressBar;
end;
procedure TMarqueeProgressBar.SetAnimationSpeed(const Value: Integer);
begin
FAnimationSpeed := Value;
UpdateProgressBar;
end;
procedure TMarqueeProgressBar.SetBarColor(const Value: TColor);
begin
FBarColor := Value;
SendMessage(Self.Handle, PBM_SETBARCOLOR, 0, FBarColor);
Invalidate;
end;
procedure TMarqueeProgressBar.UpdateProgressBar;
begin
if FActive then
SendMessage(Self.Handle, PBM_SETMARQUEE, 1, FAnimationSpeed)
else
SendMessage(Self.Handle, PBM_SETMARQUEE, 0, 0);
end;
end.
Att,
.......................................................
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo....@gmail.com
Site: http://www.drdsistemas.com.br/
.......................................................
2010/7/12 Andrei Luís <compuvale.softw...@gmail.com>
>
>
> Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32.
>
> []s
> Andrei
>
> 2010/7/12 Andrei Luís
> <compuvale.softw...@gmail.com<compuvale.software%40gmail.com>
> >:
>
> > Boa noite,
> >
> > Alguém poderia indicar um gauge bar sem % nem texto. Pensei em algo
> > que não necessariamente preenchesse a barra, mas tipo um que fique se
> > movimentando pra direita e pra esquerda sem parar, até ser encerrado.
> > A idéia é utilizar no envio de e-mails ou outras situações que não dá
> > pra medir a porcentagem do processo executado/à executar.
> >
> > []s
> > Andrei
> >
>
>
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
