如何混合两个颜色?(50分)

A

aKnightChen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-21

• #1

function getMidColor(Color1,Color2:TColor):TColor
begin
//混合两个颜色
简单地混合即可，
比如把红色和白色混合，希望得到淡红色
end;


哪位大哥指点一下。
小弟先谢谢了。

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-21

• #2

最简单的方法

function getMidColor(Color1,Color2:TColor):TColor
begin
Result:= (Color1 div 2) + (Color2 div 2);
end;

 

X

xifengge

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-21

• #3

先把color转换成RGB，然后对red green blue分量求平均，再转回 TColor即可。

 

A

aKnightChen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-21

• #4

接受答案了.