XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Farbauswahldialog Montrer et abfragen
Def Choosecolor(1) !COMDLG32,ChooseColorA
Déclarer Choosecolor#,Customcolors#,Colors&[16],Button&,Ok&

Proc Colordialog

    Paramètres Color&,Options&,Inifile$,Result&,nom$
    Déclarer I%
    Faible Choosecolor#,36
    Faible Customcolors#,64
    Settruecolor 1

    Tandis que Lt(I%,16)

        Long Customcolors#,Mul(I%,4)= Colors&[I%]
        Inc I%

    Wend

    Long Choosecolor#,0=36
    Long Choosecolor#,4=Getactivewindow()
    Long Choosecolor#,8=0
    Long Choosecolor#,12=Rgb(192,192,192)
    Long Choosecolor#,16=Customcolors#
    Long Choosecolor#,20=3CC_RGBINIT(1) + CC_FULLOPEN(2)
    Long Choosecolor#,24=0
    Long Choosecolor#,28=0
    Laisser nom$=Fensterfarbe choisir!
    Long Choosecolor#,32=0
    Laisser Ok&=@Choosecolor(Choosecolor#)

    Si Ok&<>0

        Laisser I%=0

        Tandis que Lt(I%,16)

            Laisser Colors&[I%]=Long(Customcolors#,Mul(I%,4))
            Inc I%

        Wend

    Endif

    Laisser Result&=@Long(Choosecolor#,12)
    Dispose Choosecolor#
    Dispose Customcolors#
    Retour Result&

ENDPROC

Windowstyle 31
Windowtitle la couleur auswählen
Fenêtre 0,0-640,440
Settruecolor 1
Laisser Button&=@Createbutton(%Hwnd,la couleur choisir,20,300,200,30)

Tandis que 0=0

    Waitinput

    Si @Getfocus(Button&)

        Colordialog
        Cas Ok&<>0 : Cls @&(0)

    Endif

Wend