hedgewars/uStore.pas
branchsdl2transition
changeset 11378 011c5cc195cc
parent 11358 a91c4c4fd85c
child 11413 55fc715435ea
--- a/hedgewars/uStore.pas	Fri Nov 13 22:35:26 2015 +0100
+++ b/hedgewars/uStore.pas	Fri Nov 13 23:46:19 2015 +0100
@@ -1084,6 +1084,15 @@
         SDLwindow:= SDL_CreateWindow(PChar('Hedgewars'), x, y, cScreenWidth, cScreenHeight, flags);
     SDLTry(SDLwindow <> nil, 'SDL_CreateWindow', true);
 
+    // load engine ico
+    {$IFNDEF DARWIN}
+    ico:= LoadDataImage(ptGraphics, 'hwengine', ifIgnoreCaps);
+    if ico <> nil then
+        begin
+        SDL_SetWindowIcon(SDLwindow, ico);
+        SDL_FreeSurface(ico);
+        end;
+    {$ENDIF}
     SetupOpenGL();
 
     if reinit then