XProfan

Español

Descripción:

ChooseColor zeigt una Farbauswahldialog a y liefert el ausgewählte Farbe zurück.

Deklaration:

Def ChooseColor(1) !COMDLG32,ChooseColorA

Parámetro:

1.Parámetro: Struktur oder 32 Byte Bereichsvariable =>
Byte 0-3 = Longitud des Bereiches en Bytes como LongInt.
Byte 4-7 = Das Handle la ventana, en el el Diálogo producido voluntad se.
Byte 8-11 = Wenn como Flag $40 gesetzt wurde, es hier el Handle des Speicherobjektes, el el neue Dialogmaske enthält. Wenn como Flag $20 gesetzt wurde, es hier el Handle des Moduls con el Dialogmaske con el Dialogtitel, el en Byte 28 festgelegt se.
Byte 12-15 = Als Entrada una Farbwert, el standardmäßig ausgewählt se. Kehrt el Función zurück, es hier el Farbwert el gewählten Farbe.
Byte 16-19 = Zeiger en una 64 Byte große Bereichsvariable, el como LongIntwerte el Farbwerte el Farbauswahlboxen enthält.
Byte 20-23 = Flags a Initialisierung des Dialoges =>
$100 = Anwender kann todos Farben wählen
$10 = Noticias a el Diálogo puede con el Procedimiento a Byte 28 abgefangen voluntad.
$20 = Neue Dialogbox Maske se benutzt y befindet se en Modul a Byte 8. Der Name es a Byte 28.
$40 = Benutzte Maske para el Diálogo con los el Handle en Byte 8.
$2 = Vollauswahl aller Farben Mostrar.
$4 = Deaktiviert el Button para Öffnen el Dialogbox-Erweiterung.
$1 = Vorgabe uno Standard-Farbe.
$8 = Ayuda-Button Mostrar.
$80 = Nur Grundfarben auswählbar.

Rückgabewert:

Wenn User OK geklickt ha, ungleich 0. Sonst 0.

Beispiele:

Kompilieren Marca Separación

Def ChooseColor(1) !"COMDLG32","ChooseColorA"
Declare ChooseColor#,CustomColors#,Colors&[16],Button&,OK&

Proc ColorDialog

    Parameters color&,options&,inifile$,Result&,Name$
    Declare i%
    Dim ChooseColor#,36
    Dim CustomColors#,64
    SetTrueColor 1

    While 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=3 CC_RGBINIT(1) + CC_FULLOPEN(2)
    Long ChooseColor#,24=0
    Long ChooseColor#,28=0
    Let Name$="Fensterfarbe wählen!"
    Long ChooseColor#,32=0
    LET OK&=@ChooseColor(ChooseColor#)

    If OK&<>0

        Let i%=0

        While lt(i%,16)

            Let Colors&[i%]=long(CustomColors#,mul(i%,4))
            Inc i%

        Wend

    EndIf

    Let Result&=@LONG(ChooseColor#,12)
    Dispose ChooseColor#
    Dispose CustomColors#
    Return Result&

EndProc

Windowstyle 31
WindowTitle "Farbe auswählen"
Window 0,0-640,440
Settruecolor 1
Let Button&=@Createbutton(%HWND,"Farbe wählen",20,300,200,30)

While 0=0

    WaitInput

    IF @Getfocus(Button&)

        ColorDialog
        Case OK&<>0 : CLS @&(0)

    endif

=s4 href='./../../function-references/XProfan/wend/'>Wend