Color Picker Dialog

[Penguin]

How Can I add a color picker Dialog? :sign0085:

 

[NJDude]

You need THIS library.

 

[Jost aus Soest]

I have encapsulated the using of the Dialogs Library's ColorPickerDialog:

Sub Dialog_ColorPicker(Title As String, Default As Long) As Long

   Dim dlg As ColorPickerDialog
   Dim res As Int

   dlg.RGB = Default
   res = dlg.Show(Title, "OK", "", "", Null)
   If res = DialogResponse.POSITIVE Then
      Return dlg.RGB
   Else
      Return Default
   End If

End Sub

 

[tdocs2]

Very good ColorPicker example

Thank you, Jost.

Your example saved me time with experimenting with the ColorPicker...

Best regards.