aardio 范例: 毛玻璃效果

//毛玻璃效果
import win.ui;
/*DSG{{*/
var winform = win.form(text="毛玻璃效果";right=759;bottom=469)
winform.add()
/*}}*/

::DwmApi := raw.loadDll("Dwmapi.dll")
var aero = function(hwnd){
    if(_WIN10_LATER){  
        var accent = {
            int AccentState = 3;
            INT AccentFlags = 0;
            INT GradientColor = 0;
            INT AnimationId = 0;
        };

        ::User32.SetWindowCompositionAttribute(hwnd,{
            INT Attrib = 19;
            ptr pvData = raw.buffer(accent);
            INT cbData = raw.sizeof(accent);
        });
    }
    elseif(_WIN7_LATER) {
        var result = {bool enabled};
        ::DwmApi.DwmIsCompositionEnabled(result)
        if(result.enabled){
            ::DwmApi.DwmEnableBlurBehindWindow(hwnd,{ int flags=3;int enable=1;int rgnBlur;int transition})
        } 
    }   
}
aero( winform.hwnd );


winform.show();
win.loopMessage();

Markdown 格式