DCL对话框透明效果——API应用1

yxp

LISP+DWX 可调用 Windows API   几乎无所不能，以下代码实现窗口透明。

dwx 插件请搜索本论坛下载。

1. ;;DCL 窗口透明化示例
   
2. ;; by. yxp_xa   2018年6月22日
   
3. (defun c:sss( / k)
   
4. (setq dcl_id (load_dialog "sss.dcl"))
   
5. (if (not (new_dialog "sss" dcl_id))(exit))
   
6. (setq k "S01" px (dimx_tile k) py (dimy_tile k))
   
7. (start_image k)
   
8. (fill_image 0 0 px py 181)
   
9. (end_image)
   
10. (action_tile "S02" "(fun_s_02)")
    
11. (setq next (start_dialog))
    
12. (unload_dialog dcl_id)
    
13. (princ)
    
14. )
    
15. 
    
16. 
    
17. ;;透明
    
18. (defun fun_s_02()
    
19. (setq DWX (vlax-create-object "DynamicWrapperX"))
    
20. (vlax-invoke DWX 'Register "user32" "FindWindowExW" "i=hhhw" "r=m")
    
21. (vlax-invoke DWX 'Register "user32" "GetWindowLongW" "i=hl" "r=l")
    
22. (vlax-invoke DWX 'Register "user32" "SetWindowLongW" "i=hll" "r=l")
    
23. (vlax-invoke DWX 'Register "user32" "SetLayeredWindowAttributes" "i=hlbl" "r=b")
    
24. (setq dcl (vlax-invoke DWX 'FindWindowExW 0 0 0 "DCL窗口透明示例"))
    
25. (setq Ele (vlax-invoke DWX 'GetWindowLongW dcl -20))
    
26. (vlax-invoke DWX 'SetWindowLongW dcl -20 (Boole 6 Ele 524288))
    
27. (vlax-invoke DWX 'SetLayeredWindowAttributes dcl 16744351 10 1)
    
28. )
    
29. 
    
30. (princ)

;;DCL 窗口透明化示例<br /> ;; by. yxp_xa   2018年6月22日<br /> (defun c:sss( / k)<br /> (setq dcl_id (load_dialog "sss.dcl"))<br /> (if (not (new_dialog "sss" dcl_id))(exit))<br /> (setq k "S01" px (dimx_tile k) py (dimy_tile k))<br /> (start_image k)<br /> (fill_image 0 0 px py 181)<br /> (end_image)<br /> (action_tile "S02" "(fun_s_02)")<br /> (setq next (start_dialog))<br /> (unload_dialog dcl_id)<br /> (princ)<br /> )<br /> <br /> <br /> ;;透明<br /> (defun fun_s_02()<br /> (setq DWX (vlax-create-object "DynamicWrapperX"))<br /> (vlax-invoke DWX 'Register "user32" "FindWindowExW" "i=hhhw" "r=m")<br /> (vlax-invoke DWX 'Register "user32" "GetWindowLongW" "i=hl" "r=l")<br /> (vlax-invoke DWX 'Register "user32" "SetWindowLongW" "i=hll" "r=l")<br /> (vlax-invoke DWX 'Register "user32" "SetLayeredWindowAttributes" "i=hlbl" "r=b")<br /> (setq dcl (vlax-invoke DWX 'FindWindowExW 0 0 0 "DCL窗口透明示例"))<br /> (setq Ele (vlax-invoke DWX 'GetWindowLongW dcl -20))<br /> (vlax-invoke DWX 'SetWindowLongW dcl -20 (Boole 6 Ele 524288))<br /> (vlax-invoke DWX 'SetLayeredWindowAttributes dcl 16744351 10 1)<br /> )<br /> <br /> (princ)

源码下载：

dwx自动注册工具下载：

yxp

原理很简单，天气预报背景地图和卫星云图就是后期做的，记得有一次女主持人穿了和背景幕布相近颜色的裙子，结果裙子也被半透明了，会声会影软件就有这个功能。

具体到数字算法就是颜色数的异或运算，(boole 6 x hex80000)，本例中背景索引颜色是181，转换为真彩色是16744351，可以用函数 dcl-GetOLEColorValue （OpenDCL 函数）或自定义函数进行转换。16进制80000（API 常数）转换为十进制524288。异或运算时，相近的颜色数 x 也会被计算到透明色（或阿尔法通道）附近，这就是透明度的概念。0是全透明，300(好像)是不透明，代码中颜色数后面的参数10就是透明度，所以裙子颜色如果和背景颜色相近，颜色数相差小于300，就会被透明化。理解了这个， PS 软件的颜色通道和蒙版也就是这个原理。

本例子用了四个 API 函数：
FindWindowExW 函数可以获取 DCL 对话框的句柄；表示查找名字叫 “xxx” 的窗口，中文编码的 API 窗口函数后面都有个 W，英文编码后缀是 A，所以本例子不能在英文版系统下运行，如果需要可以，用 API 判断窗口是 ANSI 还是 Unicode 编码，再调用对应的 API 函数。
GetWindowLongW 函数获取对话框属性的指针；
SetWindowLongW 函数设置窗口透明的扩展属性；窗口透明通道属性是 Win2000 才开始引入的，因此标准对话框没有这个属性，需要时可以特别添加，对应 API 参数为 -20 固定值，这些参数都可以百度到；
SetLayeredWindowAttributes 函数设置经过窗口透明通道的颜色数、透明度，第三个参数 1 表示用透明色，如果是 2 表示使用 阿尔法 通道来透明化。

BaoWSE

仰慕版主啊 感谢分享源码！保存备用中，因为现还是小白，领悟不到其中奥妙

ynhh

令:  SSS ; 错误: 参数类型错误: VLA-OBJECT nil

xiaotao

大神最近高产！

pengfei2010

调用 winapi 这个就强大太多了

taoyi0727

版主强大  还能做到这样 就是看不懂

jun353835273

DynamicWrapperX 控件能否实现多选文件

ntwison

版主强大  还能做到这样 就是看不懂

土木燃

仰慕版主啊 感谢分享源码！