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]

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

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

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

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

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;

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