OLE颜色指什么，和RGB、24位索引颜色的转换关系

namezg

OLE颜色指什么，和RGB、24位索引颜色的转换关系
下面的true提的是24位索引颜色吗

2. ;-----------------------------------------
   
3. (defun zg-OLE->True (OLE)
   
4. 
   
5.         (+
   
6.                 (lsh (lsh (lsh (fix OLE) 24) -24) 16)
   
7.                 (lsh (lsh (lsh (fix OLE) 16) -24)  8)
   
8.                 (lsh (lsh (fix OLE)  8) -24)
   
9.         )
   
10. )
    
11. (defun zg-True->OLE (Index)
    
12.         (+
    
13.                 (lsh (lsh (fix Index)  8) -24)
    
14.                 (lsh (lsh (lsh (fix Index) 16) -24)  8)
    
15.                 (lsh (lsh (lsh (fix Index) 24) -24) 16)
    
16.         )
    
17. )

;-----------------------------------------<br /> (defun zg-OLE->True (OLE)<br /> <br />         (+<br />                 (lsh (lsh (lsh (fix OLE) 24) -24) 16)<br />                 (lsh (lsh (lsh (fix OLE) 16) -24)  8)<br />                 (lsh (lsh (fix OLE)  8) -24)<br />         )<br /> )<br /> (defun zg-True->OLE (Index)<br />         (+<br />                 (lsh (lsh (fix Index)  8) -24)<br />                 (lsh (lsh (lsh (fix Index) 16) -24)  8)<br />                 (lsh (lsh (lsh (fix Index) 24) -24) 16)<br />         )<br /> )