!data (SysColors(i)%Val, i = 1,NSYSCOLORS) / &
SysColors(1)%Val   =  COLOR_SCROLLBAR          
SysColors(2)%Val   =  COLOR_BACKGROUND         
SysColors(3)%Val   =  COLOR_ACTIVECAPTION      
SysColors(4)%Val   =  COLOR_INACTIVECAPTION    
SysColors(5)%Val   =  COLOR_MENU               
SysColors(6)%Val   =  COLOR_WINDOW             
SysColors(7)%Val   =  COLOR_WINDOWFRAME        
SysColors(8)%Val   =  COLOR_MENUTEXT           
SysColors(9)%Val   =  COLOR_WINDOWTEXT         
SysColors(10)%Val   =  COLOR_CAPTIONTEXT        
SysColors(11)%Val   =  COLOR_ACTIVEBORDER       
SysColors(12)%Val   =  COLOR_INACTIVEBORDER     
SysColors(13)%Val   =  COLOR_APPWORKSPACE       
SysColors(14)%Val   =  COLOR_HIGHLIGHT          
SysColors(15)%Val   =  COLOR_HIGHLIGHTTEXT      
SysColors(16)%Val   =  COLOR_BTNFACE            
SysColors(17)%Val   =  COLOR_BTNSHADOW          
SysColors(18)%Val   =  COLOR_GRAYTEXT           
SysColors(19)%Val   =  COLOR_BTNTEXT            
SysColors(20)%Val   =  COLOR_INACTIVECAPTIONTEXT
SysColors(21)%Val   =  COLOR_BTNHIGHLIGHT     

!data (SysColors(i)%String, i = 1,NSYSCOLORS) / &
SysColors(1)%String  =  "COLOR_SCROLLBAR            "
SysColors(2)%String  =  "COLOR_BACKGROUND           "
SysColors(3)%String  =  "COLOR_ACTIVECAPTION        "
SysColors(4)%String  =  "COLOR_INACTIVECAPTION      "
SysColors(5)%String  =  "COLOR_MENU                 "
SysColors(6)%String  =  "COLOR_WINDOW               "
SysColors(7)%String  =  "COLOR_WINDOWFRAME          "
SysColors(8)%String  =  "COLOR_MENUTEXT             "
SysColors(9)%String  =  "COLOR_WINDOWTEXT           "
SysColors(10)%String  =  "COLOR_CAPTIONTEXT          "
SysColors(11)%String  =  "COLOR_ACTIVEBORDER         "
SysColors(12)%String  =  "COLOR_INACTIVEBORDER       "
SysColors(13)%String  =  "COLOR_APPWORKSPACE         "
SysColors(14)%String  =  "COLOR_HIGHLIGHT            "
SysColors(15)%String  =  "COLOR_HIGHLIGHTTEXT        "
SysColors(16)%String  =  "COLOR_BTNFACE              "
SysColors(17)%String  =  "COLOR_BTNSHADOW            "
SysColors(18)%String  =  "COLOR_GRAYTEXT             "
SysColors(19)%String  =  "COLOR_BTNTEXT              "
SysColors(20)%String  =  "COLOR_INACTIVECAPTIONTEXT      "
SysColors(21)%String  =  "COLOR_BTNHIGHLIGHT         "

!/* GetSystemMetrics() codes from WINUSER.H */

 
!data (SystemMetrics(i)%Val, i= 1, NSYSMETRICS) / &
SystemMetrics(1)%Val   =  SM_CXSCREEN         
SystemMetrics(2)%Val   =  SM_CYSCREEN         
SystemMetrics(3)%Val   =  SM_CXVSCROLL        
SystemMetrics(4)%Val   =  SM_CYHSCROLL        
SystemMetrics(5)%Val   =  SM_CYCAPTION        
SystemMetrics(6)%Val   =  SM_CXBORDER         
SystemMetrics(7)%Val   =  SM_CYBORDER         
SystemMetrics(8)%Val   =  SM_CXDLGFRAME       
SystemMetrics(9)%Val   =  SM_CYDLGFRAME       
SystemMetrics(10)%Val   = SM_CYVTHUMB         
SystemMetrics(11)%Val   = SM_CXHTHUMB         
SystemMetrics(12)%Val   = SM_CXICON           
SystemMetrics(13)%Val   = SM_CYICON           
SystemMetrics(14)%Val   = SM_CXCURSOR         
SystemMetrics(15)%Val   = SM_CYCURSOR         
SystemMetrics(16)%Val   = SM_CYMENU           
SystemMetrics(17)%Val   = SM_CXFULLSCREEN     
SystemMetrics(18)%Val   = SM_CYFULLSCREEN     
SystemMetrics(19)%Val   = SM_CYKANJIWINDOW    
SystemMetrics(20)%Val   = SM_MOUSEPRESENT     
SystemMetrics(21)%Val   = SM_CYVSCROLL        
SystemMetrics(22)%Val   =  SM_CXHSCROLL        
SystemMetrics(23)%Val   =  SM_DEBUG            
SystemMetrics(24)%Val   =  SM_SWAPBUTTON       
SystemMetrics(25)%Val   =  SM_RESERVED1        
SystemMetrics(26)%Val   =  SM_RESERVED2        
SystemMetrics(27)%Val   =  SM_RESERVED3        
SystemMetrics(28)%Val   =  SM_RESERVED4        
SystemMetrics(29)%Val   =  SM_CXMIN            
SystemMetrics(30)%Val   =  SM_CYMIN            
SystemMetrics(31)%Val   = SM_CXSIZE           
SystemMetrics(32)%Val   = SM_CYSIZE           
SystemMetrics(33)%Val   = SM_CXFRAME          
SystemMetrics(34)%Val   = SM_CYFRAME          
SystemMetrics(35)%Val   = SM_CXMINTRACK       
SystemMetrics(36)%Val   = SM_CYMINTRACK       
SystemMetrics(37)%Val   = SM_CXDOUBLECLK      
SystemMetrics(38)%Val   = SM_CYDOUBLECLK      
SystemMetrics(39)%Val   = SM_CXICONSPACING    
SystemMetrics(40)%Val   = SM_CYICONSPACING    
SystemMetrics(41)%Val   = SM_MENUDROPALIGNMENT
SystemMetrics(42)%Val   = SM_PENWINDOWS       
SystemMetrics(43)%Val   = SM_DBCSENABLED      
SystemMetrics(44)%Val   = SM_CMOUSEBUTTONS    

!data (SystemMetrics(i)%String, i= 1, NSYSMETRICS) / &
SystemMetrics(1)%String  =  "SM_CXSCREEN          "
SystemMetrics(2)%String  =  "SM_CYSCREEN          "
SystemMetrics(3)%String  =  "SM_CXVSCROLL         "
SystemMetrics(4)%String  =  "SM_CYHSCROLL         "
SystemMetrics(5)%String  =  "SM_CYCAPTION         "
SystemMetrics(6)%String  =  "SM_CXBORDER          "
SystemMetrics(7)%String  =  "SM_CYBORDER          "
SystemMetrics(8)%String  =  "SM_CXDLGFRAME        "
SystemMetrics(9)%String  =  "SM_CYDLGFRAME        "
SystemMetrics(10)%String  =  "SM_CYVTHUMB          "
SystemMetrics(11)%String  =  "SM_CXHTHUMB          "
SystemMetrics(12)%String  =  "SM_CXICON            "
SystemMetrics(13)%String  =  "SM_CYICON            "
SystemMetrics(14)%String  =  "SM_CXCURSOR          "
SystemMetrics(15)%String  =  "SM_CYCURSOR          "
SystemMetrics(16)%String  =  "SM_CYMENU            "
SystemMetrics(17)%String  =  "SM_CXFULLSCREEN      "
SystemMetrics(18)%String  =  "SM_CYFULLSCREEN      "
SystemMetrics(19)%String  =  "SM_CYKANJIWINDOW     "
SystemMetrics(20)%String  =  "SM_MOUSEPRESENT      "
SystemMetrics(21)%String  =  "SM_CYVSCROLL         "
SystemMetrics(22)%String  =  "SM_CXHSCROLL         "
SystemMetrics(23)%String  =  "SM_DEBUG             "
SystemMetrics(24)%String  =  "SM_SWAPBUTTON        "
SystemMetrics(25)%String  =  "SM_RESERVED1         "
SystemMetrics(26)%String  =  "SM_RESERVED2         "
SystemMetrics(27)%String  =  "SM_RESERVED3         "
SystemMetrics(28)%String  =  "SM_RESERVED4         "
SystemMetrics(29)%String  =  "SM_CXMIN             "
SystemMetrics(30)%String  =  "SM_CYMIN             "
SystemMetrics(31)%String  =  "SM_CXSIZE            "
SystemMetrics(32)%String  =  "SM_CYSIZE            "
SystemMetrics(33)%String  =  "SM_CXFRAME           "
SystemMetrics(34)%String  =  "SM_CYFRAME           "
SystemMetrics(35)%String  =  "SM_CXMINTRACK        "
SystemMetrics(36)%String  =  "SM_CYMINTRACK        "
SystemMetrics(37)%String  =  "SM_CXDOUBLECLK       "
SystemMetrics(38)%String  =  "SM_CYDOUBLECLK       "
SystemMetrics(39)%String  =  "SM_CXICONSPACING     "
SystemMetrics(40)%String  =  "SM_CYICONSPACING     "
SystemMetrics(41)%String  =  "SM_MENUDROPALIGNMENT "
SystemMetrics(42)%String  =  "SM_PENWINDOWS        "
SystemMetrics(43)%String  =  "SM_DBCSENABLED       "
SystemMetrics(44)%String  =  "SM_CMOUSEBUTTONS     "

