الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

paintbox

مغلق
بدأه Wajdi في 2 ديسمبر 2002 · 2 رد · 699 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف يمكن وضع خلفية لل paintbox مع مع اماكنية عرض الحركة عليه بدون ان تتأثر هذه الخلفية

مع تحياتي

وجدي(f)(f)

#2

السلام عليكم

هل المقصود وضع صوره معينه كخلفيه لـ PaintBox والرسم عليها ؟

ارسم الصوره باستخدام Canvas الخاص بـ PaintBox .

استدعي الإجراء الاتي قبل الرسم على PaintBox.

Procedure DrawBG;

var

  Bitmap : TBitMap;

begin

  Bitmap := TBitmap.Create;

  try

    with Bitmap do begin

      LoadFromFile('pic.bmp');

      Form1.PaintBox1.Canvas.Draw(0,0,BitMap);

    end;

  finally

    Bitmap.Free;

  end;

end;

(f)

CIONO1

هناك حتى الأحلام أصبحت ممنوعة ...

إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!

ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...

There, even in dreams u r wanted

To be a programmer, how a nice dream it was

Leaving ...

أعيدوا لإسمي لونه المفضل

#3

أشكرك أخي tmaaa هذا هو فعلا المطلوب

اخي tmaaa وجدت طريقة اخري لأداء نفس الهدف وهي كالتالي

 brush.Bitmap:=bitmap;



   FillRect(ClipRect);

تري ماهو الفرق بين الطريقتين ومتي تستعمل هذه او تلك

عذرا انها المرة الاول لاستعمالي لمثل هذه الادوات

وجدي(f)

هذا الموضوع مغلق.