Скачать: CL | DM;

Windows 7 и плавное перемещение прогрессбара   Найти похожие ветки 

← →
Филька   (2011-03-04 21:39) [0]

Вспоминаю Делфи. Под Win7 и с делфи 2010 код
ProgressBar.Position := i;
вызывает плавное перемещение бара. Как сделать, как было раньше, на старой, доброй WinXP и в Delphi 7?

Опишу подробнее. Вот смотрите:

ProgressBar.Position := 0;
ProgressBar.Max := 100;
ProgressBar.Position := 50;

Происходит вот что. Перемещается бар не сразу, а спустя секунду, в это время бар плавно двигается от 0 до 50. А мне нужно, чтобы бар перемещался моментально. В чём причина?

---

← →
Inovet ©   (2011-03-04 21:50) [1]

Вообще-то лучше так, как настроено пользователем в текущей схеме. Если хочется нестандартного, то самому тогда рисовать или ещё какими левыми пользоваться.

---

← →
Филька   (2011-03-04 22:55) [2]

Плавное перемещение противоречит концепции программы. Нет ли путей адаптировать именно штатный виндовый бар?

---

← →
KilkennyCat ©   (2011-03-05 00:45) [3]

win7 delphi xe - плавного нет.

> Нет ли путей адаптировать именно штатный виндовый бар?

конечно есть - заменить апи виндов.

---

← →
Германн ©   (2011-03-05 01:14) [4]

> Плавное перемещение противоречит концепции программы. Нет
> ли путей адаптировать именно штатный виндовый бар?

Если "штатный виндовый бар" ведет себя именно так (проверить сам не могу, семерки нет) и такое поведение противоречит "концепции программы", то стоит его заменить на другой компонент.

---

← →
Anatoly Podgoretsky ©   (2011-03-05 09:19) [5]

> Германн  (05.03.2011 01:14:04)  [4]

Да нормально ведет, это тараканы в голове.

---

← →
Rouse_ ©   (2011-03-05 10:27) [6]

function SetWindowTheme(hwnd: HWND; pszSubAppName: PWideChar;
 pszSubIdList: PWideChar): LongWord; stdcall; external "UxTheme.dll";

procedure TForm1.Button1Click(Sender: TObject);
begin
 SetWindowTheme(ProgressBar.Handle, "", "");
 ProgressBar.Position := 0;
 ProgressBar.Max := 100;
 ProgressBar.Position := 50;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.005 c