XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Farbauswahldialog anzeigen
Lauffähig ab Profan-Version 6.6
Systemfarben-Dialog mit Profan nutzen
PRFellow-Vorlage
Autor: Thomas Hölzer
Optionen (Kombination durch Addition, soweit sinnvoll)
CC_RGBINIT = 1; Dialog wird mit der benutzerdef. Farbe initialisiert
CC_FULLOPEN = 2; Dialog beim Starten ausgeklappt
CC_PREVENTFULLOPEN = 4; Ausklappen ist gesperrt
CC_SHOWHELP = 8; Zusätzlichen Hilfebutton anzeigen
CC_SOLIDCOLOR = 128; Nur Grundfarben
CC_ANYCOLOR = 256;   Alle Farben
Def ChooseColor(1) !COMDLG32,ChooseColorA
Declare ChooseColor#,CustomColors#,Colors&[16]

Proc ColorDialog

    Parameters color&,options&,inifile$
    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=11 CC_RGBINIT(1) + CC_FULLOPEN(2) + CC_SHOWHELP(8) = 11;
    Long ChooseColor#,24=0
    Long ChooseColor#,28=0
    Long ChooseColor#,32=0

    If Neq(ChooseColor(ChooseColor#),0)

        Let i%=0

        While lt(i%,16)

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

        Wend

    EndIf

    Dispose ChooseColor#
    Dispose CustomColors#

EndProc

Cls
ColorDialog
WaitInput