XProfan

window 400,400
 $H Windows.ph
usermessages 16
var Ini$="X:Test.ini"************************* Pfad bitte anpassen!

proc ChooseColor2---------------------------------------ChooseColor2

    parameters rgb#
    declare a#:dim a#,36--CHOOSECOLOR
    var Color&=long(rgb#,64)
    long a#,0=36,%hwnd,0,Color&,rgb#,11
    Color&=if(external("comdlg32","ChooseColorA",a#),long(a#,12),-1)
    case Color&>=0:long rgb#,64=Color&
    dispose a#
    return Color&
    endproc-------------------------------------------------------------
    declare b#:dim b#,64+4--Array für 16 benutzerdefinierte Farben + gewählte Farbe
    var Result&=~GetPrivateProfileStruct("Config","Color",b#,68,addr(Ini$))

    ifnot Result&----------Vorgaben, falls Ini noch nicht vorhanden

        long b#,0=$FFDDDD,$DDFFDD,$DDDDFF,$FFFFDD,$FFDDFF,$DDFFFF--Definierte Farben
        long b#,64=$F0F0F0--Aktuelle Farbe

    endif

    cls long(b#,64)--zuletzt gewählte Farbe, gelesen aus Ini

    while 1

        waitinput
        case %umessage=16:break
        Result&=ChooseColor2(b#)
        case Result&>=0:cls Result&

    endwhile

    ~WritePrivateProfileStruct("Config","Color",b#,68,addr(Ini$))