VPF::Изображение + текст на кнопке - Форум программистов

Maks1509

Дата 5.4.2008, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 22.8.2007
Где: г. Тольятти

Репутация: нет
Всего: 5

Здраствуйте. Захотелось немного приукрасить приложение, а именно поместить на кнопку иконку с надписью. Для примера был немного подредактирован исходный код Assarbad. Практически все устраивает, однако... Хотелось бы добиться чтобы кнопка прорисовывалась именно в системных цветах, но с иконкой на борту. Ну что-то похожее как кнопки у Nero. Подобное есть на VCL, а как сделать на чистом Windows API непонятно... Вот может быть тут кто-нибудь поможет, а если не поможет, то может быть исходный код понадобится вкачестве демонстрационного примера. smile

Присоединённый файл ( Кол-во скачиваний: 18 )

CBtnTestIco.zip 6,71 Kb

Maks1509

Дата 28.5.2008, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 22.8.2007
Где: г. Тольятти

Репутация: нет
Всего: 5

Да ну что совсем никто не знает ничего в этом направлении? =)

Snowy

Дата 28.5.2008, 21:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Код


var
  BtnColor         : COLORREF;
  BtnTextColor     : COLORREF;
  BtnGradientColor : COLORREF;
  BtnRound: integer = 3;

............

BEGIN
  BtnColor := GetSysColor($FF0000FF and COLOR_BTNFACE);
  BtnTextColor := GetSysColor($FF0000FF and COLOR_BTNTEXT);
  BtnGradientColor := GetSysColor($FF0000FF and COLOR_BTNHIGHLIGHT);
  InitCommonControls;
  DialogBox(HInstance, MAKEINTRESOURCE(100), 0, @DlgFunc);
END.

Это подгоняет цвета. А в остальном - менять функцию отрисовки под нужное.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »