황남철 wrote:

> 황남철 wrote:

> > loavel 에 포커스를 줄수 있나요

> > 있다면 방법좀?

> >

> >

> > text box 내용을 enable 했을때 글자 색상 바꾸는 방법도좀?

> >

> > rgb 칼라 색상표도 있는곳좀 ?

> >

> > 너무 부탁만 드려 죄송합니다



질문한번 굉장히 이상하군요!





> > loavel 에 포커스를 줄수 있나요

이말은 label을 얘기하는 건가요? 보니깐 이건 밑에서 설명한거 같구(최용일님꺼)



> > text box 내용을 enable 했을때 글자 색상 바꾸는 방법도좀?

이말은 edit 를 얘기하는 건가요?

if edit1.Enabled then

begin

edit1.Font.Color := clred;

end

else

begin

edit1.font.color := clblack;

end;

이거 하면 될거구요



> > rgb 칼라 색상표도 있는곳좀 ?

이것도 최용일님이 한거 같은데... 이상또 질문을 하다니 혹시 딴거를 질문을 잘못하시는건지?



그렇다면 제가 유용한 팁하나 소개를 할까요!

일반적으로 그래픽 프로그램에서 보면 '스포이트 기능' 이 있지요! 마우스가 위치한 어느 한곳의 색상을 가져요는 거.....

아님 페인트샵에 오른쪽에 있는 색상표에서 색을 선택할수 있는거.....

그건 말이죠! 굉장히 어려울거 같지요? 그렇지도 않아요! 단지 신기할 뿐이지요!

잔소리 고만하고 시작할까요?

자 우선 준비할거는 페인트샵 오른쪽의 있는 색상표를 캡쳐합니다.(이건 모르시지 않겠지요! (프린트 스크린 키))

그리고 델파이에서 image 컴포넌트에서 그 색상표를 캡쳐한 그림을 불러옵니다.

그리고 OnMouseDown에다가 이런식으로 하면 페인트샵같은 기능을 만들수 있지요!

그러니끼니 스포이드 기능도 이런거구요

OnMouseMove에다가도 이거를 하면 더 좋겠지요!





procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if ssleft in shift then

begin

panel1.Color := image1.Picture.Bitmap.Canvas.Pixels[x,y];

end;



end;