Is this supposed to be this way, and is there a way to get the ListRequest to show in front?
The code I am using was made by Plouf actually:
Code: Select all
Function ScreenModeRequest(DisplayModes,CustomTitle$,CustomText$)
Local Screensizes = CreateList()
For Local k = 0 To ListItems(DisplayModes) - 1
InsertItem(ScreenSizes,DisplayModes[k].Width.." x "..DisplayModes[k].Height)
Next
If CustomTitle$=Nil
CustomTitle$="Screen Mode Request"
EndIf
If CustomText$=Nil
CustomText$="Please Select Screen Size"
EndIf
selected = ListRequest(CustomTitle$,CustomText$,ScreenSizes)
Return(DisplayModes[selected].Width,DisplayModes[selected].Height)
EndFunction
p_scrWidth, p_scrHeight = ScreenModeRequest(GetDisplayModes(),Nil,"for MONITOR SCREEN")