XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Farbauswahldialog Mostrar y abfragen
Def Choosecolor(1) !COMDLG32,ChooseColorA
Declarar Choosecolor#,Customcolors#,Colors&[16],Button&,Ok&

Proc Colordialog

    Parámetros Color&,Options&,Inifile$,Result&,Name$
    Declarar I%
    Dim Choosecolor#,36
    Dim Customcolors#,64
    Settruecolor 1

    Mientras que Lt(I%,16)

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

    Wend

    Largo Choosecolor#,0=36
    Largo Choosecolor#,4=Getactivewindow()
    Largo Choosecolor#,8=0
    Largo Choosecolor#,12=Rgb(192,192,192)
    Largo Choosecolor#,16=Customcolors#
    Largo Choosecolor#,20=3CC_RGBINIT(1) + CC_FULLOPEN(2)
    Largo Choosecolor#,24=0
    Largo Choosecolor#,28=0
    Let Name$=Fensterfarbe wählen!
    Largo Choosecolor#,32=0
    Let Ok&=@Choosecolor(Choosecolor#)

    If Ok&<>0

        Let I%=0

        Mientras que Lt(I%,16)

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

        Wend

    Endif

    Let Result&=@Largo(Choosecolor#,12)
    Disponer Choosecolor#
    Disponer Customcolors#
    Volver Result&

ENDPROC

Windowstyle 31
Windowtitle Farbe auswählen
Ventana 0,0-640,440
Settruecolor 1
Let Button&=@Createbutton(%Hwnd,Farbe wählen,20,300,200,30)

Mientras que 0=0

    Waitinput

    If @Getfocus(Button&)

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

    Endif

Wend