Par2: Hide or disable Minimize button 2011-08-23 -- Carl Barnes RemoveMinButton PROCEDURE !So Window can have ICON() but not a Min button
Sty LONG,AUTO
WS_MINIMIZEBOX EQUATE(20000h)
!WS_MAXIMIZEBOX EQUATE(10000h) !Could remove Max same way, but just don't add it
GWL_STYLE EQUATE(-16)
CODE
Sty = GetWindowLong(0{prop:handle}, GWL_STYLE)
IF BAND(Sty,WS_MINIMIZEBOX) THEN
SetWindowLong(0{prop:handle}, GWL_STYLE, Sty - WS_MINIMIZEBOX)
END
RETURN
MODULE('API')
GetWindowLong(SIGNED hWnd,SIGNED
nIndex),LONG,PASCAL,DLL(1),NAME('GetWindowLongA')
SetWindowLong(SIGNED hWnd,SIGNED
nIndex,LONG,PASCAL,DLL(1),NAME('SetWindowLongA'),proc
!http://msdn.microsoft.com/en-us/library/ms633591(v=vs.85).aspx
END
Printed May 2, 2024, 6:40 am This article has been viewed/printed 35125 times. |