Up |
Scol 6.x or above required
Set the window icon.
fun [ObjWin P] ObjWin
P : a read-reference file
Return : ObjWin the same window object or nil if error
typeof win = ObjWin;;
fun main ()=
_showconsole;
set win = _CRwindow _channel nil 0 0 400 200 WN_NORMAL "Test icon window";
_SETwindowIcon win _checkpack "tests/os2d/window/12/icon_1.bmp";
...
0;;