Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[1476] [해결] 이미지의 각 픽셀에 대한 RGB값을 추출
yoonsnet [ ] 3322 읽음    1998-02-20 10:38

   안녕하세요...
   처음으로 천리안, 프로그래머 동호회에 글을 올리는군요.

   제가 이렇게 고쳐봤는데요,

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
   Rgb : Colorref;
begin
     rgb :=GetPixel (Image1.Canvas.Handle,x,y);
     ShowMessage(Format('RGB(%d,%d,%d)', [GetRValue(rgb),GetGValue(rgb),GetBValue(rgb)]));
end;

   여기서, var aa: HDC 를 지웠습니다.
   왜냐하면 Image1.Canvas.Hnadle이 바로 HDC 핸들이기 때문이죠...
   그리고 Image1에 마우스를 누를때의 x, y좌표로 색을 구하고 보여주는 것이죠.
   그럼...


+ -

관련 글 리스트
1476 [해결] 이미지의 각 픽셀에 대한 RGB값을 추출 yoonsnet 3322 1998/02/20
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.