Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.04.2016, 23:34   #1
Гео
 
Регистрация: 12.06.2008
Сообщений: 7
Вопрос Отобразить в Canvas ползунок в зависимости от стиля в Windows

Подскажите как отобразить на Canvas PaintBox'a ползунок от TrackBar, так что бы его внешний вид зависел от стиля темы в Windows?
Я так понимаю, надо проверить ThemeServices.ThemesEnabled, и затем с помощью ThemeServices.DrawElement нарисовать ползунок?
Используется Delphi 2010
Гео вне форума Ответить с цитированием
Старый 26.04.2016, 20:47   #2
Гео
 
Регистрация: 12.06.2008
Сообщений: 7
По умолчанию

Все, разобрался. Теперь мне надо сделать так что бы можно было ползунки двигать
Гео вне форума Ответить с цитированием
Старый 26.04.2016, 22:11   #3
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,463
По умолчанию

Ну... Сам разобрался, покажи другому.
Репутация: полный "0"
zvygin1964 вне форума Ответить с цитированием
Старый 28.04.2016, 22:25   #4
Гео
 
Регистрация: 12.06.2008
Сообщений: 7
По умолчанию

Для отображения ползунка в текущем стиле винды в событие OnPaint PaintBox'a:
Код:
...
var Details:TThemedElementDetails;
    MyRect:TRect;
begin
If Themes.ThemeServices.ThemesEnabled then begin
    MyRect.Left:=X1; MyRect.Right:=X2; MyRect.Top:=Y1; MyRect.Bottom:=Y2;
    Details:=ThemeServices.GetElementDetails(ttbThumbBottomNormal);
    ThemeServices.DrawElement(PaintBox1.Canvas.Handle, Details, MyRect);
...
Подключить надо модуль Themes

Последний раз редактировалось Гео; 28.04.2016 в 22:27.
Гео вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа для изменения стиля входа в систему Windows 7 Alexandr17 Windows 3 28.12.2013 22:59
WPF как отобразить картинку на canvas имея byte[] crawter WPF, UWP, WinRT, XAML 1 10.11.2012 05:22
Привязка стиля окон Windows к программе zumm Свободное общение 3 30.07.2012 07:58
Ползунок. Abuhamed JavaScript, Ajax 2 05.03.2011 09:59
TImage слои само масштабировало в зависимости от количества слоёв через Canvas если получится radiokarazinec Общие вопросы Delphi 1 21.12.2010 06:10