如何把TColor中的Blue,Green和Red的值提出来(50分)

J

jackyzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-05

• #1

如何把TColor中的Blue,Green和Red的值提出来

 

G

goldbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-05

• #2

var t:tcolor;
r,g,b:byte;

t:=clred;
r:=getRvalue(t);
g:=getGvalue(t);
b:=getBvalue(t);

 

车

车金明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-05

• #3

是的

 

S

sonie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-05

• #4

function GetRValue(rgb: DWORD): Byte;
begin
Result := Byte(rgb);
end;

function GetGValue(rgb: DWORD): Byte;
begin
Result := Byte(rgb shr 8);
end;

function GetBValue(rgb: DWORD): Byte;
begin
Result := Byte(rgb shr 16);
end;

 

J

jackyzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-05

• #5

多人接受答案了。