### Sample InputList select standard color 2

'Example InputList select standard color 2
'Select a standard color
'Returns Color selected as Paint value
'Example: fx.Colors.Blue
`Sub ColorChooser2Ex_Action
Dim b As Button = Sender
Dim rt As Int = fx.InputList(Null, ColorList, "Select a color from the list of standard colors", b.Text, -1)
If rt <> fx.DialogResponse.CANCEL Then
labelInformation.Text = "You have selected Button " & CRLF & b.Text
FillStandardColorsMap
fx.Msgbox(Null, "Color selected: " & StandardColorsMap.Get(ColorList.Get(rt)), "Result " & b.Text)
End If
End Sub`
`Private Sub FillStandardColorsMap
StandardColorsMap.Initialize
StandardColorsMap.Put("Black", fx.Colors.Black)
StandardColorsMap.Put("Blue", fx.Colors.Blue)
StandardColorsMap.Put("Cyan", fx.Colors.Cyan)
StandardColorsMap.Put("DarkGray", fx.Colors.DarkGray)
StandardColorsMap.Put("Green", fx.Colors.Green)
StandardColorsMap.Put("LightGray", fx.Colors.LightGray)
StandardColorsMap.Put("Magenta", fx.Colors.Magenta)
StandardColorsMap.Put("Red", fx.Colors.Red)
StandardColorsMap.Put("Transparent", fx.Colors.Transparent)
StandardColorsMap.Put("Yellow", fx.Colors.Yellow)
StandardColorsMap.Put("White", fx.Colors.White)
End Sub`

Changed: , Category: MsgBox and InputList, File: T6C222M1640.htm, ID: 1640