VCL стиль Mac Look дизайнер стиля

Question

VCL стиль Mac Look дизайнер стиля

Недавно я проводил некоторые исследования в стиле VCL (Embarcadero XE2 для Delphi). Я могу загрузить и установить стили, чтобы все работало нормально.

В настоящее время я изучаю VCL Style Designer и пытаюсь выяснить, как я могу переместить кнопку "Свернуть", "Максимизировать", "Изменить размер", "Закрыть" и "Справка" влево вместо текущего по умолчанию вправо, пока текст приложения (подпись формы) справа.

Я в моем конце и надеюсь, что кто-то может дать мне несколько советов.

В общем, я пытаюсь "подражать" тому, как выглядит Mac в форме Windows.

Любая помощь приветствуется.

2

delphi delphi-xe2 vcl-styles

Источник

user3966890 22 авг '14 в 07:01

1 ответ

Решение

Другие вопросы по тегам delphi delphi-xe2 vcl-styles

user91299 22 авг '14 в 15:34 2014-08-22 15:34 · Accepted Answer · 2014-08-22 15:34

То, что вы хотите достичь, не связано с VCL Style Designer, вместо этого вы должны создать собственный хук стиля формы.

Следуй этим шагам.

Создать (и зарегистрировать) новый хук стиля формы, спускающийся с TFormStyleHook учебный класс.
Переопределить PaintNC Метод рисования кнопок заголовка на новых позициях.
Обрабатывать WM_NCMOUSEMOVE, WM_NCLBUTTONDOWN а также WM_WM_NCLBUTTONUP сообщения для определения состояния кнопок заголовка (горячие, нажатые) и запуска действий (закрыть, восстановить, развернуть, свернуть).