28-03-2017, 10:08 PM
بسم الله الرحمن الرحيم
سريعاّ:
انا شخصياّ بستخدم هذه الطريقة لتظبيط مقاسات المكونات حتى تعمل على اى شاشه بغض النظر عن حجمها سواء بئى 5 او 7 بوصه أو اى مقاس أخر وهى أنى بعد ما أنهى البرنامج على الوندز وكل شئ تمام بحسب المقاس بالنسبه المؤيه وهذه النسبه بستغلها وأجعلها ثابته حتى تتعامل مع شاشات الموبيلات وغيرها دون النظر الى حجمها كما أشرت وللحصول على النسبه المؤية للمكون بالطريقة الاتيه
أنت كده يظهر لك المكون بيساوى كم فى المائة وللــ أستخدام هكذا
وللتعديل على المقاسات هكذا
ثم الان تكتب النسبه المؤية التى تريدها وياريت يكون نفس النسبه التى حصلت عليها من الاجراء الاول
أرجو فى النهاية لو أستفد وحتى ولو بشئ بسيط بأن تدعو لولدى بالرحمه والمغفره والسلام عليكم ورحمه الله وبركاته
سريعاّ:
انا شخصياّ بستخدم هذه الطريقة لتظبيط مقاسات المكونات حتى تعمل على اى شاشه بغض النظر عن حجمها سواء بئى 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;
ثم الان تكتب النسبه المؤية التى تريدها وياريت يكون نفس النسبه التى حصلت عليها من الاجراء الاول
كود :
editsize(edt1,50,10);
أرجو فى النهاية لو أستفد وحتى ولو بشئ بسيط بأن تدعو لولدى بالرحمه والمغفره والسلام عليكم ورحمه الله وبركاته