%ffp

Title:"Color picker test"
Category:"FM Test"
Author:"Alex Hunter"
Organization:"AFH Systems Group"
Copyright:"(c) 1999, AFH Systems Group"
URL:"http://www.filtermeister.com"
Filename:"Color picker test.8bf"

ctl(0):OWNERDRAW(staticedge),size=(20,20),pos=(220,10),
        range=(0, 0xffffff),
        color=fgColor,val=fgColor,
        action=preview,
        tooltip="Choose foreground color"

ctl(1):OWNERDRAW(staticedge),size=(20,20),pos=(250,10),
        range=(0, 0xffffff),
        color=bgColor,val=bgColor,
        action=preview,
        tooltip="Choose background color"

//clicking an OWNERDRAW control sets val=1,
//so we need to save the color value in some
//dummy controls...
ctl(2):OWNERDRAW,invisible,disabled,
       range=(0, 0xffffff),val=fgColor

ctl(3):OWNERDRAW,invisible,disabled,
       range=(0, 0xffffff),val=bgColor

onCtl(n):{
    int color;
    if ((n == 0 || n == 1) && e == FME_CLICKED) {
        //Info("ctl(%d) = %6.6x", n+2, ctl(n+2));
        color = chooseColor(ctl(n+2),
                (n == 0) ? "Choose foreground color:" :
                           "Choose background color:");
        if (color != -1) {
            setCtlColor(n, color);
            setCtlVal(n+2, color);
        }
    }

return false;
} //OnCtl

ForEveryPixel: {
    if ( y < Y/4) {
        R = mix2(Rval(ctl(3)), Rval(ctl(2)), x, X);
        G = mix2(Gval(ctl(3)), Gval(ctl(2)), x, X);
        B = mix2(Bval(ctl(3)), Bval(ctl(2)), x, X);
    }

} //ForEveryPixel