Q&A

  • 간단한 소스입니다.설명좀 부탁드립니다.
그림판과 유사한 기능을 만들고 있는데 책에 이런게 있더라구요.

pmNotXor,pmCopy과 뭔지 잘 모르겠습니다.

좀 설명좀 부탁드립니다.

그리고 소스좀.... 설명 부탁^^^^^^^^

procedure Timage_f.FormMouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

if IsButtonClick = True then

begin

if (Drawbtn.Down = False) or

(EraseBtn.Down = False) then

begin

ButtonKind(pmNotXor);

MPoint := Point(X, Y);

ButtonKind(pmNotXor);

end

else

begin

MPoint := Point(X, Y);

ButtonKind(pmCopy);

StartDot := MPoint;

end;

end;

end;



0  COMMENTS