[NumLock]

Сообщение от Klassenas

Взоможно ли в delphi вместо кодировки RGB использовать RYB(red yellow blue), если да, то как это делается?

а CMYK не подойдет? а то "Win 32 SDK Reference":

The CMYK macro creates a CMYK color value by combining the specified cyan, magenta, yellow, and black values.
COLORREF CMYK(
c,
m,
y,
k
);
See Also
GetCValue, GetMValue, GetKValue, GetYValue

Windows.pas:

Код:

function GetKValue(cmyk: COLORREF): Byte;
begin
  Result := Byte(cmyk);
end;

function GetYValue(cmyk: COLORREF): Byte;
begin
  Result := Byte(cmyk shr 8);
end;

function GetMValue(cmyk: COLORREF): Byte;
begin
  Result := Byte(cmyk shr 16);
end;

function GetCValue(cmyk: COLORREF): Byte;
begin
  Result := Byte(cmyk shr 24);
end;

function CMYK(c, m, y, k: Byte): COLORREF;
begin
  Result := (k or (y shl 8) or (m shl 16) or (c shl 24));
end;

имхо, по аналогии можно и для RYB написать...