랑 님이 쓰신 글 :
: 한 점에 대해서 Pen->Width 설정하고 동일점에 MoveTo, LineTo 하면
: Width 점(?)을 찍을 수 있습니다.
: //---------------------------------------------------------------------------
: void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X,
: int Y)
: {
: Canvas->Pen->Color = clBlue;
: Canvas->Pen->Width = 12;
:
: Canvas->MoveTo(X,Y);
: Canvas->LineTo(X,Y);
:
: }
: //---------------------------------------------------------------------------
: 전시은 님이 쓰신 글 :
: : 전자칠판을 만들고 있는데 마우스 클릭시의 좌표를 저장하여 lineto랑 moveto를 사용하여 그려지게 했습니다.
: : 마우스로 그릴 때는 잘 그려지는데 태블릿으로 하면 점을 하나 찍거나 빠르게 그릴 때 인식이 안되더라고요.
: : 그래서 setpixel을 사용해서 점이 그려지게 하였더니 PenWidth를 조정하여도 픽셀 하나에만 점이 찍히고 width가 변하지 않는 문제가 발생하였습니다.
: : 어떻게 하면 설정한 penwidth의 굵기만한 점이 찍히게 할 수 있을까요?
: : .............................................................................................
: :
: :
: : MouseClick=true;
: : SetPixel(Image3->Picture->Bitmap->Canvas->Handle, X, Y,PenColor);
: : Image3->Picture->Bitmap->Canvas->MoveTo(X,Y);
: : if(pen==1) {
: : Image3->Picture->Bitmap->Canvas->Pen->Color = ColorDialog1->Color;
: : PenColor = ColorDialog1->Color;
: : Image3->Picture->Bitmap->Canvas->Pen->Width = ScrollBar1->Position;
: : PenWidth = ScrollBar1->Position;
: : }