叶落花开的博客

发表于2024-08-18|客户端开发aardio

import win.ui;
tick = 0;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add(
button={cls="button";text="button";left=117;top=84;right=229;bottom=142;z=1};
static={cls="static";text="static";left=83;top=187;right=315;bottom=229;transparent=1;z=2}
)
/*}}*/

winform.button.wndproc = function(hwnd,message,wParam,lParam){
        if(message == 0x0201/*_WM_LBUTTONDOWN*/){
                winform.static.text = "按下鼠标";
                tick = time.tick();
        }
        if(message == 0x0202/*_WM_LBUTTONUP*/){
                winform.static.text = "放开鼠标";
                jg = time.tick() - tick;
                if(jg > 300){
                        winform.static.text = "长按。ms:" ++ jg ;        
                }else {
                        winform.static.text = "单击。ms:" ++ jg;        
                        }        
        }
        
}

winform.show() 
win.loopMessage();

aardio-如何获取static控件中文字的真实宽度？

发表于2024-08-18|客户端开发aardiowinform

在窗体上添加了一个static文本控件，通过代码设置控件text值，但由于控件是固定宽度，导致文本过长则无法显示完整文字，想通过获取真实文字的宽度来调整static的宽度，以达到完整显示文字的目的。

不需要搞这么复杂，把static拖长到足够容纳文本为止，static是透明的，没必要去动态伸缩自己的长度。
并没有GetTextExtent这个API函数，这是C++里的函数，API一般不会傻到在返回值里写结构体，他调用的API是 ::Gdi32.GetTextExtentPoint32

API一般不需要声明，直接用就可以，例如：

var r,size = ::Gdi32.GetTextExtentPoint32(dc
        ,"待检查文本"
        ,string.len("待检查文本"),
        ::SIZE()
        );

aardio-悬浮窗体库

发表于2024-08-18

写了个库，就像很多软件都使用悬浮窗体基本框架，其实还可以实现一些如：利用图片生成异形窗体、透明窗体之类。

aardio-listbox简单判断添加内容是否重复

发表于2024-08-18|客户端开发aardio

1、把“添加”按钮的Z序调整到“最后面”，在编辑框输入内容后，直接按回车就添加；
2、按回车后，编辑框清空，以便下次输入。（重复与不重复都清空edit）
源代码:

aardio-如何使子窗口不在任务栏显示

发表于2024-08-18|客户端开发aardio

aardio生成父子窗口非常方便，但是如果打开子窗口也在任务栏显示
如果打开多个子窗口，那任务栏就多了一堆图标，这样就不美观了

只显示父窗口图标，解决方法很简单：

1.指定子窗口的父窗口句柄（拖动文件到窗口自动生成代码已经有了)

2.子窗口在设计视图把这些属性修改：
样式：popup
扩展样式：none

aardio-如何给关闭窗体加上确认条件呢?

发表于2024-08-18|客户端开发aardio

源代码:

import win.ui;
/*DSG{{*/
var winform = win.form(parent=...; text="aardio Form";right=349;bottom=249 )
winform.add(  )
/*}}*/


winform.show()

winform.wndproc = function(hwnd,message,wparam,lparam){
    select(message) {//判断消息类型
        case 0x10/*_WM_CLOSE窗口关闭消息*/{
            if(win.msgboxTest("你要关闭窗口么?","询问")=false){
                return wparam;
            }
        }
        
    }
    //无返回值则继续调用默认回调函数
}

win.loopMessage();
return winform;