آموزش (ساده) : رسم دنباله موس

هدف : آشنای با شی Canvas در دلفی

1- رسم دتباله با حرکت موس به صورت نقطه ای
رنگ فرم رو سفید می کنید
در رویداد MouseMove فرم می نویسیم

Form1.Canvas.Pixels[X, Y]:=clBlue;
حالا برنامه رو اجرا کنید

2- رسم دنباله موس بصورت خط وکلیک موس
به همراه تغییر رنگ خط
رنگ فرم رو سفید کنید
در قسمت private فرم بویسید
برای این که بدانبم نتطقه شروع کدوم است.

کد:

---

Startpoint:Boolean;

---

در Create فرم بویسید

کد:

---

Startpoint:=true;

---

این قسمت برای رسم خط
در قسمت MouseDown فرم بنویسید

کد:

---

if Startpoint then
    begin
      Form1.Canvas.MoveTo(X,Y);
      Form1.Canvas.LineTo(X,Y);
      Startpoint:=false;
    end
  else
    begin
      Form1.Canvas.LineTo(X,Y);
    end;

---

به طریقه استفاده از متغییر Startpoint توجه کنید


برای تغییر رنگ خط ترسیمی
در قسمت KeyPress فرم ینویسید

کد:

---

if (Key='G') or (Key='g') then
    Form1.Canvas.Pen.Color:=clGreen
  else if (Key='B') or (Key='b') then
    Form1.Canvas.Pen.Color:=clBlue
  else if (Key='Y') or (Key='y') then
    Form1.Canvas.Pen.Color:=clYellow
  else if (Key='R') or (Key='r') then
    Form1.Canvas.Pen.Color:=clRed
  else if (Key='P') or (Key='p') then
    Form1.Canvas.Pen.Color:=clPurple
  else if (Key='D') or (Key='d') then
    Form1.Canvas.Pen.Color:=clBlack

---

حالا برنامه رو اجراکنید
با فشردن هر یک از دکمه های مشخص شده
رنگ متناظر انتخاب میشه. (g=green , b=blue, d= default , …)

امیدوارم به دردتون خورده باشه
هر جا سوالی بود در خدمتم
اگه بتونم و بلد باشم جواب می دم