XPcolor()
 Define the colors to use in the routines
------------------------------------------------------------------------------

   Function:   XPcolor()

                The equivalent of SetColor(), for these routines.

                There are allways 4 colors active. <Normal>, <Inverse>,
                <Bold>, <BoldInverse>.

                XPcolor() takes the string from SetColor() or as supplied,
                then converts them to attributes to be used further by the
                User Interface routines. The settings taken from the SetColor()
                string are <Standard>, <Enhanced>, <BackGround> and
                <Unselected> respectively.

   Syntax:     XPcolor([cColor]) --> aColor

   Arguments:  cColor defaults to SetColor().

   Returns:    The current setting of the 5 colors as an array.
                (3rd Color is always ignored, the <Border> setting
                originally)

   Usage:      It's Source code:

                Static aColor   := {7,112,0,15,112}
                // default values

                Function XPcolor(cColor)
                /***
                * Returns an Array with 5 values as
                * a Color String
                */
                Local aTemp
                Local i
                default cColor to SetColor()
                aTemp := XPaDelimit(cColor,',')
                For i := 1 to Len(aTemp)
                      aColor[i] := XPclr2attr(aTemp[i])
                Next
                Return (aColor)