(XD::DCL:ImageFillColor)Image控件填色

Free-Lancer

1. (defun XD::DCL:ImageFillColor (_$klst _$color / _imagefillcolor)
   
2.   (defun _imagefillcolor (key color / x y)
   
3.     (setq x (dimx_tile key)
   
4.           y (dimy_tile key)
   
5.     )
   
6.     (start_image key)
   
7.     (fill_image 0 0 x y color)
   
8.     (slide_image 0 0 x y key)
   
9.     (end_image)
   
10.   )
    
11.   (if (listp _$klst)
    
12.     (while _$klst
    
13.       (if (= (type _$color) 'INT)
    
14.         (_imagefillcolor (car _$klst) _$color)
    
15.         (if _$color
    
16.           (progn
    
17.             (_imagefillcolor (car _$klst) (car _$color))
    
18.             (setq _$color (cdr _$color))
    
19.           )
    
20.           (_imagefillcolor (car _$klst) 0)
    
21.         )
    
22.       )
    
23.       (setq _$klst (cdr _$klst))
    
24.     )
    
25.     (_imagefillcolor _$klst _$color)
    
26.   )
    
27. )

(defun XD::DCL:ImageFillColor (_$klst _$color / _imagefillcolor)<br />   (defun _imagefillcolor (key color / x y)<br />     (setq x (dimx_tile key)<br />           y (dimy_tile key)<br />     )<br />     (start_image key)<br />     (fill_image 0 0 x y color)<br />     (slide_image 0 0 x y key)<br />     (end_image)<br />   )<br />   (if (listp _$klst)<br />     (while _$klst<br />       (if (= (type _$color) 'INT)<br />         (_imagefillcolor (car _$klst) _$color)<br />         (if _$color<br />           (progn<br />             (_imagefillcolor (car _$klst) (car _$color))<br />             (setq _$color (cdr _$color))<br />           )<br />           (_imagefillcolor (car _$klst) 0)<br />         )<br />       )<br />       (setq _$klst (cdr _$klst))<br />     )<br />     (_imagefillcolor _$klst _$color)<br />   )<br /> )