Barre de progression défilante

Soyez le premier à donner votre avis sur cette source.

Vue 8 521 fois - Téléchargée 1 170 fois

Description

La barre de progression défilante est un composant hérité de TProgressBar.
Elle permet d'indiquer une progression en cours sans en indiquer l'état d'avancement.
Pour pouvoir l'ajouter à vos projets, installez le paquet présent dans le dossier "Package". Puis utilisez le nouveau composant présent dans l'onglet "Exemples".
Un exemple de code est disponible à la racine du Zip.

Source / Exemple :


{
  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 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.
}
unit UMarqueeProgressBar;

interface

uses
  SysUtils, Windows, Classes, Controls, ComCtrls, Messages;

type
  TMarqueeProgressBar = class(TProgressBar)
  private
    FActive: Boolean;
    FAnimationSpeed: Integer;
    procedure SetActive(const Value: Boolean);
    procedure SetAnimationSpeed(const Value: Integer);
    procedure UpdateProgressBar;
  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;
  end;

const
  PBS_MARQUEE  = $08;
  PBM_SETMARQUEE = WM_USER + 10;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Exemples', [TMarqueeProgressBar]);
end;

constructor TMarqueeProgressBar.Create(AOwner: TComponent);
begin
  inherited;
  FAnimationSpeed := 60;
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.UpdateProgressBar;
begin
  if FActive then
    SendMessage(Self.Handle, PBM_SETMARQUEE, 1, FAnimationSpeed)
  else
    SendMessage(Self.Handle, PBM_SETMARQUEE, 0, 0);
end;

end.

Conclusion :


Bon code à tous ;-)

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.