QColorDialog Composant

QColorDialog Proprietés

Champs	Type	L/E	Defaut
Customer	Array of LONG	LE	&HFFFFFF
	Defini la valeur des 16 couleurs perso.
RgbColor	LONG	L
	Valeur couleur selectionnée.
Full	INTEGER	LE	False
	Affichage du réglage de couleur.

QColorDialog Methodes

Methode	Type	Description	Parametres
Execute	FUNCTION(form as QFORM)	Ouvre la boite de dialogue,retourne True si selection	1
Init	SUB	Initialise les couleurs perso a 0	0

QColorDialog Evenements

Evenement	Type	Déclenchement	Parametres

QColorDialog Exemples

' Color chooser dialog example
$INCLUDE "RAPIDQ.INC"
$INCLUDE "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
   dial.customer(1)=&HFF0000
   dial.customer(2)=&H00FF00
   dial.customer(3) = &H0000FF
   dial.customer(4) = &HFF00FF
   dial.customer(5) = &H00FFFF
   dial.customer(6) = &HFFFFFF
   dial.customer(7) = &H559911
   dial.customer(8) = &HEE44BB
   dial.customer(9) = &HBB44EE
   dial.customer(10) = &H115599
   dial.customer(11) = &H333333
   dial.customer(12) = &H666666
   dial.customer(13) = &H999999
   dial.customer(14) = &HABABAB
   dial.customer(15) = &HDDDDDD
   dial.customer(16) = &H550000
   form.ShowModal


SUB ButtonClick (Sender AS BUTTON)
    Dial.full=true
    if Dial.Execute(form) then
      Form.Color=Dial.RgbColor
    end if
END SUB