在窗口和按钮上使用视觉样式(windows视觉效果)对Gird列标题高度的影响

xinrstar

偶然发现，"在窗口和按钮上使用视觉样式(windows视觉效果)"会影响Gird列标题高度，勾选与不勾选"在窗口和按钮上使用视觉样式“。Gird列标题高度不一样，大概相差6像素。
影响Gird美观。

xinrstar

2. ;;十进制转二进制  来自明经
   
3. (defun try-10-to-2 (n / m x)
   
4.   (setq x "")
   
5.   (while (/= 0 n)
   
6.     (setq m (rem n 2)
   
7.           n (/ n 2)
   
8.           x (strcat (itoa m) x)
   
9.     )
   
10.   )
    
11.   (if (= "" x)
    
12.     "0"
    
13.     x
    
14.   )
    
15. )
    
16. ;;是否在窗口和按钮上使用了视觉样式(windows视觉效果)
    
17. (defun visual_styles (/ a a1)
    
18.   (setq        a  (try-10-to-2
    
19.              (caddr (vlax-invoke
    
20.                       (vlax-get-or-create-object "wscript.shell")
    
21.                       'regread
    
22.                       "HKEY_CURRENT_USER\\Control Panel\\Desktop\\UserPreferencesMask"
    
23.                     )
    
24.              )
    
25.            )
    
26.         a1 (strlen a)
    
27.   )
    
28.   (cond        ((= a1 1) nil)
    
29.         ((= a1 2) (= "1" (substr a 1 1)))
    
30.         ((= a1 3) (= "1" (substr a 2 1)))
    
31.   )
    
32. )
    

;;十进制转二进制  来自明经<br /> (defun try-10-to-2 (n / m x)<br />   (setq x "")<br />   (while (/= 0 n)<br />     (setq m (rem n 2)<br />           n (/ n 2)<br />           x (strcat (itoa m) x)<br />     )<br />   )<br />   (if (= "" x)<br />     "0"<br />     x<br />   )<br /> )<br /> ;;是否在窗口和按钮上使用了视觉样式(windows视觉效果)<br /> (defun visual_styles (/ a a1)<br />   (setq        a  (try-10-to-2<br />              (caddr (vlax-invoke<br />                       (vlax-get-or-create-object "wscript.shell")<br />                       'regread<br />                       "HKEY_CURRENT_USER\\Control Panel\\Desktop\\UserPreferencesMask"<br />                     )<br />              )<br />            )<br />         a1 (strlen a)<br />   )<br />   (cond        ((= a1 1) nil)<br />         ((= a1 2) (= "1" (substr a 1 1)))<br />         ((= a1 3) (= "1" (substr a 2 1)))<br />   )<br /> )<br />

pengfei2010

不错，楼主研究的深入

Lisphk

谢谢楼主分享，学到了