怎样把控件的COLOR值转换为RGB值，比如255 255 255？(50分)

H

hlsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-05

• #1

怎样把控件的COLOR值转换为RGB值，比如255 255 255？

 

F

flash6

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-05

• #2

function ColorToRGB

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-05

• #3

function TEMSWebModule.RGBColor(Color: TColor): string;
var
RValue, GValue, BValue: integer; //RGB颜色值
begin
RValue := GetRValue(Color);
GValue := GetGValue(Color);
BValue := GetBValue(Color);
Result := 'RGB(' + IntToStr(RValue) + ',' + IntToStr(GValue) +
',' + IntToStr(BValue) + ')';
end;

 

C

cbdiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-05

• #4

var
c:tcolor;
begin
c:=edit1.Color;
showmessage(inttostr(getRvalue(c)));
showmessage(inttostr(getGvalue(c)));
showmessage(inttostr(getBvalue(c)));

 

H

hlsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #5

GetRValue对一些COLOR为clwindow没有作用，返回的是值“4,0,0”，根本不是RGB值！
怎么办？

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #6

学习！

 

公

公孙剑影

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #7

你选值的时候.可以先判断一下是不是Tcolor类型.
假如color的值大于0就是..如果不大于0就不是..
比如clwindow的值就是-2147483633
而clWhite的值就是16777215
然后 ColorToRGB(color)就可以啦.

 

H

hlsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-08

• #8

当COLOR为clWindow时，怎么把clwindow变成RGB呢？

 

I

ili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-08

• #9

收藏~~