Res: [delphi-br] Re: Gauge sem %
Andrei, Se for uma barra tipo a do windows xp e 7, elas são feitas com o componente progress bar e não com o gauge bar, existe uma propriedade para que isso ocorra, no momento estou sem a minha versão de delphi no pc, pois formatei hoje, mas dá uma chegada no progres bar, ele deve te ajudar sim, embora minha versão seja 09, acho que já está implementado desde a versão 05 esse recurso. Um abraço. - * - Farmy Gonçalves Ferreira da Silva Engenheiro de Software Mestrando em saúde mental. Laboratório de integração Sensório Motara IPUB/UFRJ. IBBN. - * - www.profissionaisdetecnologia.com.br profissionaisdetecnologia-subscr...@yahoogrupos.com.br - * - farmysi...@yahoo.com.br farmyferre...@yahoo.com.br farmysi...@hotmail.com Tel: 9388 - 9619 / 7872 - 4718 Id 10*80735 De: Andrei Luís compuvale.softw...@gmail.com Para: Delphi-br delphi-br@yahoogrupos.com.br, Enviadas: Segunda-feira, 12 de Julho de 2010 23:52:11 Assunto: [delphi-br] Re: Gauge sem % Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32. []s Andrei 2010/7/12 Andrei Luís compuvale.softw...@gmail.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]
Re: [delphi-br] Re: Gauge sem %
Coloque 2 timers, 2 buttons e 2 gauges. Adapte as suas necessidades.
private
{ Private declarations }
sentido1 : string;
perc1 : word;
sentido2 : string;
perc2 : word;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if sentido1 = 'vai' then
begin
inc(perc1);
Gauge1.Progress := perc1;
if perc1 = 100 then
sentido1 := 'volta';
end;
if sentido1 = 'volta' then
begin
dec(perc1);
Gauge1.Progress := perc1;
if perc1 = 0 then
sentido1 := 'vai';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
sentido1 := 'vai';
perc1 := 0;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if sentido2 = 'vai' then
begin
inc(perc2);
Gauge2.Progress := perc2;
if perc2= 100 then
begin
sentido2:= 'volta';
Gauge2.BackColor := clblack;
Gauge2.ForeColor := clwhite;
end;
end;
if sentido2 = 'volta' then
begin
dec(perc2);
Gauge2.Progress := perc2;
if perc2 = 0 then
begin
sentido2 := 'vai';
Gauge2.BackColor := clWhite;
Gauge2.ForeColor := clBlack;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer2.Enabled := true;
sentido2 := 'vai';
perc2 := 0;
end;
--- Em seg, 12/7/10, Andrei Luís compuvale.softw...@gmail.com escreveu:
De: Andrei Luís compuvale.softw...@gmail.com
Assunto: [delphi-br] Re: Gauge sem %
Para: Delphi-br delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 12 de Julho de 2010, 23:52
Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32.
[]s
Andrei
2010/7/12 Andrei Luís compuvale.softw...@gmail.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]
Re: [delphi-br] Re: Gauge sem %
Colocar a propriedade dos ShowText = False (dos Gauges); --- Em seg, 12/7/10, Andrei Luís compuvale.softw...@gmail.com escreveu: De: Andrei Luís compuvale.softw...@gmail.com Assunto: [delphi-br] Re: Gauge sem % Para: Delphi-br delphi-br@yahoogrupos.com.br Data: Segunda-feira, 12 de Julho de 2010, 23:52 Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32. []s Andrei 2010/7/12 Andrei Luís compuvale.softw...@gmail.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]
[delphi-br] Re: Gauge sem %
Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32. []s Andrei 2010/7/12 Andrei Luís compuvale.softw...@gmail.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
Re: [delphi-br] Re: Gauge sem %
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.comcompuvale.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
