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

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

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

2- رسم دنباله موس بصورت خط وکلیک موس
به همراه تغییر رنگ خط
رنگ فرم رو سفید کنید
در قسمت private فرم بویسید
برای این که بدانبم نتطقه شروع کدوم است.
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
در Create فرم بویسید
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این قسمت برای رسم خط
در قسمت MouseDown فرم بنویسید
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
به طریقه استفاده از متغییر Startpoint توجه کنید


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

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