[Pokroops]

Прошу прощения, давно сюда не заглядывал.

В DelphiDetours есть две нужные нам фунции:

InterceptCreate — подставляет пользовательскую функцию вместо системной,

InterceptRemove — возвращает системную функцию на место.

В данном случае нужно подменить GetSysColor и пару других системных функций на соответствующие функции из AC.

Боюсь, что для того чтобы дать больше информации/текста нужно нам сперва получить “добро” от Админа =)

[Pokroops]

'Pokroops' wrote:

Можно попробовать прикрутить Delphi Detours Library

У меня всё получилось, это оказалось несложно. Господа админы, прислать мой вариант? И если прислать, то куда?

[Pokroops]

'Support' wrote:

Да, при компиляции в режиме x64 этот хук не работает, пока нет идей как там это сделать.

Можно попробовать прикрутить Delphi Detours Library

Собственно, я и собираюсь попробовать, как только время выкроится. Тогда обязательно расскажу, что получилось =)

[Pokroops]

'TCount' wrote:

Думается мне, у вас разные скины в проектах…

Только что понял, в чём дело. Дело оказалось не в скине.

Оказывается, не срабатывает скиннинг только в шестидесятичетырёхбитных сборках.

Посмотрел в исходниках (у меня лицензия), там и в самом деле hooking пока написан только для win32.

[Pokroops]

'TCount' wrote:

Это уже не при помощи панелей, а путем обрезания углов самой формы с помощью регионов.

О, круто! Большое спасибо!

Небольшое замечание (вдруг ещё кто-нибудь это будет читать), в документации по SetWindowRgn написано:

Quote:

After a successful call to SetWindowRgn, the system owns the region specified by the region handle hRgn. The system does not make a copy of the region. Thus, you should not make any further function calls with this region handle. In particular, do not delete this region handle. The system deletes the region handle when it no longer needed.

[Pokroops]

Здравствуйте!

'TCount' wrote:

Вот пример моего окна с панелями

А как же при помощи панелей удалось сделать скруглённые углы у окна?

[Author]

Posts