Q&A

  • TImage 에 그림을 그리는데 화면이 너무 떨려요
안녕하세요?
델파이 초보입니다.

이미지의 팔레트에 Mousemove 이벤트시 lineto 메소드로 그림을 그리도록
프로그래밍 했는데요, 화면떨림 현상이 너무 심해서 쓸 수 없을 정도입니다.

게시판에 다른분들이 쓰신 글을 보니
아래와 같이 하라고 되어 있더군요.

DoubleBuffered := True;

그런데 이걸 추가해도 마찬가지 입니다.

어떻게 해야 이미지 깜빡임없이 선을 그릴 수 있을까요?
고수님들의 답변 기다리겠습니다.

------------------------------------------------------------------
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
ARect : Trect;
begin
  DoubleBuffered := True;
  if Drawing = True then
  begin
      Bmp.Canvas.Pen.Width := StrtoInt(TxtLineWidth.Text);
      with Bmp.Canvas do
      begin
        MoveTo(MovePt.X,MovePt.Y);
        LineTo(X,Y);
      end;
      Image1.Picture.Assign(bmp);
  end;
  MovePt := Point(x,y);

end;
2  COMMENTS
  • Profile
    KDDG_Gnoses 2004.08.11 00:13
    락을 걸어보시면...

    bmp.Canvas.lock
    bmp.Canvas.Moveto,  LineTo
    bmp.Canvas.Unlock.

  • Profile
    이성수 2004.08.11 01:05
    답변 감사드립니다.
    그런데,

    말씀하신 대로 락을 걸어보았으나,
    화면 떨림은 여전하네요...ㅠ.ㅠ