Переопределение системных иконок

[Игорь Столяров]

Привет всем !

Возник вопрос: можно ли как-то переопределить системные иконки в приложении ?
Например, что бы при использовании Icon:Exclamation была показана '~MyError.ico' и т.д. ?

Понятно, что можно пройтись по всему приложению и заменить иконки вручную ... но что-то это совсем кисло.
Может быть есть какой-то неведомый мне способ переназначения системных икон ?

Заранее спасибо !

[Admin]

Вот так работает прекрасно:

Код: Выделить всё

ICON:Custom   EQUATE('~import.ico')
  CODE
  Window{PROP:Icon} = ICON:Custom
  ?Button{PROP:Icon} = ICON:Custom
  MESSAGE('Новая иконка','Внимание',ICON:Custom)

Иконку конечно же нужно включить во все DLL и EXE где она будет использоваться.

[Admin]

И переопределять можно.
Только Warning конечно же вылезет.
Или переопределяйте прямо в EQUATES.CLW

[Игорь Столяров]

Не, ну тут просто определение эквивалента символьного имени иконки ....
Это не сможет заменить системную иконку (в т.ч. и в сообщениях RTL Clarion)

[Admin]

Да. Переопределение иконок не отразится на том же STOP
Но может быть поможет хук на MESSAGE ?

[Yufil]

Если хочется свои иконки в рантайме - взять редактор ресурсов ( например, resource hacker) и создать личную копию ...runx.dll со своими иконками. Иконки не правил, а диалоги приходилось...