Unfinished Display/Resolution Dialog

[Cole ChapmanParticipant]

I wanted to give the option of which resolution the game started at, to the user, much like Unity games do.  After this is finished I would like to post it to the code library but I am having small issues currently (mainly two).

1. When I click which display I want to use, it will populate with which resolutions are supported (via SDL2 command) but when the Launcher first starts it’s a blank resolution list because no display is selected.  How do I invoke/select the first item in the DisplayList?
2. I am still learning mojox so if anyone has any “you should actually do it like this” tips I would greatly appreciate it.  The big thing that stands out to me are the buttons.  I just want the same padding(?) all the way around it OR have both buttons all the way to the right with similar padding(?).  Also I would like the programmers to be able to use a banner/image for their game but am unsure what the best approach is for it.

 

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" #Import "<mojox>" #Import "<sdl2>" Using std.. Using mojo.. Using mojox.. Using sdl2.. Class ResolutionDialog Extends Window Method New() Super.New( "Demo",480,444 ) Local DisplayList:ListView = New ListView Local ModeList:ListView = New ListView For Local i:=0 Until SDL_GetNumVideoDisplays() Local name:String = String.FromCString( SDL_GetDisplayName(i) ) DisplayList.AddItem( name + " (Display:" + (i+1) + ")" ) Next DisplayList.ItemClicked+=Lambda( item:ListView.Item ) ModeList.RemoveAllItems() Local DisplayNumber:=DisplayList.IndexOfItem( item ) Local mode:SDL_DisplayMode For Local i:=0 Until SDL_GetNumDisplayModes(DisplayNumber) SDL_GetDisplayMode( DisplayNumber, i, Varptr mode ) ModeList.AddItem( mode.w + "x" + mode.h + "x" + mode.refresh_rate ) Next End 'How do I invoke the first item to be selected? Local DisplayView:DockingView = New DockingView DisplayView.AddView( ModeList, "bottom", "75%" ) DisplayView.AddView( DisplayList, "top" ) Local Tabber:=New TabView() Tabber.AddTab( "Graphics",DisplayView ) Tabber.AddTab( "Input",New TextView( "This is WIP." ) ) Tabber.CurrentIndex=0 Local PlayButton:=New Button( "Play!" ) PlayButton.Clicked=Lambda() Local mode:SDL_DisplayMode Local index:=ModeList.IndexOfItem( ModeList.Selected ) SDL_GetDisplayMode( 0, index, Varptr mode ) Print "User wants to play at " + mode.w + "x" + mode.h End Local QuitButton:=New Button( "Quit" ) QuitButton.Clicked=Lambda() App.Terminate() End Local Splitter:DockingView = New DockingView Splitter.AddView( New Label("Demo"), "top", "40%" ) Splitter.AddView( Tabber, "top", "50%" ) Splitter.AddView( PlayButton, "left", "45%" ) Splitter.AddView( QuitButton, "right", "45%" ) ContentView=Splitter End Method OnUpdate() App.RequestRender() End Method OnRender( canvas:Canvas ) Override OnUpdate() canvas.DrawText( "FPS: " + App.FPS,0,0 ) End End Function Main() New AppInstance New ResolutionDialog App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106

Namespace myapp   #Import "<std>" #Import "<mojo>" #Import "<mojox>" #Import "<sdl2>"   Using std.. Using mojo.. Using mojox.. Using sdl2..   Class ResolutionDialog Extends Window     Method New() Super.New( "Demo",480,444 ) Local DisplayList:ListView = New ListView Local ModeList:ListView = New ListView For Local i:=0 Until SDL_GetNumVideoDisplays() Local name:String = String.FromCString( SDL_GetDisplayName(i) ) DisplayList.AddItem( name + " (Display:" + (i+1) + ")" ) Next DisplayList.ItemClicked+=Lambda( item:ListView.Item ) ModeList.RemoveAllItems() Local DisplayNumber:=DisplayList.IndexOfItem( item ) Local mode:SDL_DisplayMode For Local i:=0 Until SDL_GetNumDisplayModes(DisplayNumber) SDL_GetDisplayMode( DisplayNumber, i, Varptr mode ) ModeList.AddItem( mode.w + "x" + mode.h + "x" + mode.refresh_rate ) Next End 'How do I invoke the first item to be selected? Local DisplayView:DockingView = New DockingView DisplayView.AddView( ModeList, "bottom", "75%" ) DisplayView.AddView( DisplayList, "top" ) Local Tabber:=New TabView() Tabber.AddTab( "Graphics",DisplayView ) Tabber.AddTab( "Input",New TextView( "This is WIP." ) ) Tabber.CurrentIndex=0 Local PlayButton:=New Button( "Play!" ) PlayButton.Clicked=Lambda() Local mode:SDL_DisplayMode Local index:=ModeList.IndexOfItem( ModeList.Selected ) SDL_GetDisplayMode( 0, index, Varptr mode ) Print "User wants to play at " + mode.w + "x" + mode.h End Local QuitButton:=New Button( "Quit" ) QuitButton.Clicked=Lambda() App.Terminate() End Local Splitter:DockingView = New DockingView Splitter.AddView( New Label("Demo"), "top", "40%" ) Splitter.AddView( Tabber, "top", "50%" ) Splitter.AddView( PlayButton, "left", "45%" ) Splitter.AddView( QuitButton, "right", "45%" ) ContentView=Splitter End   Method OnUpdate() App.RequestRender() End Method OnRender( canvas:Canvas ) Override OnUpdate() canvas.DrawText( "FPS: " + App.FPS,0,0 )   End   End   Function Main()   New AppInstance New ResolutionDialog App.Run() End

Attachments:

1. 

   Launcher.png
   

[Author]

Posts