karika2
(مبرمج هاوي)
***

تاريخ الإنتساب : 16-01-2013
تاريخ الميلاد : 12-06-1987 (31 العمر)
التوقيت المحلي : 16-09-2019 في 02:46 PM
الحالة : غير متصل

karika2 معلومات المنتدى
إنضم إلينا : 16-01-2013
آخر زيارة 02-06-2019, 04:51 PM
إجمالي المشاركات : 242 (0.1 مشاركات في اليوم الواحد | 0.56 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 68 (0.03 مواضيع في اليوم | 0.81 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 2 أيام, 20 ساعات, 42 دقائق
الأعضاء المحالين: 0
Total Thanks Received: 6 (0 0.11 per day | 5605 percent of total 0.11)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 12 (0 0.21 per day | 5625 percent of total 0.21)
(Find All Thanked ThreadsFind All Thanked Posts)
  
توقيع karika2
> مبرمج مبتدئ < سبحان الله بحمده... سبحان الله العظيم

شرح لكى تجعل مكونات برنامجك تتعامل مع جميع المقاسات.! 2
شرح لكى تجعل مكونات برنامجك تتعامل مع جميع المقاسات.! مصادر دلفي مفتوحة تعليمية
بسم الله الرحمن الرحيم
سريعاّ:
انا شخصياّ بستخدم هذه الطريقة لتظبيط مقاسات المكونات حتى تعمل على اى شاشه بغض النظر عن حجمها سواء بئى 5 او 7 بوصه أو اى مقاس أخر  وهى أنى بعد ما أنهى البرنامج على الوندز وكل شئ تمام بحسب المقاس بالنسبه المؤيه وهذه النسبه بستغلها وأجعلها ثابته حتى تتعامل مع شاشات الموبيلات وغيرها دون النظر الى حجمها كما أشرت وللحصول على النسبه المؤية للمكون بالطريقة الاتيه
كود :
procedure TForm2.getsize(AOwner: TEdit;x,y:Single);
begin
ShowMessage(AOwner.Name+'.Width:= '+FloatToStr(AOwner.Width*100/Form2.Width));
ShowMessage(AOwner.Name+'.Height:= '+FloatToStr(AOwner.Height*100/Form2.Height));
end;


 أنت كده يظهر لك المكون بيساوى كم فى المائة وللــ أستخدام هكذا
كود :
getsize(edt1,edt1.Width,edt1.Height);


وللتعديل على المقاسات هكذا
كود :
procedure TForm2.editsize(AOwner: TEdit;x,y:Single);
begin
 AOwner.Width:=x*Form2.Width/100;
 AOwner.Height:=y*Form2.Height/100;
end;


ثم الان تكتب النسبه المؤية التى تريدها وياريت يكون نفس النسبه التى حصلت علي...