' Color chooser dialog example
'$INCLUDE "RAPIDQ.INC"
$INCLUDE "\rapidq\examples\OBJECT\QCOLORDIALOG.INC"
$TYPECHECK ON

DECLARE SUB ButtonClick (Sender AS QBUTTON)

dim Dial as QColorDialog

CREATE Form AS QFORM
    CREATE Button AS QBUTTON
        Width = 100
        Caption = "Choose color"
        OnClick = ButtonClick
    END CREATE
    Center
END CREATE
form.ShowModal


SUB ButtonClick (Sender AS BUTTON)

    Dial.caption="Select color"
    if Dial.Execute then
      Form.Color=Dial.Color
      Form.Caption=Hex$(Dial.Color)
    end if
END SUB