Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: bartok on October 12, 2021, 08:48:37 am

Title: A sort of FULLSCREEN
Post by: bartok on October 12, 2021, 08:48:37 am
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.
Title: Re: A sort of FULLSCREEN
Post by: SMcNeill on October 12, 2021, 09:23:31 am
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.
Title: Re: A sort of FULLSCREEN
Post by: Pete on October 12, 2021, 10:30:45 am
Borders? We don't need no stinking borders!

Code: QB64: [Select]
  1. '============
  2. 'NOBORDER.BAS
  3. '============
  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)
  9. SCREEN _NEWIMAGE(600, 480, 32)
  11.  
  12. GWL_STYLE = -16
  13. ws_border = &H800000
  14. WS_VISIBLE = &H10000000
  15.  
  16. _TITLE "No Border"
  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
Text Only | Text with Attachments