کشیدن خط بر روی image

[sajioo]

سلام
دوستان من می خواستم با حرکت موس بر روی یک image اون جاهای که موس حرکت می کنه ، رنگشو تغییر بدم.
عکسی هم که برای image انتخاب کردم bmp هستش.
مشکلم اینه که با حرکت موس اون خط ایجاد می شه اما عکس مورد نظر محو می شه و به جاش یک صفحه ی سفید می یاد!
نمی دونم چرا!:متفکر:

[MohsenB]

سلام

یه راه سادش استفاده از کد زیر در رویداد حرکت موس ایمیج هستش :


procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img1.Canvas.Pixels[x,y]:= clRed;
end;
یه راه تغریبا اصلاح شده هم اینه :


procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img1.Canvas.LineTo(x,y);
end;البته این کدا خیلی سادس و میشه خیلی بهترش کرد .


___________________________
در وصل هم ز عشق تو ای گل در آتشم
عاشق نمی شوی که ببینی چه می کشم
___________________________________

[sajioo]

از راهنمایتون ممنونم اما آیا می شه همینطور که در ایمیج خط کشیدم اشکاله دیگری مثل دایره یا بیضی هم رسم کنم؟
و سوال دیگرم اینه که چطوری رنگ خطی رو کشیدم تغییر بدم.با کد دوم شما ما هر چی خط میکشم مشکی میشه. چطوری تغییر بدم؟

[Mahmood_M]

قبل از ارسال تاپیک در سایت جستجو کنید : " مقاله : توابع گرافیکی و استفاده از آنها (http://barnamenevis.org/forum/showthread.php?t=70152) "