안녕하세요

그리기 기능으로 글자등을 받는데요

LineTo 를 이용하여 마우스로 그리던것을 와콤(WACOM) 펜있는 패드에서 하려니

버벅? 인다고 해야하나 제대로 그려지지를 않습니다.

일주일간 아는 지식선에서 검색해보고 뷰어 올려놓고도 해보고 하고 있는중인데

감을 못잡는듯 합니다...

?
ImageMouseMove 이벤트의 X,Y를 캡션에 보이게 했을때 선이 안그려질때는 변하지를 않는거보니

이 이벤트가 작동을 안하는건가 의구심이 드네요
?

그림판을 가져다 놓고 하면 잘됩니다.

델님들 지나치지 마시고 조언 부탁드립니다~

?

아래는 기본 테스트시 사용하던 것인데 기본 마우스로 그리는거 필요하신님들 보시라고

남겨봤습니다.

이미지는 BMP 로 올려놓고 하셔야합니다.

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

  Shift: TShiftState; X, Y: Integer);

begin

  //그림그리기 시작

  If (ssLeft in Shift) Then

  Begin

    Image1.Picture.Bitmap.Canvas.MoveTo(X,Y);

    Image1.Picture.Bitmap.Canvas.LineTo(X,Y);

  End;

end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

//  Application.ProcessMessages;

  If (ssLeft in Shift) Then

  Begin

    Image1.Picture.Bitmap.Canvas.Pen.Color := clBlack;

    Image1.Picture.Bitmap.Canvas.Pen.Width := 5;

    Image1.Picture.Bitmap.Canvas.Pen.Style := psSolid;

    Image1.Picture.Bitmap.Canvas.Brush.Style := bsClear;

    Image1.Picture.Bitmap.Canvas.LineTo(X,Y);

  End;

end;