A sort of FULLSCREEN

[bartok]

Hi,
in the attached image, the screen has the dimension of _DESKTOPWIDTH and _DESKTOPHEIGHT. But, due to the title bar "Untitled" and Windows's application bar,  the lower part of the image is not visible.
So, I ask if is there is a command in order to run the program with the indicated botton of the window already "pressed". I'm avoiding the use of _FULSCREEN.

[SMcNeill]

https://www.qb64.org/forum/index.php?topic=3659.msg130063#msg130063

Use the ScreenMove routine in the demo above.  It positions by program screen position and not window + border position.

[Pete]

Borders? We don't need no stinking borders!

Code: QB64: [Select]

1. '============
2. 'NOBORDER.BAS
3. '============
4. DECLARE DYNAMIC LIBRARY "User32"
5.     FUNCTION GetWindowLongA& (BYVAL hwnd AS LONG, BYVAL nIndex AS LONG)
6.     FUNCTION SetWindowLongA& (BYVAL hwnd AS LONG, BYVAL nIndex AS LONG, BYVAL dwNewLong AS LONG)
7.     FUNCTION SetWindowPos& (BYVAL hwnd AS LONG, BYVAL hWndInsertAfter AS LONG, BYVAL x AS LONG, BYVAL y AS LONG, BYVAL cx AS LONG, BYVAL cy AS LONG, BYVAL wFlags AS LONG)
8. END DECLARE
9. SCREEN _NEWIMAGE(600, 480, 32)
10. _DELAY .2
11.  
12. GWL_STYLE = -16
13. ws_border = &H800000
14. WS_VISIBLE = &H10000000
15.  
16. _TITLE "No Border"
17. hwnd& = _WINDOWHANDLE
18.  
19. winstyle2& = GetWindowLongA&(hwnd&, GWL_STYLE)
20. winstyle& = -12582913
21. a& = SetWindowLongA&(hwnd&, GWL_STYLE, winstyle& AND WS_VISIBLE) ' AND NOT WS_VSCROLL) ' AND NOT ws_border)
22. a& = SetWindowPos&(hwnd&, 0, 0, 0, 0, 0, 39)
23.  
24. PRINT "Press any key to get back border...";: SLEEP
25.  
26. a& = SetWindowLongA&(hwnd&, GWL_STYLE, winstyle2& OR ws_border)
27. a& = SetWindowPos&(hwnd&, 0, 0, 0, 0, 0, 39)
28.  
29.  

Of course, this only applies if you are running on a Windows Operating system. I'm running on a Windows 10 right now. Oops, have to go, someone downloaded a big pile of MicroSoft in my path.

Pete