Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
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
Today is April 18, 2024, 7:24 pm This article has been viewed 35120 times.
|
|