QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-02 03:50:36 +00:00
Code Issues Releases Wiki Activity

Merge pull request #17 from QB64Team/detect-retina-macos

Browse source 
Detects Retina displays on macOS for proper scaling.
This commit is contained in:
Fellippe Heitor 2020-01-15 00:08:38 -03:00 committed by GitHub
parent 9c86afd4c7 0f1f63eda8
commit 95664863be
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
internal/c/libqb/gui.cpp
View file

@ -525,7 +525,18 @@ void sub__glrender(int32 method){
if (render_state.dest_handle==0){
static int32 dst_w,dst_h;
static int32 dst_w,dst_h;
static int32 scale_factor=0;
#ifdef QB64_MACOSX
if (scale_factor==0) {
scale_factor=1;
if (system("system_profiler SPDisplaysDataType | grep Retina")==0) scale_factor=2;
}
#else
scale_factor=1;
#endif
dst_w=environment__window_width;
dst_h=environment__window_height;
@ -539,7 +550,7 @@ void sub__glrender(int32 method){
glLoadIdentity();
glScalef(1, -1, 1);//flip vertically
glTranslatef(0, -dst_h, 0);//move to new vertical position
glViewport(0,0,dst_w,dst_h);
glViewport(0,0,dst_w * scale_factor,dst_h * scale_factor);
}else{