개념 : 1픽셀 점에 clRed(FF)를 그린후 그 픽셀의 데이터 값이 FF인지 FF0000인지 비교한다.
FF이면 BGR이고 FF0000이면 RGB이다.
소스 :
var
BMP : TBitmap;
P : PDWORD;
begin
BMP := TBitmap.Create;
BMP.PixelFormat := pf32bit;
BMP.Width := 1;
BMP.Height := 1;
BMP.Canvas.Pixels[0,0] := clRed;
P := BMP.ScanLine[0];
if P^ = $FF then
//BGR 지원
else
//RGB 지원
end;
BMP.Free;
end;
FF이면 BGR이고 FF0000이면 RGB이다.
소스 :
var
BMP : TBitmap;
P : PDWORD;
begin
BMP := TBitmap.Create;
BMP.PixelFormat := pf32bit;
BMP.Width := 1;
BMP.Height := 1;
BMP.Canvas.Pixels[0,0] := clRed;
P := BMP.ScanLine[0];
if P^ = $FF then
//BGR 지원
else
//RGB 지원
end;
BMP.Free;
end;
'Computer > Delphi' 카테고리의 다른 글
| 유니코드 변환 코드 (5) | 2003.12.17 |
|---|---|
| DLL 호출 관련 정리(임시) (16) | 2003.12.14 |
| 테이블에 트랜잭션과 파라미터 이용해서 인서트 (2) | 2003.11.16 |
| TColor 값을 HTML color 로 변경하는 코드 (2) | 2003.05.14 |
| HTML에 문자 추가하기 (154) | 2003.05.09 |
| C의 Union과 비슷하게 Record로 가변 타입 만들기 (158) | 2003.04.24 |
| 메모리 복사하기 (2) | 2003.04.23 |
| 델파이에서 WM_COPYDATA 이용한 데이타 전달 (2) | 2003.04.15 |
| 델파이에서 사용자 정의 메시지 및 프로시져 추가 (2) | 2003.04.15 |
| 프로그램 중복 실행 방지(한번만 실행되게.) (2) | 2003.04.15 |
