Q&A
- 화면상의 마우스가 위치한 점의 색상을 얻어오려면 어떻게 해야 하나요
어떤 색상추출 프로그램을 모델삼아 만들어보려고 하는데요,
예를들면, 작은 폼 하나를 만든다음, 그 폼에서 마우스를 클릭한 후, 그상태로
마우스를 움직이면 모니터 화면상에서 마우스가 움직이는 자리(X,Y)의 색상을
얻어와, 그 색상으로 폼의 색상을 바꾸고 싶은데요..
어떤 함수를, 어떻게 써야 하는지 막막하기만 하네요.
GetRvalue, GetGvalue.. 이런걸 써야 하나요?
도움말을 봐도.. 영어가 짧아서.. 흑, 잘 모르겠네요.
도와주세요~~!
예를들면, 작은 폼 하나를 만든다음, 그 폼에서 마우스를 클릭한 후, 그상태로
마우스를 움직이면 모니터 화면상에서 마우스가 움직이는 자리(X,Y)의 색상을
얻어와, 그 색상으로 폼의 색상을 바꾸고 싶은데요..
어떤 함수를, 어떻게 써야 하는지 막막하기만 하네요.
GetRvalue, GetGvalue.. 이런걸 써야 하나요?
도움말을 봐도.. 영어가 짧아서.. 흑, 잘 모르겠네요.
도와주세요~~!
4
COMMENTS
-
-
먼저 친절하신 답변 감사드립니다. 꾸벅,
근데요.. 폼 내부의 색상을 구하는게 아니라.. 폼 외부의 색상을 얻어오려고 합니다.
폼은 조그맣게 만들고.. 그 폼 외부의 어떤 곳의 색상말이죠. 이를테면 웹서핑을
하다가 괜찮은 그림이나 도안을 발견했을 경우, 그 그림에 마우스를 가져가면
마우스 위치에 사용된 색상의 값을 구하려고 하는 목적입니다.
이럴 경우(폼 외부)에.. 어떻게 색상을 구하는지요..
> 안녕하세요. ^^
> Canvas에 Pixels[] 프로퍼티를 이용하심 됩니다.
>
> var
> TempColor: TColor;
>
> procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> TempColor := Form1.Canvas.Pixels[x,y];
> end;
>
> 이렇게 해서 얻어심 될것 같군요.
> 참고하세요.
>
> 그럼..20000.
-
류제훈 wrote:
> 먼저 친절하신 답변 감사드립니다. 꾸벅,
> 근데요.. 폼 내부의 색상을 구하는게 아니라.. 폼 외부의 색상을 얻어오려고 합니다.
> 폼은 조그맣게 만들고.. 그 폼 외부의 어떤 곳의 색상말이죠. 이를테면 웹서핑을
> 하다가 괜찮은 그림이나 도안을 발견했을 경우, 그 그림에 마우스를 가져가면
> 마우스 위치에 사용된 색상의 값을 구하려고 하는 목적입니다.
>
> 이럴 경우(폼 외부)에.. 어떻게 색상을 구하는지요..
>
>
화면전체에 대한 마우스포인트의 색상얻어오는것은 아래와 같이 하시면 될겁니다.
마우스 포인트 구하는 법은 게시판에 올라와 있는것으로 알고있습니다.
var
pt: TPoint;
WindowHandle : THandle;
Col:TCOLORREF;
DC : hDC;
begin
WindowHandle := WindowFromPoint(pt);
DC := GetWindowDC(WindowHandle);
Col:= GetPixel(DC, pt.X, Pt.Y);
Label11.Caption:=colorToString(col);
end;
-
감사합니다.
많은 도움이 되었습니다..
좋은 하루 되시길 기원하겠습니다~~ 꾸벅~
(NOTICE) You must be logged in to comment on this post.
-
- 류응철
- 2000.06.03 02:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 오장균
- 2000.06.03 01:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 최 소 영
- •
- 2000.06.03 01:28
- 4 COMMENTS
- /
- 0 LIKES
-
오장균•2000.06.03 01:54최 소 영 wrote: > 제가 comm1102.zip 화일을 받아서 델피5에다 설치하려고 하는데 설치하는방법을 몰라서...
-
최용일•2000.06.03 01:47안녕하세요. 최용일입니다. *.dcr은 컴포넌트 팔레트의 아이콘이 들어있는 리소스파일입니다. 비슷하...
-
최 소 영•2000.06.03 03:07최용일 wrote: > 안녕하세요. 최용일입니다. > > *.dcr은 컴포넌트 팔레트의 아이콘이 들어있는 리소스...
-
최용일•2000.06.03 03:18안녕하세요. 최용일입니다. 먼저 컴포넌트를 설치하세요. 아래 에러의 내용은 comm.pas에서 발생한 ...
-
- 어린왕자
- •
- 2000.06.03 01:28
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.06.03 01:39죄송합니다..그런 질문이 아니었는데..말이죠.. 음.. 시작할때..한번만 안보이게 하고 싶은 겁니다.. ...
-
어린왕자•2000.06.03 01:56다른 방법으로 구현하는 방법을 알았슴다.죄송함다..
-
- 정원혁
- •
- 2000.06.03 01:22
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.03 01:28안녕하세요. 최용일입니다. Calendar1.CalendarDate := Now; ^^ 항상 즐코하세요. 정원혁 wrote: ...
-
- 델초
- •
- 2000.06.03 01:09
- 1 COMMENTS
- /
- 0 LIKES
-
...•2000.06.03 01:29델초 wrote: > qreport 에서 custom으로 용지를 설정하고 싶은데 만약 20cm정도의 길이와 너비를 가진 종...
-
- 서정길
- 2000.06.03 00:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 이선우
- 2000.06.03 00:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2000.06.03 00:39
- 1 COMMENTS
- /
- 0 LIKES
-
...•2000.06.03 00:44초보 wrote: > 안녕하세요? > 또 질문을 드리게 되었습니다. > > 다름이 아니라 퀵리포트에서 한명씩...
-
- 사발우성
- •
- 2000.06.03 00:52
- 2 COMMENTS
- /
- 0 LIKES
-
mute•2000.06.03 04:03사발우성 wrote: > 휴~~ 저장이 안돼네엽.. 그래서 아예 소스를 통째로 올립니당.....ㅠ.ㅠ > > 정말 ...
-
류응철•2000.06.03 00:39음... 데이터 타입이 달라서 그런건 아닐까요?, 아니면 자릿수가 다르던가..쩝.. 초보적인 실수인데.. 가...
-
- 류응철
- •
- 2000.06.02 23:59
- 1 COMMENTS
- /
- 0 LIKES
-
류응철•2000.06.03 00:02좀 더 간단한 코드가 있을거라고 생각합니다... 일단 워드가 실행중이면 워드 종료후 프로그램을 종료하고...
-
- 초보
- •
- 2000.06.02 23:44
- 1 COMMENTS
- /
- 0 LIKES
-
김•2000.06.03 00:02초보 wrote: > Form1에서 버튼을 클릭하면 Form2를 ShowModal로 띄우고, > > Form2에서 Query와 연결...
-
- 류제훈
- •
- 2000.06.02 23:16
- 4 COMMENTS
- /
- 0 LIKES
어떤 색상추출 프로그램을 모델삼아 만들어보려고 하는데요, 예를들면, 작은 폼 하나를 만든다음, 그 폼에서 마우스를 클릭한 후, 그상태로 마우스를 움직이면 모니터 화면상에서 마우스가 움직이는 자리(X,Y)의 색상을 얻어와, 그 색상으...-
강민주•2000.06.03 00:12류제훈 wrote: > 어떤 색상추출 프로그램을 모델삼아 만들어보려고 하는데요, > > 예를들면, 작은 폼 ...
-
류제훈•2000.06.03 02:52먼저 친절하신 답변 감사드립니다. 꾸벅, 근데요.. 폼 내부의 색상을 구하는게 아니라.. 폼 외부의 색상을...
-
조윤식•2000.07.13 19:01류제훈 wrote: > 먼저 친절하신 답변 감사드립니다. 꾸벅, > 근데요.. 폼 내부의 색상을 구하는게 아니라...
-
류제훈•2000.07.14 10:57감사합니다. 많은 도움이 되었습니다.. 좋은 하루 되시길 기원하겠습니다~~ 꾸벅~
-
- 미친척
- •
- 2000.06.02 23:05
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2000.06.04 09:10미친척 wrote: > > 답변해주신 고수님들 감솨... 그런디 잘모르겠네엽................ > > 다시 ...
-
- 자료
- 2000.06.02 22:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2000.06.02 22:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 도와주세요
- •
- 2000.06.02 22:01
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.02 23:45안녕하세요. 최용일입니다. Handle하곤 아무 상관이 없습니다. 아래 답변에서 혼동하지 마시길.... A...
-
타락천사•2000.06.02 22:13안녕하세여.. 타락임다..^^ 궁금하다니... 1. 먼저 Self는 함수가 포함된 클래스의 핸들입니다.. ...
-
- 박충국
- •
- 2000.06.02 21:37
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.02 22:16안녕하세여.. 타락임다..^^ 데이터모듈을 쓰고 계시나여? 데이터모듈을 쓰고, 중복된 필드는 Master-...
-
- 양동욱
- 2000.06.02 21:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 이발사
- •
- 2000.06.02 21:10
- 2 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.02 22:19안녕하세여.. 타락임다..^^ 기냥 TDBImage를 이용하는게 정신건강상 좋을거 같은데여..ㅠㅠ 오늘은 ...
-
jinugirl•2000.06.03 00:03충고 주셔서 캄샤합니데이.. 곰곰히..찬찬히 생각해보니 아주 간단한 방법이 생각 났심데이. 그 방법인즉...
> 어떤 색상추출 프로그램을 모델삼아 만들어보려고 하는데요,
>
> 예를들면, 작은 폼 하나를 만든다음, 그 폼에서 마우스를 클릭한 후, 그상태로
> 마우스를 움직이면 모니터 화면상에서 마우스가 움직이는 자리(X,Y)의 색상을
> 얻어와, 그 색상으로 폼의 색상을 바꾸고 싶은데요..
>
> 어떤 함수를, 어떻게 써야 하는지 막막하기만 하네요.
>
> GetRvalue, GetGvalue.. 이런걸 써야 하나요?
> 도움말을 봐도.. 영어가 짧아서.. 흑, 잘 모르겠네요.
>
> 도와주세요~~!
안녕하세요. ^^
Canvas에 Pixels[] 프로퍼티를 이용하심 됩니다.
var
TempColor: TColor;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TempColor := Form1.Canvas.Pixels[x,y];
end;
이렇게 해서 얻어심 될것 같군요.
참고하세요.
그럼..20000.