جعل الاسطوانة مرنة بحجم الشاشة

[تواتي كريم]

السلام عليكم اخواني
ارجو من الاخوة الافاضل ارفاق ملف مفتوح لعمل اسطوانة مرنة بحجم الشاشة دون استعمال نافذة التكبير
او ارفاق الاكواد المستعملة في ذلك
في انتظار مساعدتكم لي اتركم في رعاية الله و حفظه

[ثامر أبو بلقيس]

إن شاء الله :abc_138:

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته

أخي كريم حتى نحقق المطلوب إن شاء الله نتبع مع بعض الخطوات :

بداية أنا أتحدث عن مشروع غير متعدد الصفحات أي ذو صفحة واحدة

01 - نحقق خصائصا للمشروع وفق الصورة و خاصة ماهو مشار له بالسهمين :
http://im60.gulfup.com/orqFyp.png (http://www.gulfup.com/?aVWgyz)

02 - ندخل إلى الحدث global functions ونررع :
tblObjectType = {}
tblObjectType[OBJECT_BUTTON] = Button;
tblObjectType[OBJECT_LABEL] = Label;
tblObjectType[OBJECT_PARAGRAPH] = Paragraph;
tblObjectType[OBJECT_IMAGE] = Image;
tblObjectType[OBJECT_FLASH] = Flash;
tblObjectType[OBJECT_VIDEO] = Video;
tblObjectType[OBJECT_WEB] = Web;
tblObjectType[OBJECT_INPUT] = Input;
tblObjectType[OBJECT_HOTSPOT] = Hotspot;
tblObjectType[OBJECT_LISTBOX] = ListBox;
tblObjectType[OBJECT_COMBOBOX] = ComboBox;
tblObjectType[OBJECT_PROGRESS] = Progress;
tblObjectType[OBJECT_TREE] = Tree;
tblObjectType[OBJECT_PLUGIN] = Plugin;
tblObjectType[OBJECT_SLIDESHOW] = SlideShow;
tblObjectType[OBJECT_GRID] = Grid;
tblObjectType[OBJECT_PDF] = PDF;
tblObjectType[OBJECT_QUICKTIME] = QuickTime;
tblObjectType[OBJECT_XBUTTON] = xButton;
tblObjectType[OBJECT_RICHTEXT] = RichText;
tblObjectType[OBJECT_CHECKBOX] = CheckBox;
tblObjectType[OBJECT_RADIOBUTTON] = RadioButton;
function Init()
m_tblObjectData = {};
tblObjects = Page.EnumerateObjects();
if tblObjects then
for index, sObject in pairs(tblObjects) do
local Object = tblObjectType[Page.GetObjectType(sObject)];
local m_PosXR = Object.GetPos(sObject).X / Page.GetSize().Width;
local m_PosYR = Object.GetPos(sObject).Y / Page.GetSize().Height;
local m_SizeWR = Object.GetSize(sObject).Width / Page.GetSize().Width;
local m_SizeHR = Object.GetSize(sObject).Height / Page.GetSize().Height;
m_tblObjectData[Table.Count(m_tblObjectData) + 1] = {Name=sObject, PosXR=m_PosXR , PosYR=m_PosYR, SizeWR= m_SizeWR, SizeHR=m_SizeHR};
end
end
end

function Do_OnSize(e_PageWidth, e_PageHeight)
if m_tblObjectData then
Application.SetRedraw(false)
for z=1, Table.Count(m_tblObjectData) do
m_Object = tblObjectType[Page.GetObjectType(m_tblObjectData[z].Name)];
m_Object.SetSize(m_tblObjectData[z].Name, e_PageWidth * m_tblObjectData[z].SizeWR, e_PageHeight * m_tblObjectData[z].SizeHR)
m_Object.SetPos(m_tblObjectData[z].Name, e_PageWidth * m_tblObjectData[z].PosXR, e_PageHeight * m_tblObjectData[z].PosYR)
end
Application.SetRedraw(true)
end
end

03 - في خصائص الصفحة وبالضبط في on preload

نزرع :
Init()

04 - في خصائص الصفحة on show نزرع :
Window.Maximize(Application.GetWndHandle())


05 - و أخيرا في الحدث on size
Do_OnSize(e_PageWidth, e_PageHeight)

أرجو من أي زميل إن ساعدته الظروف ترجمة ماقيل في ملف مفتوح للاستفادة

والسلام عليكم ورحمة الله

[ثامر أبو بلقيس]

واذ لم يكن هو المطلوب و ضح لي قليلا

لأني أدرجت الاجابة بعد قراءة تساؤلك وفق ماكان مكتوبا قبل التعديل

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
هذا ملف مفتوح لجعل المشروع مرن مع حجم الشاشة
انجز بالاكواد التي تفضل الاخ ثامر مشكورا بوضعها
http://www.gulfup.com/?PWLAuc
بالتوفيق للجميع
:abc_152:

[ثامر أبو بلقيس]

بارك الله فيك أخي فرح
حاول رفع ملف آخر و انزع الخيار movable حتى لا تمكن تحريك صفحة المشروع
أي تكون ثابته
في الصفحة نضع بعض العناصر Input - xButton - ListBox ... الخ لمعاينة مرونتها عند التكبير

شكرا جزيلا :abc_138:

[فرح صالحي]

http://www.gulfup.com/?nN0xj9

[عبد الهادي بهاب]

شكرا على المعلومة للتطبيق مباشرة

[ميزو فوكس]

واذ لم يكن هو المطلوب و ضح لي قليلا

لأني أدرجت الاجابة بعد قراءة تساؤلك وفق ماكان مكتوبا قبل التعديل

ارجو طريقه عمل زر لتكبير و تصغير الصفحه من صفعي و ليس المرفق مع اطار
البرنامج في الوضع standard بحيث تكون عناصر المشروع مرنه مع التكبير
و التصغير

http://im68.gulfup.com/umhoHx.jpg (http://www.gulfup.com/?suFGhw)

[المكثري]

جزاك الله خيرا.