Q&A

  • image1 에서 있는 이미지의 RGB 값구하는방법
1.image1 ,  edit1.text 있습니다
2.프로그램을 실행하고 마우스를 올리면 에디트에  RGB 값을 구하려고 하는데 어떤코딩이 들어 가는지 아시는분은 조언부탁드립니다
비슷한 소스라든지 있어시면 badugia@yahoo.co.kr 메일이나 답변 부탁드립니다..
1  COMMENTS
  • Profile
    석주현 2003.08.27 10:37

    ///////////////////

    이미지 위에 마우스 무브 이벤트에 아래와 같이 코딩하시면 됩니다.

    procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    var
      tmp_Color : Integer;
    begin
      tmp_Color := Image1.Canvas.Pixels[x,y];

      Edit1.Text := format('R[%2X] G[%2X] B[%2x]'
                                   ,[tmp_Color and $FF,
                                    (tmp_Color and $FF00)shr 8,
                                    (tmp_Color and $FF0000)shr 16]);
    end;

    그럼 참고하세요..