| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
[新規作成] [最新の情報に更新]
|
|
|
|
|
|
Delphi Tips
0116 D1 D2 D3 D4 D5 D6 D7 3.1 95 98 作成： 1999/02/08 osamu rev 1.1 B1 B3 B4 B5 B6 B7 NT3 NT4 2K XP 更新： 1999/02/08 osamu 編集
TColor を RGB 値へ変換する
下のような関数を作ればよいです。
procedure ColorToRGB(c: TColor; var r,g,b: Byte);
var IntColor: Integer;
begin
IntColor:= ColorToRGB(c);
r:= GetRValue(IntColor);
g:= GetGValue(IntColor);
b:= GetBValue(IntColor);
end;
参照： [builder:6369] <画像>
[新規作成] [最新の情報に更新]
How To
Lounge
KeyWords
Osamu Takeuchi osamu@big.or.jp
Tips
Delphi
Home