visionmercer/qb64-include
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update noframe.bi

Browse source
This commit is contained in:
visionmercer 2022-07-19 14:51:33 +02:00 • committed by GitHub
commit 9bf0c19f4e
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 11 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

24
noframe.bi
View file

@ -1,8 +1,3 @@
Declare CustomType Library
Function FindWindow& (ByVal ClassName As _Offset, WindowName$)
End Declare
Declare Dynamic Library "User32"
Function GetWindowLongA& (ByVal hWnd As _Offset, Byval nIndex As Long)
Function SetWindowLongA& (ByVal hWnd As _Offset, Byval nIndex As Long, Byval dwNewLong As Long)
@ -11,18 +6,21 @@ End Declare
Const GWL_STYLE = -16
Const WS_BORDER = &H800000
Const WS_CAPTION = &H00C00000
Const WS_THICKFRAME = &H00040000
Const WS_MINIMIZEBOX = &H00020000
Const WS_MAXIMIZEBOX = &H00010000
Const WS_SYSMENU = &H00080000
Const WS_CAPTION = &HC00000
Const WS_THICKFRAME = &H040000
Const WS_MINIMIZEBOX = &H020000
Const WS_MAXIMIZEBOX = &H010000
Const WS_SYSMENU = &H080000
Do: Loop Until _ScreenExists
Dim hwnd As _Offset
Dim As Long winstyle, Style, a
Dim hwnd As _Offset
Dim winstyle As Long
Dim Style As Long
hwnd = _WindowHandle
winstyle = GetWindowLongA(hwnd, GWL_STYLE)
Style = (WS_CAPTION Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU)
a = SetWindowLongA&(hwnd, GWL_STYLE, winstyle And Not Style)
if Not SetWindowLongA&(hwnd, GWL_STYLE, winstyle And Not Style) Then
End If