그림판과 유사한 기능을 만들고 있는데 책에 이런게 있더라구요.
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;