Почему сие не работает? Бутафорский ProgressBar :)

← →
Stepper (2008-03-19 21:15) [0]

uses XPMan; procedure TForm1.Button1Click(Sender: TObject); begin with ProgressBar1 do begin SetWindowLong (Handle, GWL_STYLE, (GetWindowLong (Handle, GWL_STYLE) or PBS_MARQUEE)); Perform(PBM_SETMARQUEE, 1, 25); end; end;

← →
{RASkov} © (2008-03-19 21:44) [1]

> [0] Stepper (19.03.08 21:15)

> Почему сие не работает?

Фик знает.... у меня сие работает... [D7, XP]

← →
Stepper (2008-03-19 22:11) [2]

> {RASkov} © (19.03.08 21:44) [1]

Что еще надо выставить в опциях компонента ProgressBar?

← →
easy © (2008-03-19 22:17) [3]

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=39165

← →
Stepper (2008-03-20 05:26) [4]

> easy © (19.03.08 22:17) [3]

const PBS_MARQUEE = $08; PBM_SETMARQUEE = WM_USER + 10; ... SendMessage(Self.Handle, PBM_SETMARQUEE, 0, 0); ...

И так тоже не пашет! В чем ещё может быть прикол!

← →
Stepper (2008-03-20 10:12) [5]

Удалено модератором
Примечание: Создание пустых сообщений

← →
Skyle © (2008-03-20 10:17) [6]

У всех всё работает.

← →
Kolan © (2008-03-20 10:26) [7]

> [3] easy © (19.03.08 22:17)

У меня тоже не получилось.

Создал так:

procedure TForm1.FormCreate(Sender: TObject); begin P := TMarqueeProgressBar.Create(Self); P.Parent := Self; P.Top := 10; P.Left := 10; P.Width := 200; P.Height := 25; end;

Запустил так:
procedure TForm1.BitBtn2Click(Sender: TObject); begin P.Active := True; P.AnimationSpeed := 10; P.BarColor := clRed; end;

← →
Kolan © (2008-03-20 10:27) [8]

Аааа, надо было XP манифест кинуть. Теперь работает.

← →
{RASkov} © (2008-03-20 13:25) [9]

Может у автора Тема какая включена(установлена) в ХР...
Я ими(темами) не юзаюсь никогда, поэтому сказал - как в воду .... вот)

← →
Stepper (2008-03-20 15:05) [10]

> {RASkov} © (20.03.08 13:25) [9]

Во как) Да тема стоит не стандартная а именно Vista Inspirat 2

Но причем тут стиль, когда прогресс не фунциклирует?

> [10] Stepper (20.03.08 15:05)
> Но причем тут стиль, когда прогресс не фунциклирует?

Я просто подумал, Раз без XPMan эта штука тоже не работает, значит дело в темах.... во как)

Работает кстати неочень, мелькает&#133

← →
Stepper (2008-03-21 02:52) [13]

Почему сие не работает? Бутафорский ProgressBar :) Найти похожие ветки