Просмотр исходного кода

Fixed default app icon not being set on Win32.

woollybah 6 лет назад
Родитель
Сommit
a29d373cc3
2 измененных файлов с 2 добавлено и 1 удалено
  1. 1 0
      win32maxguiex.mod/common.bmx
  2. 1 1
      win32maxguiex.mod/win32maxguiex.bmx

+ 1 - 0
win32maxguiex.mod/common.bmx

@@ -40,6 +40,7 @@ Extern
 	Function msHtmlBrowser(handle:Byte Ptr, browser:IWebBrowser2_ Var)
 	Function mstmlDocument:Byte Ptr(handle:Byte Ptr)
 
+	Function bbAppIcon:Byte Ptr(handle:Byte Ptr) = "HICON bbAppIcon(HINSTANCE)!"
 End Extern
 
 Extern "win32"

+ 1 - 1
win32maxguiex.mod/win32maxguiex.bmx

@@ -605,7 +605,7 @@ Type TWindowsGUIDriver Extends TMaxGUIDriver
 
 		If Not _name
 			_name="BLITZMAX_WINDOW_CLASS"
-			_icon=LoadIconW(GetModuleHandleW(Null),Short Ptr(101))
+			_icon=bbAppIcon(GetModuleHandleW(Null))
 			_wc=New WNDCLASSW
 			_wc.Setstyle(CS_OWNDC|CS_HREDRAW|CS_VREDRAW)
 			_wc.SetlpfnWndProc(ClassWndProc)