full Screen

[vahid1352]

با سلام
چطور ميتونم پروژه رو با يك كليد full Screen كنم طوريكه منوها در وسط باشن يعني جاشون تغيير نكنه
ممنون

 

[NicSoft]

برای اینکه صفحه ات رو full screen کنی باید کد زیر وارد کنی :

()PageW=WorkAreaWidth
()PageH=WorkAreaHeight
("SysCommand("ResizeWindow","PageW,PageH
("SysCommand("MoveWindow","0,0
​

*********************************************
حالا یه سوال منوهات می خواهایی کجا باشن اگه بالا صفحه و وسط باشند
که باید Y خودت تعیین کنی چون اگه صفحه بزرگ و کوچیک بشه pos Y تغییر نمی کنه و ربطی هم نداره
اما X وسط باشه که کد زیر و باید وارد کنی :

(OX = (PageW / 2) - (OW /2
OY = objectY(name object)0
​

منظور از OX که object X منوهاست و OW همون objectWidth
که اگه گروه باشند باید اونو دستی بنویسی و اگه یه شی تنها باشه می تونی از objectWidth استفاده کنی

(MoveObject (" Obejctname ","OX,OY
​

************************************************
و در ادامه اگه می خوایی صفحه ات اگه باز هم تغییر کرد منو هم وسط باشه کد زیر و توی سکریپی تنها وارد کن و فقط یک با اونو اجرا کن و باید نام اسکرپت تو بجای name Script بزای

()PageW=WorkAreaWidth
()PageH=WorkAreaHeight
(OX = (PageW / 2) - (OW /2
OY = objectY(name object)0
(MoveObject (" Obejctname ","OX,OY
("RunScripttimer ("Timer1=name Script","10
​