copretns wrote:

> 저 아래 내용을 수정하려고 했더니

> 패스워드가 안먹히네요...--;

>

> 그래서 다시 질문을 올립니다...

>

> 사각을 그릴 수 있는 함수를 만들어보려고 하는데,

> 쉽지가 않네여...

>

> 음..API함수 중 Recting함수인가???

> 한번 만들어 보고 싶어서 질문을 올립니다...요...

>

> TRect함수를 사용하는 방법은

> R : TRect;

> R(0,0,100,100); 이던가??? 인데,

>

> 제가 만든 사각함수로 위 예제와 똑같이 사용할 수도 있는지요...???

> TRect 함수를 만드는 방법 아시는 분 저에게 좀 조언을 부탁드리겠습니다...

>

> 그럼...새해 복 많이 받으세요...









음 정말.. 졸리는 오후네요.

아래 간단히 사각형을 그리는 함수를 만들어 보았는데

일단 잘 그려집니다.

좀 수정해서 좋게 고쳐 쓰세요.



그리고, 정말이지 궁금한게 있습니다.

왜 같은 질문을 여러곳에 올리죠?

델파이 코리아에도 똑같은 질문을 매번 올리시는 것 같던데?

꼭 그렇게 해야 하는 건가요?

이곳 게시판은 그런 일을 줄이고자 통합을 한 것인데,

버젓이 그런 행동을 옮기고 계신거 같아 여쭙는 겁니다.

기분 나쁘게 받아들이지 마시고, 왜 그러시는지

한번 말씀해 주세요.

그리고, 즐거운 프로그래밍 하시구요.





procedure TForm1.ChangMinRectangle(HHandle: THandle; X1,X2,Y1,Y2: integer);

var

dc : hDc;

Pen : hPen;

OldPen : hPen;

OldBrush : hBrush;

begin

dc := GetWindowDC(HHandle);

Pen := CreatePen(PS_SOLID, 1, RGB(255, 255, 255));

OldPen := SelectObject(dc, Pen);

OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));

Rectangle(dc, X1,X2, Y1, Y2);

SelectObject(dc, OldBrush);

SelectObject(dc, OldPen);

DeleteObject(Pen);

ReleaseDC(HHandle, Canvas.Handle);

end;







procedure TForm1.Button1Click(Sender: TObject);

begin

//예제 - 판넬과 폼에 사각형을 그린다.

ChangMinRectangle(Panel1.Handle, 100, 100, 200, 200);

ChangMinRectangle(Handle, 100, 100, 200, 200);

end;



P.S: 같은 질문이 두번올라온 건 제가 삭제토록 하지요.

우선 답변주신 거 감사드립니다...



제가 왜 다른 곳에도 같은 질문을 올리는지 궁금하시죠???

(솔직히 저도 기분이 좀 그래요 다른 곳에도 같은 내용을 올린다는게...)

예전에 제가 질문을 많이(?) 올렸었는데, 답변이 거의 없으시더라구요...

솔직히 전 그 질문들이 저에겐 중요(?)한데 몇일이 지나도.. 답변이...--;

그래서, 같은 질문을 다른 곳에도 올리는거여요...

한군데서라도 답변이 오면 저에겐 힘(?)이 되거든요...

그동안 질문이 수차례 올렸지만 답변이 없을때는 솔직히 제 기분이 상했어요...

또, 그 질문에 대한 답변 내용을 찾기위해

나우,천랸,타 홈페이지, 기타등등에서 찾아보기도 하는데...

답변내용이 없을 땐 전 눈앞이 캄캄하져... 이걸 혼자 어떻게 처리해야하는지 하구요...



구창민님께 제 마음을 이해해주셨으면 감사하겠습니다...



그럼, 복 많이 받으세요...



구창민 wrote:

> copretns wrote:

> > 저 아래 내용을 수정하려고 했더니

> > 패스워드가 안먹히네요...--;

> >

> > 그래서 다시 질문을 올립니다...

> >

> > 사각을 그릴 수 있는 함수를 만들어보려고 하는데,

> > 쉽지가 않네여...

> >

> > 음..API함수 중 Recting함수인가???

> > 한번 만들어 보고 싶어서 질문을 올립니다...요...

> >

> > TRect함수를 사용하는 방법은

> > R : TRect;

> > R(0,0,100,100); 이던가??? 인데,

> >

> > 제가 만든 사각함수로 위 예제와 똑같이 사용할 수도 있는지요...???

> > TRect 함수를 만드는 방법 아시는 분 저에게 좀 조언을 부탁드리겠습니다...

> >

> > 그럼...새해 복 많이 받으세요...

>

>

>

>

> 음 정말.. 졸리는 오후네요.

> 아래 간단히 사각형을 그리는 함수를 만들어 보았는데

> 일단 잘 그려집니다.

> 좀 수정해서 좋게 고쳐 쓰세요.

>

> 그리고, 정말이지 궁금한게 있습니다.

> 왜 같은 질문을 여러곳에 올리죠?

> 델파이 코리아에도 똑같은 질문을 매번 올리시는 것 같던데?

> 꼭 그렇게 해야 하는 건가요?

> 이곳 게시판은 그런 일을 줄이고자 통합을 한 것인데,

> 버젓이 그런 행동을 옮기고 계신거 같아 여쭙는 겁니다.

> 기분 나쁘게 받아들이지 마시고, 왜 그러시는지

> 한번 말씀해 주세요.

> 그리고, 즐거운 프로그래밍 하시구요.

>

>

> procedure TForm1.ChangMinRectangle(HHandle: THandle; X1,X2,Y1,Y2: integer);

> var

> dc : hDc;

> Pen : hPen;

> OldPen : hPen;

> OldBrush : hBrush;

> begin

> dc := GetWindowDC(HHandle);

> Pen := CreatePen(PS_SOLID, 1, RGB(255, 255, 255));

> OldPen := SelectObject(dc, Pen);

> OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));

> Rectangle(dc, X1,X2, Y1, Y2);

> SelectObject(dc, OldBrush);

> SelectObject(dc, OldPen);

> DeleteObject(Pen);

> ReleaseDC(HHandle, Canvas.Handle);

> end;

>

>

>

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> //예제 - 판넬과 폼에 사각형을 그린다.

> ChangMinRectangle(Panel1.Handle, 100, 100, 200, 200);

> ChangMinRectangle(Handle, 100, 100, 200, 200);

> end;

>

> P.S: 같은 질문이 두번올라온 건 제가 삭제토록 하지요.

구창민입니다.

에궁.. 답변이 없었던 것은 답변하시는 분들이 정말로 모르거나,

혹은 질문을 이해하지 못해서이거나, 아니면 긴가민가..하는 질문인

그런 내용이라서 그럴경우가 대부분일겁니다.



긴가민가.. 하는 내용의 답변을 올리면 반드시 또 질문이 다시

올라오게 됩니다. 그건 통신상의 의사전달에 대한 애매모호함 때문인데

저도 아는 것이 개뿔도 없지만, 답변을 많이 해 본 경험상, 그런것은

정말 피하고 싶기 때문입니다.(copretns 님이 그렇다는게 아니구요..^^)



너그러이 이해해 주시면 좋겠네요.



그럼

copretns님도 새해 복많이 받으시구요

항상 즐거운 프로그래밍 하세요~