RGB (TColor) til RYB (Red Yellow Blue) og omvendt

Du mener sikkert RGB (ref, green, blue)

En Delphi tcolor er en 32bit integer pakket med 3* 8 bit for de tre farver.

Nedenstående er et klip fra et af mine programmer - jeg håber du kan bruge det som inspiration:



type
  trgb = record r, g, b: byte end;


function colorvalue(rgb: trgb): tcolor;
begin
  with rgb do colorvalue := (b shl 8 + g) shl 8 + r;
end;

function rgbvalue(rgb: trgb): string;
begin
  with rgb do
  rgbvalue := 'RGB=('+long2strs(r)+','+long2strs(g)+','+long2strs(b)+')';
end;

procedure color2rgb(c: tcolor; var rgb: trgb);
begin
  with rgb do
  begin
    r := c and $ff; c := c shr 8;
    g := c and $ff; c := c shr 8;
    b := c and $ff;
  end;
end;

Jeg mener Rød Gul Blå, og ved godt, at det ikke lige er at finde i nogen skærm-standard...

Jeg vil kunne arbejde med komplementær-farver - læs evt. her: http://www.html.dk/artikler/00021/

Hvad med om du konventerede dine RGB vaerdier til CMYK (Cyan Magenta Yellow Key)


Function CMYK(c, m, y, k: Byte): COLORREF;

Similar to RGB function but for CMYK color coordinates.

GetCMYCK color

Function GetCValue(cmyk: COLORREF): Byte;
Function GetMValue(cmyk: COLORREF): Byte;
Function GetYValue(cmyk: COLORREF): Byte;
Function GetKValue(cmyk: COLORREF): Byte;

Der kan du snuppe din Gule farve vaerdi, ogsaa ellers tage R og B fra din RGB farve....

Held og Lykke
ZeroHero

zerohero -> Det tvivler jeg på, da man også kan få Y-værdien i CMYK på følgende måde:

CMYK.Y := 255 - GetBValue(RGBColorRef);

De data der ligger i G-værdien i RGB-farven vil derfor "forsvinde" ved konverteringen...

Lukketid :-(