12.03.2017 20:08
[#1]
[E, MUI] podmiana domyślnej appicon
Jak we własnym programie podmienić brzydką, domyślną appikonkę?
Kiedyś udało mi się to zrobić w moim programiku w C i skopiowałem ten sposób do mojego małego projektu w E, ale program przez to nie odpala, a i komunikatu o błędzie z appikonką też nie wywala.
Robię to tak:
Oczywiście ikonka Hexaco.info znajduje się w katalogu programu.
Kiedyś udało mi się to zrobić w moim programiku w C i skopiowałem ten sposób do mojego małego projektu w E, ale program przez to nie odpala, a i komunikatu o błędzie z appikonką też nie wywala.
Robię to tak:
MODULE 'workbench/workbench', 'icon'
...
DEF app_icon:PTR TO diskobject
...
-> tuż przed otwarciem okna programu
IF (app_icon := GetDiskObject('PROGDIR:Hexaco')) THEN set(app, MUIA_Application_DiskObject, app_icon) ELSE Raise(ER_ICON)
...
IF app_icon THEN FreeDiskObject(app_icon)
set(win_glowne,MUIA_Window_Open,FALSE)Oczywiście ikonka Hexaco.info znajduje się w katalogu programu.