Canvas.Pen.Mode := pmNotXor;

펜모드를 바꿔서 하시면 됩니다.





쌩초보 wrote:

> 안녕하심미까 고수여러분들 ^^;;

> 또다시 이렇게 도움을 청하게 되었씀미다

> 소스를 뒤져본결과

> Canvas.Pen.Mode := pmXor;

> Canvas.Pen.Color := clBlue;

> Canvas.MoveTo(100,100);

> Canvas.LineTo(200,400);

> Canvas.MoveTo(100,100);

> Canvas.LineTo(200,400);

> 요런식으로 두번 반복하면 먼저 그렸던 선이 지워진다면서요?(크크 신기하여라~)

> 암튼! 요녀석을 제 쏘쓰에 요렇게 넣었더니만

> 글쎄 없어지질않는거여요

> 자알좀 살펴봐주세여 왜안될까요...ㅠ.ㅠ

> 눈물날라그럼미다 흑흑흑

>

>

> procedure Tfrmkep1901e.bb_b_deleteClick(Sender: TObject);

> var

> _v_i_x_pos,_v_i_y_pos,_v_s_x_pos,_v_s_y_pos : integer;

> begin

> _v_i_x_pos := 0;

> _v_i_y_pos := 0;

> _v_s_x_pos := 0;

> _v_s_y_pos := 0;

> if (_g_high_button_on = 'off') and (_g_hilow_button_on = 'off') and

> (_g_low_button_on = 'off') Then

> begin

> Image1.Width := m_rect.Right;

> Image1.Height := m_rect.Bottom;

> Image1.Canvas.DrawFocusRect(d_rect);

> e_scroll_control.SetFocus;

> Exit;

> end;

>

> if ((_g_high_button_on = 'on') OR (_g_low_button_on = 'on')) Then

> begin

> _g_s_x_pos := d_rect.Right - 7;

> _g_s_y_pos := d_rect.Bottom - 7;

>

> Image1.Width := m_rect.Right;

> Image1.Height := m_rect.Bottom;

> image1.canvas.Pen.Mode := PmXor;

> image1.canvas.pen.color := clblue;

> image1.Canvas.MoveTo(_g_i_x_pos,_g_i_y_pos);

> image1.canvas.LineTo(_g_s_x_pos,_g_s_y_pos);

> image1.Canvas.MoveTo(_g_i_x_pos,_g_i_y_pos);

> image1.canvas.LineTo(_g_s_x_pos,_g_s_y_pos);

>

> Image1.Canvas.DrawFocusRect(d_rect);

> end

> :

> :

> :

> 요로코롬 썼지요

> 도와주세요~~~~~~~~고수님들~~~~~~~~~~~~!!!!!!!!!!!!!!!!!!!!!!

> 도와주심 감사하겠씀미다

>

Canvas.Pen.Mode := pmNotXor;

유레카님이 말대로 해보았는데도 안돼네여~~

원래는 Canvas.Pen.Mode := pmXor;로 해야돼는것 아닌가여....아무튼 안돼는군요...

왜 그런지 정말...ㅠ.ㅠ

한번더 확인 해주었으면 고맙겠습니다...

정말...급해여~~

제가 썼던 코드입니다.

참고하시길 바랍니다.



======================================================================



procedure TForm1.FormCreate(Sender: TObject);

begin

uDrawing := False;

end;



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

Shift: TShiftState; X, Y: Integer);

begin

// 마우스가 처음 눌렸는지 체크

uDrawing := True;

// 드래그 시작점(X,Y) 셋팅

uMyRect.Top := Y;

uMyRect.Left := X;

// NotXOR을 위한 Point(현재의 rect위치 저장)

uLastPoint := Point(X, Y);



with Form1.Canvas do

begin

Pen.Color := clBlack;

Pen.Style := psSolid;

Pen.Width := 1;

Pen.Mode := pmNotXOR;

brush.Style := bsClear;

end;



end;



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

Y: Integer);

begin

// 드래그끝점을 마지막에 읽혀진 포인트로 잡음

uMyRect.Right := uLastPoint.X;

uMyRect.Bottom := uLastPoint.y;

// 마우스Up이 일어나지 않았으면

if uDrawing then

begin

with Form1.Canvas do

begin

// 전에 그려진 Rect를 지워줌(NotXOR으로)

Rectangle(uMyRect);

uMyRect.Right := X;

uMyRect.Bottom := Y;

// 현재 Rect 그려줌

Rectangle(uMyRect);

// 마지막 Point 셋팅

uLastPoint := Point(X, Y);

end;

end;

end;



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

Shift: TShiftState; X, Y: Integer);

begin

// 현재 그려지 Rect지워줌(그려진 것 위에 또 그림으로 NotXOR)

Form1.Canvas.Rectangle(uMyRect);

// 마우스Up이 일어났음을 셋팅

uDrawing := False;

end;