| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Почему сие не работает? Бутафорский ProgressBar :) [D7, D2005, XP]

Stepper ©   (2008-03-19 21:15:00) 

usesXPMan;

procedureTForm1.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;

---

Stepper   (2008-03-21 02:52:00) [1]

> Kolan ©   (20.03.08 16:01) [12]


А другой реализации что не существует? Чтоб не мелькало?

---

Kolan   (2008-03-20 16:01:00) [2]

Работает кстати неочень, мелькает…

---

{RASkov}   (2008-03-20 15:09:00) [3]

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

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

---

Stepper   (2008-03-20 15:05:00) [4]

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


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

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

---

{RASkov}   (2008-03-20 13:25:00) [5]

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

---

Kolan   (2008-03-20 10:27:00) [6]

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

---

Kolan   (2008-03-20 10:26:00) [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;

---

Skyle   (2008-03-20 10:17:00) [8]

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

---

Stepper   (2008-03-20 10:12:00) [9]

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

---

Stepper   (2008-03-20 05:26:00) [10]

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


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

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

---

easy   (2008-03-19 22:17:00) [11]

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

---

Stepper   (2008-03-19 22:11:00) [12]

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


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

---

{RASkov}   (2008-03-19 21:44:00) [13]

> [0] Stepper   (19.03.08 21:15)

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

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

---

Наверх