!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     "

