مهارات دلفي - النماذج مع "الخلفية"

تحتوي العديد من صفحات الويب على أنماط خلفية تجعل الصفحة تبدو أكثر جاذبية. ومع ذلك، يمكنك أيضًا تصميم هذا النوع من النماذج في دلفي. إحدى الطرق التي تتبادر إلى الذهن على الفور هي استخدام مكون الصورة ثم تحديد صورة. هذا بالطبع ممكن، لكن صورة BMP التي يمكنها ملء النموذج بأكمله ستشغل مساحة كبيرة من الذاكرة، وهو أمر لا يستحق العناء. أفضل طريقة هي تنزيل صورة BMP صغيرة جدًا ولصقها على النموذج بأكمله.

بدلاً من استخدام مكون الصورة، يتم استخدام مكون الصورة النقطية لتنزيل صورة نقطية صغيرة. أضف تعريف المتغير إلى القسم العام: Bitmap: TBitmap، ثم قم بإنشاء هذا الكائن في حدث OnCreate للنموذج، ويكون الكود كما يلي:

PROcedure TForm1.FormCreate(Sender:Tobject);

ابدأ الصورة النقطية:=TBitmap.Create;؟؟

Bitmap.LoadFormFile('1.bmp');// حجم ملف الصورة 1.bmp هو 1 كيلو بايت فقط؟؟

نهاية؛

الخطوة الثالثة هي لصق نمط الصورة النقطية على النموذج بأكمله في حدث OnPaint الخاص بالنموذج. أضف الكود التالي:؟؟procedure TForm1.FormPaint(Sender:Tobject)var x,y:integer;begin y:=0;while y

ابدأ X:=0;

بينما X

ابدأ cancas.Draw(X,Y,Bitmap);؟؟

X:=X+Bitmap.Width;

نهاية؛

Y:=Y+Bitmap.Heigth;

end;end;?هل نسيت تحرير كائن الصورة النقطية في حدث OnDestory للنموذج. رمز محدد: Bitmap.Free؛ حسنًا، عندما يتم عرض النموذج، سيكون له خلفية مثل صفحة الويب، ولا يشغل مساحة كبيرة من الذاكرة.