흠... 의도를 파악하지 못하신것 같기도 한데요.. ^^*

마우스를 다운 상태에서 원점을 잡고 그 상태에서 마우스를 클릭한채 움직이면 처음 클릭시 원점을 기준으로

마우스 움직이는 곳까지 선을 긋는 건데요..

API를 직접 호출하면 되는데 Pen 의 XOR 이 적용되지 않고요...그래서 잔상이 남더라구요..

VCL 에도 펜 모드를 지원하는 자료를 보고 해보았는데 아예 그려지지 않더군요..

Repaint 에 대한건 지금 나중에 처리할 문제인듯하군요..

김상구.패패루 님이 쓰신 글 :
: 우선.. Shift상태 검사는 그렇게 하시는게 아니구요
: Shift.Contains(ssLeft)
: 이렇게 하시는게 좋겠네요
:
: GDI함수에 대한 이해가 거의 없으신 것 같은데..
: ptTwo에 현재 X,Y 대입,
: MoveTo로 ptOne으로 이동,
: LineTo로 ptTwo로 이동,
: ptOne을 현재 X,Y로 초기화..
:
: 이렇게 하셔야죠
: 그리고 이런방식은 Repaint될 때 화면 내용이 다 지워집니다. 각 포인트리스트를 관리하셔야 합니다.
:
: ASURADA 님이 쓰신 글 :
: : 폼 위에 마우스를 드래그하면 마우스를 따라서 처음 클릭한 곳으로부터 직선을 그어지게 하려 하는데요...
: :
: : 다음고 같이 코딩을 했는데 의도대로 되질 않는군요....ㅡㅡ;
: :
: : //---------------------------------------------------------------------------
: : void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
: :       TShiftState Shift, int X, int Y)
: : {
: :   if (Button == mbLeft)
: :   {
: :     m_ptOne.x = X;
: :     m_ptOne.y = Y;
: :
: :     m_ptTwo = m_ptOne;
: :   }
: : }
: : //---------------------------------------------------------------------------
: : void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
: :       int X, int Y)
: : {
: :   if (Shift == (TShiftState() << ssLeft))
: :   {
: :     TPenMode pmMode = Canvas->Pen->Mode;
: :     Canvas->Pen->Mode = pmXor;
: :
: :     Canvas->MoveTo(m_ptOne.x, m_ptOne.y);
: :     Canvas->LineTo(m_ptTwo.x, m_ptTwo.y);
: :
: :     m_ptTwo.x = X;
: :     m_ptTwo.y = Y;
: :     Canvas->MoveTo(m_ptOne.x, m_ptOne.y);
: :     Canvas->LineTo(m_ptTwo.x, m_ptTwo.y);
: :
: :     Canvas->Pen->Mode = pmMode;
: :   }
: : }
: : //---------------------------------------------------------------------------
: :
: : 조언 부탁드립니다.