equal
deleted
inserted
replaced
611 end |
611 end |
612 end; |
612 end; |
613 |
613 |
614 procedure chFullScr(var s: shortstring); |
614 procedure chFullScr(var s: shortstring); |
615 var flags: Longword = 0; |
615 var flags: Longword = 0; |
|
616 ico: PSDL_Surface; |
616 {$IFDEF DEBUGFILE} |
617 {$IFDEF DEBUGFILE} |
617 buf: array[byte] of char; |
618 buf: array[byte] of char; |
618 {$ENDIF} |
619 {$ENDIF} |
619 {$IFDEF SDL13} |
620 {$IFDEF SDL13} |
620 window: PSDL_Window; |
621 window: PSDL_Window; |
634 flags:= flags or SDL_FULLSCREEN; |
635 flags:= flags or SDL_FULLSCREEN; |
635 cScreenWidth:= cInitWidth; |
636 cScreenWidth:= cInitWidth; |
636 cScreenHeight:= cInitHeight |
637 cScreenHeight:= cInitHeight |
637 end; |
638 end; |
638 |
639 |
|
640 // load window icon |
|
641 ico:= LoadImage(Pathz[ptGraphics] + '/hwengine', ifIgnoreCaps); |
|
642 if ico <> nil then |
|
643 begin |
|
644 SDL_WM_SetIcon(ico, 0); |
|
645 SDL_FreeSurface(ico) |
|
646 end; |
|
647 |
|
648 // set window caption |
639 SDL_WM_SetCaption('Hedgewars', nil); |
649 SDL_WM_SetCaption('Hedgewars', nil); |
|
650 |
640 if SDLPrimSurface <> nil then |
651 if SDLPrimSurface <> nil then |
641 begin |
652 begin |
642 {$IFDEF DEBUGFILE} |
653 {$IFDEF DEBUGFILE} |
643 AddFileLog('Freeing old primary surface...'); |
654 AddFileLog('Freeing old primary surface...'); |
644 {$ENDIF} |
655 {$ENDIF} |