السلام عليكم
أعمل الآن برنامج للرسم شبيه بالرسام و لكن واجهتني مشكلة و هي عندما أرسم دائرة أو مستطيل و هذا هو الكود لرسم مستطيل
var x1,y1:integer; b:boolean; FormMouseDown b:=true; x1:=x; y1:=y; FormMouseup b:=false; canvas.Rectangle(x1,y1,x,y); FormMouseMove if b then begin refresh; canvas.Rectangle(x1,y1,x,y); end;
لكن المشكلة عند رسم مستطيل فإنه يرسم ,أما عند رسم مستطيل آخر فإنه ينفذ الأمر Refresh و يختفي المستطيل الأول.
فما هو الحل لهذه المشكلة.
ألف شكر أخي hazem_3332000 على ردك المفيد.
اخواني الافاضل
عندما اقوم بالرسم على الفورم او الاداة paintbox و اقوم بعمل تصغير و تكبير للفورم لا يظهر الخط المرسوم و كنا نعالج ذلك في الفيجوال باسناد خاصية redraw=true للاداة التى تستخدم في الرسم ان كانت فورم او picture.
و لكن للاسف هذه الخاصية غير موجودة في الدلفي للادوات التى يمكن الرسم عليها و بعد بحث رايت احد الامثلة الخاصة بالرسم و لكنه يستخدم الحدث onpaint للاداة و لكن عند استخدام هذا الحدث يتم تحميل الرسم عند تحميل الفورم و لكن نريد الحدث يظهر عند الضغط على زر مثلا او عند اجراء معين .
هذا الموضوع مغلق.