+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اظافة نقه مع رسم خط على Bitmap (/showthread.php?tid=6912)
اظافة نقه مع رسم خط على Bitmap - Anew - 31-03-2015
السلام عليكم
قمت بعمل تطبيق و هوه عباره عن ياخذ قيم الماوس x,y
ويقوم باضافه نقطه مع كل ضغطه
و شكرا
اظافة نقه مع رسم خط على Bitmap - الكاسر الآخر - 31-03-2015
الفكرة هي أن تضغط بالزر الإيمن لإنهاء الرسم وتوصيل الشكل ببداية الخط
- قم بعمل التغييرات الآتية
في حدث OnMouseDown ضع الكود التالي
كود :
if Button = mbLeft then
begin
_count := _count + 1;
_Xpos[_count] := x;
_Ypos[_count] := y;
end;
DrawLines(Button);وفي حدث OnCreate ضع التالي
كود :
DrawLines(mbLeft);وقم بالتعديل على الاجراء DrawLines ليصبح بالشكل التالي
كود :
procedure TForm1.DrawLines(Button : TMouseButton);
var
i : Integer;
begin
if Button = mbLeft then
begin
img1.Canvas.Brush.Style := bsClear;
img1.Canvas.Brush.Color := clBlack;
img1.Canvas.FillRect(Rect(0,0,600,200));
img1.Canvas.Pen.Width := 2;
img1.Canvas.Pen.Color := clRed;
_Ypos[0] := 100;
for i := 1 to _count do
begin
img1.Canvas.MoveTo(_xpos[i-1],_ypos[i-1]);
img1.Canvas.LineTo(_xpos[i],_ypos[i]);
end;
img1.Canvas.MoveTo(_xpos[_count],_ypos[_count]);
img1.Canvas.LineTo(600 - _xpos[_count + 1],100);
img1.Canvas.Pen.Width := 1;
img1.Canvas.Brush.Color := clYellow;
for i := 1 to _count do
begin
img1.Canvas.Rectangle(_xpos[i]-3,_ypos[i]-3,_xpos[i]+3,_ypos[i]+3);
end;
end
else if Button = mbRight then
begin
Img1.Canvas.MoveTo(_XPos[_Count],_YPos[_Count]);
Img1.Canvas.LineTo(_XPos[1],_YPos[1]);
end;
end;اظافة نقه مع رسم خط على Bitmap - Anew - 01-04-2015
ليس هذا ما اقصده
المقصود هوه عند اضافة نقطه
يتم رسم خط من النقطه القبلها ثم الى النقطة المظافه و الى النقطة التي بعدها
اتمنى ان تكون وصلت الفكره