aardio 范例: 滑尺控件提示

//滑尺控件提示
import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add(
trackbar={cls="trackbar";left=282;top=286;right=536;bottom=316;max=100;min=0;z=1}
)
/*}}*/

/**
import win.ui.tooltip;
var hwndTooltipCtrl = winform.trackbar.sendMessage(0x41E/*_TBM_GETTOOLTIPS*/,0,0);
var tooltipCtrl = win.ui.tooltip(winform,hwndTooltipCtrl);

winform.trackbar.oncommand = function(id,event,pos){ 
    var toolInfo = tooltipCtrl.getCurrentTool();
    if(toolInfo)toolInfo.setText( tostring(pos / 10) );
}
**/

winform.trackbar.oncommand = function(id,event,pos){ 
    winform.trackbar.tooltip = pos / 10;
}

//自绘- 强行移除获得焦点后显示的虚线框
winform.trackbar.onnotify = function(id,code,ptr){ 
    if( code == 0xFFFFFFF4/*_NM_CUSTOMDRAW*/ ){
        var lvcd = winform.trackbar.getNotifyCustomDraw(code,ptr);
        if( lvcd.dwDrawStage == 1/*_CDDS_PREPAINT*/ ){
            lvcd.uItemState = lvcd.uItemState &  ~0x10/*_CDIS_FOCUS*/;
            lvcd.update();
        }
    }
}

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