basis/windows/dwmapi/dwmapi.factor

   1 ! (c)2009 Joe Groff bsd license
   2 USING: alien.c-types alien.libraries alien.syntax classes.struct windows.types ;
   3 IN: windows.dwmapi
   4
   5 STRUCT: MARGINS
   6     { cxLeftWidth    int }
   7     { cxRightWidth   int }
   8     { cyTopHeight    int }
   9     { cyBottomHeight int } ;
  10
  11 STRUCT: DWM_BLURBEHIND
  12     { dwFlags                DWORD   }
  13     { fEnable                BOOL    }
  14     { hRgnBlur               HANDLE  }
  15     { fTransitionOnMaximized BOOL    } ;
  16
  17 : <MARGINS> ( l r t b -- MARGINS )
  18     MARGINS <struct-boa> ; inline
  19
  20 : full-window-margins ( -- MARGINS )
  21     -1 -1 -1 -1 <MARGINS> ; inline
  22
  23 << "dwmapi" "dwmapi.dll" "stdcall" add-library >>
  24
  25 LIBRARY: dwmapi
  26
  27 FUNCTION: HRESULT DwmExtendFrameIntoClientArea ( HWND hWnd, MARGINS* pMarInset ) ;
  28 FUNCTION: HRESULT DwmEnableBlurBehindWindow ( HWND hWnd, DWM_BLURBEHIND* pBlurBehind ) ;