Jak otrzymać składowe RGB danego koloru?

Użyj funkcji GetRValue, GetGValue oraz GetBValue, które zwracają kolejno natężenie barwy czerwonej, zielonej oraz niebieskiej:

var 
r , g , b : Byte ; 
begin 
r := GetRValue(jakis_kolor) ; 
g := GetGValue(jakis_kolor) ; 
b := GetBValue(jakis_kolor) ;

var

r , g , b : Byte ;

begin

r := GetRValue(jakis_kolor) ;

g := GetGValue(jakis_kolor) ;

b := GetBValue(jakis_kolor) ;

Autor: Iskar