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

[mahdi bg]

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

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

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

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیددر Create فرم بویسید

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدبه طریقه استفاده از متغییر Startpoint توجه کنید


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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

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