some windows dwm api calls to play with
parent
08b29b0b84
commit
4b201f171a
|
@ -0,0 +1 @@
|
|||
Joe Groff
|
|
@ -0,0 +1,28 @@
|
|||
! (c)2009 Joe Groff bsd license
|
||||
USING: alien.c-types alien.libraries alien.syntax classes.struct windows.types ;
|
||||
IN: windows.dwmapi
|
||||
|
||||
STRUCT: MARGINS
|
||||
{ cxLeftWidth int }
|
||||
{ cxRightWidth int }
|
||||
{ cyTopHeight int }
|
||||
{ cyBottomHeight int } ;
|
||||
|
||||
STRUCT: DWM_BLURBEHIND
|
||||
{ dwFlags DWORD }
|
||||
{ fEnable BOOL }
|
||||
{ hRgnBlur HANDLE }
|
||||
{ fTransitionOnMaximized BOOL } ;
|
||||
|
||||
: <MARGINS> ( l r t b -- MARGINS )
|
||||
MARGINS <struct-boa> ; inline
|
||||
|
||||
: full-window-margins ( -- MARGINS )
|
||||
-1 -1 -1 -1 <MARGINS> ; inline
|
||||
|
||||
<< "dwmapi" "dwmapi.dll" "stdcall" add-library >>
|
||||
|
||||
LIBRARY: dwmapi
|
||||
|
||||
FUNCTION: HRESULT DwmExtendFrameIntoClientArea ( HWND hWnd, MARGINS* pMarInset ) ;
|
||||
FUNCTION: HRESULT DwmEnableBlurBehindWindow ( HWND hWnd, DWM_BLURBEHIND* pBlurBehind ) ;
|
|
@ -0,0 +1 @@
|
|||
Windows Vista Desktop Window Manager API functions
|
|
@ -0,0 +1,2 @@
|
|||
windows
|
||||
unportable
|
Loading…
Reference in New Issue