Mercurial > hg > orthanc-stone
annotate Applications/Platforms/Sdl/SdlWindow.cpp @ 1870:3889ae96d2e9
added copyright UCLouvain
| author | Sebastien Jodogne <s.jodogne@gmail.com> |
|---|---|
| date | Tue, 11 Jan 2022 11:04:09 +0100 |
| parents | 5a872e69c74f |
| children | 7053b8a0aaec |
| rev | line source |
|---|---|
| 0 | 1 /** |
| 2 * Stone of Orthanc | |
| 3 * Copyright (C) 2012-2016 Sebastien Jodogne, Medical Physics | |
| 4 * Department, University Hospital of Liege, Belgium | |
|
1739
9ac2a65d4172
upgrade to year 2021
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1596
diff
changeset
|
5 * Copyright (C) 2017-2021 Osimis S.A., Belgium |
|
1870
3889ae96d2e9
added copyright UCLouvain
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1804
diff
changeset
|
6 * Copyright (C) 2021-2021 Sebastien Jodogne, ICTEAM UCLouvain, Belgium |
| 0 | 7 * |
| 8 * This program is free software: you can redistribute it and/or | |
| 47 | 9 * modify it under the terms of the GNU Affero General Public License |
| 10 * as published by the Free Software Foundation, either version 3 of | |
| 11 * the License, or (at your option) any later version. | |
| 0 | 12 * |
| 13 * This program is distributed in the hope that it will be useful, but | |
| 14 * WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 47 | 15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| 16 * Affero General Public License for more details. | |
|
1596
4fb8fdf03314
removed annoying whitespace
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1591
diff
changeset
|
17 * |
| 47 | 18 * You should have received a copy of the GNU Affero General Public License |
| 0 | 19 * along with this program. If not, see <http://www.gnu.org/licenses/>. |
| 20 **/ | |
| 21 | |
| 22 | |
| 23 #include "SdlWindow.h" | |
| 24 | |
| 25 #if ORTHANC_ENABLE_SDL == 1 | |
| 26 | |
|
1455
30deba7bc8e2
simplifying include_directories
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1279
diff
changeset
|
27 #include <Logging.h> |
|
30deba7bc8e2
simplifying include_directories
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1279
diff
changeset
|
28 #include <OrthancException.h> |
| 0 | 29 |
|
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
30 #ifdef WIN32 |
| 662 | 31 #include <windows.h> // for SetProcessDpiAware |
|
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
32 #endif |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
33 // WIN32 |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
34 |
|
1198
4cc997207d8a
fix compatibility between SDL and DCMTK
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1047
diff
changeset
|
35 #include <SDL_render.h> |
|
4cc997207d8a
fix compatibility between SDL and DCMTK
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1047
diff
changeset
|
36 #include <SDL_video.h> |
| 214 | 37 #include <SDL.h> |
| 38 | |
| 0 | 39 namespace OrthancStone |
| 40 { | |
| 1804 | 41 SdlWindow::SdlWindow(const std::string& title, |
| 0 | 42 unsigned int width, |
| 43 unsigned int height, | |
|
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
44 bool enableOpenGl, |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
45 bool allowDpiScaling) : |
| 0 | 46 maximized_(false) |
| 47 { | |
| 48 // TODO Understand why, with SDL_WINDOW_OPENGL + MinGW32 + Release | |
| 49 // build mode, the application crashes whenever the SDL window is | |
| 50 // resized or maximized | |
| 51 | |
| 52 uint32_t windowFlags, rendererFlags; | |
| 53 if (enableOpenGl) | |
| 54 { | |
| 55 windowFlags = SDL_WINDOW_OPENGL | SDL_WINDOW_RESIZABLE; | |
| 56 rendererFlags = SDL_RENDERER_ACCELERATED; | |
| 57 } | |
| 58 else | |
| 59 { | |
| 60 windowFlags = SDL_WINDOW_RESIZABLE; | |
| 61 rendererFlags = SDL_RENDERER_SOFTWARE; | |
| 62 } | |
|
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
63 |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
64 // TODO: probably required on MacOS X, too |
| 662 | 65 #if defined(WIN32) && (_WIN32_WINNT >= 0x0600) |
|
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
66 if (!allowDpiScaling) |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
67 { |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
68 // if we do NOT allow DPI scaling, it means an SDL pixel will be a real |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
69 // monitor pixel. This is needed for high-DPI applications |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
70 |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
71 // Enable high-DPI support on Windows |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
72 |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
73 // THE FOLLOWING HAS BEEN COMMENTED OUT BECAUSE IT WILL CRASH UNDER |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
74 // OLD WINDOWS VERSIONS |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
75 // ADD THIS AT THE TOP TO ENABLE IT: |
| 662 | 76 // |
| 77 //#pragma comment(lib, "Shcore.lib") THIS IS ONLY REQUIRED FOR SetProcessDpiAwareness | |
| 78 //#include <windows.h> | |
| 79 //#include <ShellScalingAPI.h> THIS IS ONLY REQUIRED FOR SetProcessDpiAwareness | |
|
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
80 //#include <comdef.h> THIS IS ONLY REQUIRED FOR SetProcessDpiAwareness |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
81 // SetProcessDpiAwareness(PROCESS_PER_MONITOR_DPI_AWARE); |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
82 |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
83 // This is supported on Vista+ |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
84 SetProcessDPIAware(); |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
85 |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
86 windowFlags |= SDL_WINDOW_ALLOW_HIGHDPI; |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
87 } |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
88 #endif |
|
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
89 // WIN32 |
| 0 | 90 |
| 1804 | 91 window_ = SDL_CreateWindow(title.c_str(), |
| 0 | 92 SDL_WINDOWPOS_UNDEFINED, |
| 93 SDL_WINDOWPOS_UNDEFINED, | |
| 94 width, height, windowFlags); | |
| 95 | |
| 96 if (window_ == NULL) | |
| 97 { | |
| 98 LOG(ERROR) << "Cannot create the SDL window: " << SDL_GetError(); | |
| 99 throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError); | |
| 100 } | |
| 101 | |
| 102 renderer_ = SDL_CreateRenderer(window_, -1, rendererFlags); | |
| 103 if (!renderer_) | |
| 104 { | |
| 105 LOG(ERROR) << "Cannot create the SDL renderer: " << SDL_GetError(); | |
| 106 SDL_DestroyWindow(window_); | |
| 107 throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError); | |
| 108 } | |
| 109 } | |
| 110 | |
| 111 | |
| 112 SdlWindow::~SdlWindow() | |
| 113 { | |
| 114 if (renderer_ != NULL) | |
| 115 { | |
| 116 SDL_DestroyRenderer(renderer_); | |
| 117 } | |
| 118 | |
| 119 if (window_ != NULL) | |
| 120 { | |
| 121 SDL_DestroyWindow(window_); | |
| 122 } | |
| 123 } | |
| 124 | |
| 125 | |
| 126 unsigned int SdlWindow::GetWidth() const | |
| 127 { | |
| 128 int w = -1; | |
| 129 SDL_GetWindowSize(window_, &w, NULL); | |
| 130 | |
| 131 if (w < 0) | |
| 132 { | |
| 133 throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError); | |
| 134 } | |
| 135 else | |
| 136 { | |
| 137 return static_cast<unsigned int>(w); | |
| 138 } | |
| 139 } | |
| 140 | |
| 141 | |
| 142 unsigned int SdlWindow::GetHeight() const | |
| 143 { | |
| 144 int h = -1; | |
| 145 SDL_GetWindowSize(window_, NULL, &h); | |
| 146 | |
| 147 if (h < 0) | |
| 148 { | |
| 149 throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError); | |
| 150 } | |
| 151 else | |
| 152 { | |
| 153 return static_cast<unsigned int>(h); | |
| 154 } | |
| 155 } | |
| 156 | |
| 157 | |
| 158 void SdlWindow::Render(SDL_Surface* surface) | |
| 159 { | |
| 1205 | 160 /** |
| 161 * "You are strongly encouraged to call SDL_RenderClear() to | |
| 162 * initialize the backbuffer before starting each new frame's | |
| 163 * drawing, even if you plan to overwrite every pixel." | |
| 164 * https://wiki.libsdl.org/SDL_RenderPresent | |
| 165 **/ | |
| 166 SDL_SetRenderDrawColor(renderer_, 0, 0, 0, 255); | |
| 167 SDL_RenderClear(renderer_); // Clear the entire screen to our selected color | |
| 0 | 168 |
| 169 SDL_Texture *texture = SDL_CreateTextureFromSurface(renderer_, surface); | |
| 170 if (texture != NULL) | |
| 171 { | |
| 172 SDL_RenderCopy(renderer_, texture, NULL, NULL); | |
| 173 SDL_DestroyTexture(texture); | |
| 174 } | |
| 175 | |
| 176 SDL_RenderPresent(renderer_); | |
| 177 } | |
| 178 | |
| 179 | |
| 180 void SdlWindow::ToggleMaximize() | |
| 181 { | |
| 182 if (maximized_) | |
| 183 { | |
| 184 SDL_RestoreWindow(window_); | |
| 185 maximized_ = false; | |
| 186 } | |
| 187 else | |
| 188 { | |
| 189 SDL_MaximizeWindow(window_); | |
| 190 maximized_ = true; | |
| 191 } | |
| 192 } | |
| 214 | 193 |
| 194 | |
| 195 void SdlWindow::GlobalInitialize() | |
| 196 { | |
| 197 if (SDL_Init(SDL_INIT_VIDEO) != 0) | |
| 198 { | |
| 199 LOG(ERROR) << "Cannot initialize SDL"; | |
| 200 throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError); | |
| 201 } | |
| 202 } | |
| 203 | |
| 204 | |
| 205 void SdlWindow::GlobalFinalize() | |
| 206 { | |
| 207 SDL_Quit(); | |
| 208 } | |
| 0 | 209 } |
| 210 | |
| 211 #endif |