some windows dwm api calls to play with
parent
08b29b0b84
commit
4b201f171a
basis/windows/dwmapi
|
@ -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