equal
deleted
inserted
replaced
982 |
982 |
983 {$IFDEF USE_VIDEO_RECORDING} |
983 {$IFDEF USE_VIDEO_RECORDING} |
984 procedure InitOffscreenOpenGL; |
984 procedure InitOffscreenOpenGL; |
985 begin |
985 begin |
986 // create hidden window |
986 // create hidden window |
987 SDLwindow:= SDL_CreateWindow('hedgewars video rendering (SDL2 hidden window)', |
987 SDLwindow:= SDL_CreateWindow(PChar('hedgewars video rendering (SDL2 hidden window)'), |
988 SDL_WINDOWPOS_CENTERED_MASK, SDL_WINDOWPOS_CENTERED_MASK, |
988 SDL_WINDOWPOS_CENTERED_MASK, SDL_WINDOWPOS_CENTERED_MASK, |
989 cScreenWidth, cScreenHeight, |
989 cScreenWidth, cScreenHeight, |
990 SDL_WINDOW_HIDDEN or SDL_WINDOW_OPENGL); |
990 SDL_WINDOW_HIDDEN or SDL_WINDOW_OPENGL); |
991 SDLTry(SDLwindow <> nil, 'SDL_CreateWindow', true); |
991 SDLTry(SDLwindow <> nil, 'SDL_CreateWindow', true); |
992 SetupOpenGL(); |
992 SetupOpenGL(); |
1079 |
1079 |
1080 if cFullScreen then |
1080 if cFullScreen then |
1081 flags:= flags or SDL_WINDOW_FULLSCREEN; |
1081 flags:= flags or SDL_WINDOW_FULLSCREEN; |
1082 |
1082 |
1083 if SDLwindow = nil then |
1083 if SDLwindow = nil then |
1084 SDLwindow:= SDL_CreateWindow('Hedgewars', x, y, cScreenWidth, cScreenHeight, flags); |
1084 SDLwindow:= SDL_CreateWindow(PChar('Hedgewars'), x, y, cScreenWidth, cScreenHeight, flags); |
1085 SDLTry(SDLwindow <> nil, 'SDL_CreateWindow', true); |
1085 SDLTry(SDLwindow <> nil, 'SDL_CreateWindow', true); |
1086 |
1086 |
1087 SetupOpenGL(); |
1087 SetupOpenGL(); |
1088 |
1088 |
1089 if reinit then |
1089 if reinit then |