screen resolution

[dimitris]

I have searched for info on this and found some, but the example that is posted seems to be a dead link. Cory (I think) left a link to an example of how to have your menu open to different screen resolutions by making more than one menu. I would really like to see this example or another like it. I do not understand how to do this since I am fairly new to this program and not the brightest bulb around. I would appreciate any help someone could give me. Thanks

[Worm]

In your Apps Initialize event.

%HInfo% = System.GetInformation ( "Horizontal Resolution")
%VInfo% = System.GetInformation ( "Vertical Resolution")
IF ((%HInfo%=800) AND (%VInfo%=600))
File.Execute ("%SrcDir%\800x600.exe", "", Continue)
RETURN
END IF
IF ((%HInfo%=1024) AND (%VInfo%=768))
File.Execute ("%SrcDir%\1024x768.exe", "", Continue)
RETURN
END IF

[dimitris]

Yes, I see it now, much easier to understand when someone shows you how it is supposed to work. Your help is much appreciated!
This is a fabulous program!

[Michael]

Hi.
Just wondering.....If I want to "paste" in Worm's text in the On Initialize wiindow, what is the best way?

Does this have to be in xml? Obviously, the program won't let you paste this in the command window using the cut/paste right click. [img]/ubbthreads/images/icons/cool.gif[/img]

Thanks,

[dimitris]

yes I must say the same. I dont know how to get it in the window myself exept to add each command seperately. I have not got this accomplished yet. I did try to add the commands myself by copying what he wrote, but it is not functioning properly. I guess I would need more details on how to accomplish this, like do I put this command at the initialize event on which menu I have built? Are all the menus supposed to be in the same "distribution" folder? Do I have one menus exe file saved as autorun and the other 800, 1024, and so on? sorry to be a pain. I am not grasping it is all.

[Worm]

Create a new project and make the Project a Custom width of 1 x 1.

In the Projects Initialize event, paste this code. Change the File.Execute paths to execute the appropriate autorun.

---------------- Cut and Paste -----------
<IR_ACTIONS_LIST>
<Action name="Get Information">
<Type>140</Type>
<Function>0</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%Info%</Variable>
<Property>0</Property>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%Info% &amp;lt;= 800</Condition>
</Action>
<Action name="Execute">
<Type>8</Type>
<Function>0</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\800\autorun.exe</FileName>
<CommandLine/>
<WorkingDir/>
<RunMode>0</RunMode>
<WaitForReturn>0</WaitForReturn>
</Action>
<Action name="Exit">
<Type>2</Type>
<Function>0</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="RETURN">
<Type>207</Type>
<Function>1</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="END IF">
<Type>201</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%info% &amp;lt;=1024</Condition>
</Action>
<Action name="Execute">
<Type>8</Type>
<Function>0</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\1024\autorun.exe</FileName>
<CommandLine/>
<WorkingDir/>
<RunMode>0</RunMode>
<WaitForReturn>0</WaitForReturn>
</Action>
<Action name="Exit">
<Type>2</Type>
<Function>0</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="RETURN">
<Type>207</Type>
<Function>1</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="END IF">
<Type>201</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Execute">
<Type>8</Type>
<Function>0</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\1152\autorun.exe</FileName>
<CommandLine/>
<WorkingDir/>
<RunMode>0</RunMode>
<WaitForReturn>0</WaitForReturn>
</Action>
<Action name="Exit">
<Type>2</Type>
<Function>0</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
</IR_ACTIONS_LIST>
----------------End Cut and Paste