출처 : http://community.borland.com/article/0,1410,16878,00.html
개념 : TColor값을 ColorToRGB 함수를 이용해서 rgb값으로 변경한후 RGB 순으로 조합한다.
소스 :
procedure TForm1.Button1Click(Sender: TObject);
var
TheRgbValue : TColorRef;
begin
if ColorDialog1.Execute then begin
TheRgbValue := ColorToRGB(ColorDialog1.Color);
ShowMessage(Format('%.2x%.2x%.2x',
[GetRValue(TheRGBValue),
GetGValue(TheRGBValue),
GetBValue(TheRGBValue)]));
end;
end;
var
TheRgbValue : TColorRef;
begin
if ColorDialog1.Execute then begin
TheRgbValue := ColorToRGB(ColorDialog1.Color);
ShowMessage(Format('%.2x%.2x%.2x',
[GetRValue(TheRGBValue),
GetGValue(TheRGBValue),
GetBValue(TheRGBValue)]));
end;
end;
'Computer > Delphi' 카테고리의 다른 글
| URL에서 도메인 분리하기 (6) | 2005.07.10 |
|---|---|
| Visual Basic에서 만든 dll 호출하기 (14) | 2005.07.10 |
| 유니코드 변환 코드 (5) | 2003.12.17 |
| DLL 호출 관련 정리(임시) (16) | 2003.12.14 |
| 테이블에 트랜잭션과 파라미터 이용해서 인서트 (2) | 2003.11.16 |
| HTML에 문자 추가하기 (154) | 2003.05.09 |
| 그래픽 카드가 RGB or BGR 지원 하는지 체크하기 (153) | 2003.04.28 |
| C의 Union과 비슷하게 Record로 가변 타입 만들기 (158) | 2003.04.24 |
| 메모리 복사하기 (2) | 2003.04.23 |
| 델파이에서 WM_COPYDATA 이용한 데이타 전달 (2) | 2003.04.15 |
