그래픽 카드가 RGB or BGR 지원 하는지 체크하기

개념 : 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;