Показать TProgressBar в стиле XP

Delphi , Компоненты и Классы , TProgressBar

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  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 MarqueeProgressBar;

 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('SwissDelphiCenter', [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.

Это компонент Delphi, который создает контрол TProgressBar с видом маркей progress bar, аналогичным тем, которые можно найти в Windows XP. Компонент предназначен для использования в случаях, когда не известно количество прогресса к завершению, но хочется указать, что прогресс происходит.

Компонент включает в себя несколько функций:

1. Маркей Progress Bar: Контрол TMarqueeProgressBar создает маркей progress bar с эффектом анимации.
2. Скорость анимации: Скорость анимации можно настроить с помощью свойства AnimationSpeed, которое варьируется от 0 до максимального значения (по умолчанию - 60).
3. Активное состояние: Активное состояние маркей progress bar можно включать или выключать с помощью свойства Active.

Код включает в себя несколько процедур и свойств:

• CreateParams: Эта процедура переопределяет метод CreateParams класса TProgressBar и устанавливает параметр стиля, чтобы включить флаг PBS_MARQUEE.
• SetActive: Эта процедура устанавливает активное состояние маркей progress bar и обновляет его соответствующим образом.
• SetAnimationSpeed: Эта процедура настраивает скорость анимации маркей progress bar.
• UpdateProgressBar: Эта процедура отправляет сообщение PBM_SETMARQUEE в handle окна, чтобы обновить маркей progress bar.

Код также включает в себя конструктор (Create), который инициализирует компонент и устанавливает дефолтную скорость анимации в 60. Процедура Register регистрирует компонент TMarqueeProgressBar с Delphi.

Чтобы использовать этот компонент в вашем приложении Delphi:

1. Добавьте файл MarqueeProgressBar.pas в свой проект.
2. Нажмите правой кнопкой мыши на форме и выберите "Панель инструментов" -> "Компоненты" -> "MarqueeProgressBar".
3. Установите свойство Active в True, чтобы включить анимацию маркей progress bar.
4. Регулируйте свойство AnimationSpeed, чтобы изменить скорость анимации.

Обратите внимание: Этот компонент требует Windows XP или позднее и ComCtl32.dll версии 6.00 или позднее. Возможно, вам нужно добавить ресурс манифеста в ваше приложение, если вы используете более раннюю версию Delphi.

В статье описывается компонент TMarqueeProgressBar для Delphi, позволяющий отображать прогресс бар в стиле Windows XP с анимацией маркировки.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TProgressBar ::