장성호 님이 쓰신 글 :
: 그냥 Form의 OnPaint이벤트에서
:
:

: void __fastcall TForm1::FormPaint(TObject *Sender)
: {
:    Canvas->MoveTo(0,0);
:    Canvas->LineTo(ClientWidth,ClientHeight);
: }
: 

:
: 하면 되는데요..
:
: 한가지 중요하게 고려해야 사항이 있습니다.
: 그것은 Form의 Size가 변경될때죠
:
: 만약  대각선으로.. 선을 하나그렸을때..
: Form의 Size가 변경되면
: 선의 시작과 끝의 좌표가 바뀔수 있죠
:
: 이경우에 선을 다시 그려줘야 겠죠
:
:

: void __fastcall TForm1::FormPaint(TObject *Sender)
: {
:     Canvas->MoveTo(0,0);
:     Canvas->LineTo(ClientWidth,ClientHeight);
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm1::FormResize(TObject *Sender)
: {
:      FormPaint(NULL);
: }
: //---------------------------------------------------------------------------
: 

:
: 그런데 위와같이 해도 문제가 하나 있습니다.
: Form의 Size가 변경되었을때는 선의 좌표가 바뀌었으므로..
: 이전에 그런 선이 그대로 남아있을수 있습니다.
:
: 그러므로 이전에 화면은 모두 clear하구..
: 다시 그려야 겠죠..
:
:

: void __fastcall TForm1::FormPaint(TObject *Sender)
: {
:     //이렇게 client영역을 전부 지우고
:     Canvas->Pen->Style=psClear;
:     Canvas->FillRect(ClientRect);
:     Canvas->Pen->Style=psSolid;
: 
:     //다시그리면 됩니다.
:     Canvas->MoveTo(0,0);
:     Canvas->LineTo(ClientWidth,ClientHeight);
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm1::FormResize(TObject *Sender)
: {
:       FormPaint(NULL);
: }
: //---------------------------------------------------------------------------
: 

:
: 또다른 방법은?
: 다음과 같이 OnPaint에서는 그냥 그리기만 하구..
: Form이 Resize되었을때는  Invalidate 를 이용해서 전체를 다시 그리도록 하면 됩니다.
:

: void __fastcall TForm1::FormPaint(TObject *Sender)
: {
:    Canvas->MoveTo(0,0);
:    Canvas->LineTo(ClientWidth,ClientHeight);
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm1::FormResize(TObject *Sender)
: {
:     Invalidate();
: }
: 

:
: 그럼..
:
:
:
:
:
:
:
: 하이욤 님이 쓰신 글 :
: : 폼 한가운데 쭉 가로질러서 직선을 하나 찍 긋고 싶은데...
: :
: : 어찌 해야 할찌...
: :
: : 아시는분 알려주세요
: :
: : 그냥 쭉~~~~~~선 한줄입니다 ㅎ