درخواست برنامه قسمت پاك كن برنامه paint

سلام خدمت دوستان
مي خواستم درخواست برنامه اي را كنم كه مثل پاك كن paint ويندوز عمل كنه براي يه قسمتي از برنامه ام مي خوام
ممنون از دوستان

کامپننتشا می خواهی یا خودشا توضیخح بده،لطفاً

سلام
مي توني رنگ مدادت رو به رنگ بك گراند انتخاب كني و اندازه مداد رو
اونوقت مثل پاك كن عمل مي كنه!

موفق باشي. باي

ممنون از جواباتون
بي زحمت ميشه سورسشا اينجا بزاريد ممنون ميشم

بسته به سيستمهايي كه براي نوشتن اين برنامه استفاده كردي داره.
اصلا اين برنامه رو نوشتي يا ميخواي برات بنويسيم ؟؟

سلام
احتمالا آقاي مباح بايد در جريان باشند
فرض كنيد داخل برنامه اشكالي كشيده شده توسط كاربر و او جايي اشتباه كرده است حالا ميخواد اونا را پاك كنه-بي زحمت سورس قسمت پاك كنا مي خواستم چون دارم جاهاي ديگه ي برنامه ام را تكميل مي ككنم و وقت براي اين قسمت ندارم-ممنون مي شم اگه كسي بتونه كمك كنه

اولا كه فقط من نيستم كه بلدم. همه دوستان بلدند.
ثانيا لطف كن و سورس برنامه رو تا جايي كه تا الان نوشتي رو برامون لينك بزار.
چون اگه سورس اين بخش من با سورس تو هم خوان نباشه به دردت نميخوره.
ثالثا اگه شما كتاب دلفي داشته باشي فكر كنم توش بتوني كد كامل اين برنامه رو پيدا كني.

موفق باشي.

حتما سورسشا مي ذارم
ممكنه طول بكشه- ممنون از دوستان

اين برنامه ي اون قسمت كه مي خوام پاك كن داشته باشه-مربوط ميشه به كروكي آدرس
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
من کاملش کردم . حالا کامل توضیح میدم.
اول از همه :

کد:

---

private
    Eraser,Click : Boolean;

---

کد:

---

procedure TForm1.FormCreate(Sender: TObject);
begin
    Eraser := False;
    Click := False;
  image1.Canvas.Brush.Color:=clwhite;
end;

---

یک دکمه بزار واسه پاک کردن و این هم onclick :

کد:

---

    Eraser := not Eraser;

---

این رو بزار اول کد MouseDown ایمیج .

کد:

---

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  nam:String;
  p,p1:Integer;
begin
  if Eraser then begin
    Image1.Canvas.Pen.Color := clWhite;
    Image1.Canvas.Pen.Width := 15;
    Image1.Canvas.MoveTo(X,Y);
    Click := True;
    Exit;
  end;

    Image1.Canvas.Pen.Width := 1;

---

و بعد ادامه کد رو بنویس.
من فقط کد اول onMouseDown رو واست نوشتم. بقیه اش همون کد ها هست.

این هم واسه MouseUp ایمیج

کد:

---

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Click := False;
end;

---

این هم MouseMove :

کد:

---

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (Eraser) and (Click) then
    Image1.Canvas.LineTo(X,Y);
end;

---

مشکل داشتی بگو.
بای