| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Windows 7 и плавное перемещение прогрессбара
Филька © (2011-03-04 21:39:00)Вспоминаю Делфи. Под Win7 и с делфи 2010 код
ProgressBar.Position := i;
вызывает плавное перемещение бара. Как сделать, как было раньше, на старой, доброй WinXP и в Delphi 7?
Опишу подробнее. Вот смотрите:
ProgressBar.Position := 0;
ProgressBar.Max := 100;
ProgressBar.Position := 50;
Происходит вот что. Перемещается бар не сразу, а спустя секунду, в это время бар плавно двигается от 0 до 50. А мне нужно, чтобы бар перемещался моментально. В чём причина?
Rouse_ (2011-03-05 10:27:00) [1]
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;
Anatoly Podgoretsky (2011-03-05 09:19:00) [2]> Германн (05.03.2011 01:14:04) [4]
Да нормально ведет, это тараканы в голове.
Германн (2011-03-05 01:14:00) [3]
> Плавное перемещение противоречит концепции программы. Нет
> ли путей адаптировать именно штатный виндовый бар?
Если "штатный виндовый бар" ведет себя именно так (проверить сам не могу, семерки нет) и такое поведение противоречит "концепции программы", то стоит его заменить на другой компонент.
KilkennyCat (2011-03-05 00:45:00) [4]win7 delphi xe - плавного нет.
> Нет ли путей адаптировать именно штатный виндовый бар?
конечно есть - заменить апи виндов.
Филька (2011-03-04 22:55:00) [5]Плавное перемещение противоречит концепции программы. Нет ли путей адаптировать именно штатный виндовый бар?
Inovet (2011-03-04 21:50:00) [6]Вообще-то лучше так, как настроено пользователем в текущей схеме. Если хочется нестандартного, то самому тогда рисовать или ещё какими левыми пользоваться.
| |
