Code: Alles auswählen

//RGB values from 0 to 255
//CMY results from 0 to 1

C = 1 - ( R / 255 )
M = 1 - ( G / 255 )
Y = 1 - ( B / 255 )

Code: Alles auswählen

//CMY values from 0 to 1
//RGB results from 0 to 255

R = ( 1 - C ) * 255
G = ( 1 - M ) * 255
B = ( 1 - Y ) * 255

Code: Alles auswählen

  procedure ColorPickerChange(R, G, B: Byte);
    var
    begin
        set_channel('R',-1,R,0);
        set_channel('G',-1,G,0);
        set_channel('B',-1,B,0);
    end;

Code: Alles auswählen

  procedure ColorPickerChange(R, G, B: Byte);
    var
      C, M, Y: Byte;
    begin
        C:=255-R;
        M:=255-G;
        Y:=255-B;

        set_channel('CYAN', -1, C, 0);
        set_channel('MAGENTA', -1, M, 0);
        set_channel('YELLOW', -1, Y, 0);
    end;