안녕하세요?
델파이 초보입니다.
이미지의 팔레트에 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;
bmp.Canvas.lock
bmp.Canvas.Moveto, LineTo
bmp.Canvas.Unlock.