diff options
Diffstat (limited to 'simplegui.mod/simplegui.bmx')
| -rw-r--r-- | simplegui.mod/simplegui.bmx | 118 |
1 files changed, 100 insertions, 18 deletions
diff --git a/simplegui.mod/simplegui.bmx b/simplegui.mod/simplegui.bmx index bcabdb0..678497b 100644 --- a/simplegui.mod/simplegui.bmx +++ b/simplegui.mod/simplegui.bmx @@ -443,6 +443,16 @@ Type TGUIHandler End Method Rem + bbdoc: Sets the enable state of all widgets. + about: If @state is true then all widgets are enabled, otherwise all widgets are disabled + EndRem + Method SetEnable(state:Int) + For Local w:TWidget=EachIn m_widgets + w.enabled=state + Next + End Method + + Rem bbdoc: Sets the keyboard focus to the supplied widget. Pass null for no focus. EndRem Method SetFocus(w:TWidget) @@ -478,9 +488,9 @@ Type TGUIHandler Local w:TWidget=LocateWidget(x,y) - For Local w:TWidget=EachIn m_widgets - If w.enabled - w.Draw() + For Local wid:TWidget=EachIn m_widgets + If wid.enabled + wid.Draw() EndIf Next @@ -521,21 +531,30 @@ End Type Rem bbdoc: Displays a notification alert with the supplied string. +about: The string @s can be split into multiple lines using the '|' character. If @i is not null then this image is drawn as a mouse cursor. EndRem -Function GUINotify(s:String) +Function GUINotify(s:String, i:TImage=Null) Local back:TImage=CreateImage(GraphicsWidth(),GraphicsHeight(),1,0) GrabImage(back,0,0) - Local w:Int=Max(TGUIFont.font.TextWidth(s)+10,GraphicsWidth()/4) - Local h:Int=TGUIFont.font.TextHeight(s)*5 + Local txt:TSplitText=TSplitText.Create(s) + + Local w:Int=Max(txt.width+10,GraphicsWidth()/4) + Local h:Int=txt.Height+TGUIFont.font.MaxHeight()*4 Local x:Int=GraphicsWidth()/2-w/2 Local y=GraphicsHeight()/2-h/2 - Local by=y+TGUIFont.font.TextHeight(s)*2.5 + Local by=y+h-TGUIFont.font.MaxHeight()*2.5 Local gui:TGUIHandler=TGUIHandler.Create() - Local label:TLabel=TLabel.Create(gui,x+5,y+5,s) - Local button:TButton=TButton.Create(gui,x+5,by,w-10,TGUIFont.font.TextHeight(s)+10,"OK",Null) + Local ty:Int=y+5 + + For Local t:String=EachIn txt.lines + Local label:TLabel=TLabel.Create(gui,x+5,ty,t) + ty:+TGUIFont.font.TextHeight(t) + Next + + Local button:TButton=TButton.Create(gui,x+5,by,w-10,TGUIFont.font.MaxHeight()*2,"OK",Null) Local click:TWidget=Null @@ -545,6 +564,11 @@ Function GUINotify(s:String) TWidget.Draw3DBox(x,y,w,h,False,2) gui.EventLoop() click=gui.Clicked() + + If i<>Null + DrawImage(i,MouseX(),MouseY()) + EndIf + Flip FlushMem Wend @@ -553,22 +577,31 @@ End Function Rem bbdoc: Displays a yes/no alert with the supplied string. returns: True if Yes selected, otherwise False. +about: The string @s can be split into multiple lines using the '|' character. If @i is not null then this image is drawn as a mouse cursor. EndRem -Function GUIYesNo:Int(s:String) +Function GUIYesNo:Int(s:String, i:TImage=Null) Local back:TImage=CreateImage(GraphicsWidth(),GraphicsHeight(),1,0) GrabImage(back,0,0) - Local w:Int=Max(TGUIFont.font.TextWidth(s)+10,GraphicsWidth()/4) - Local h:Int=TGUIFont.font.TextHeight(s)*7 + Local txt:TSplitText=TSplitText.Create(s) + + Local w:Int=Max(txt.width+10,GraphicsWidth()/4) + Local h:Int=txt.Height+TGUIFont.font.MaxHeight()*4 Local x:Int=GraphicsWidth()/2-w/2 Local y=GraphicsHeight()/2-h/2 - Local by=y+TGUIFont.font.TextHeight(s)*2 + Local by=y+h-TGUIFont.font.MaxHeight()*2.5 Local gui:TGUIHandler=TGUIHandler.Create() - Local label:TLabel=TLabel.Create(gui,x+5,y+5,s) - Local yes:TButton=TButton.Create(gui,x+5,by,w-10,TGUIFont.font.TextHeight(s)+10,"Yes",Null) - Local no:TButton=TButton.Create(gui,x+5,by+yes.h+2,w-10,TGUIFont.font.TextHeight(s)+10,"No",Null) + Local ty:Int=y+5 + + For Local t:String=EachIn txt.lines + Local label:TLabel=TLabel.Create(gui,x+5,ty,t) + ty:+TGUIFont.font.TextHeight(t) + Next + + Local yes:TButton=TButton.Create(gui,x+5,by,w/2-10,TGUIFont.font.MaxHeight()*2,"Yes",Null) + Local no:TButton=TButton.Create(gui,x+w/2+5,by,w/2-10,TGUIFont.font.MaxHeight()*2,"No",Null) Local click:TWidget=Null @@ -578,6 +611,11 @@ Function GUIYesNo:Int(s:String) TWidget.Draw3DBox(x,y,w,h,False,2) gui.EventLoop() click=gui.Clicked() + + If i<>Null + DrawImage(i,MouseX(),MouseY()) + EndIf + Flip FlushMem Wend @@ -589,9 +627,10 @@ End Function Rem bbdoc: Displays a pop-up menu. returns: The index of the selected option, -1 for none. -about: @title is the menu title, @options the options to display and @x and @y specify its position,. +about: @title is the menu title, @options the options to display and @x and @y specify its position. +about: If @i is not null then this image is drawn as a mouse cursor. EndRem -Function GUIMenu(title:String, options:String[],x,y) +Function GUIMenu(title:String, options:String[], x:Int, y:Int, i:TImage=Null) Local f:Int Local back:TImage=CreateImage(GraphicsWidth(),GraphicsHeight(),1,0) GrabImage(back,0,0) @@ -622,6 +661,11 @@ Function GUIMenu(title:String, options:String[],x,y) TWidget.Draw3DBox(x,y,w,h,False,2) gui.EventLoop() click=gui.Clicked() + + If i<>Null + DrawImage(i,MouseX(),MouseY()) + EndIf + Flip FlushMem Wend @@ -634,3 +678,41 @@ Function GUIMenu(title:String, options:String[],x,y) Return -1 End Function + +Private + +Type TSplitText + Field lines:TList + Field width:Int + Field height:Int + + Function Create:TSplitText(s:String) + Local o:TSplitText=New TSplitText + + o.lines=CreateList() + o.width=0 + o.height=0 + + Local sub:String="" + + For Local f:Int=0 Until s.length + Local c:Int=s[f] + If c=Asc("|") + o.lines.AddLast(sub) + o.width=Max(o.width,TGUIFont.font.TextWidth(sub)) + o.height:+TGUIFont.font.TextHeight(sub) + sub="" + Else + sub:+Chr(c) + EndIf + Next + + If sub.length>0 + o.lines.AddLast(sub) + o.width=Max(o.width,TGUIFont.font.TextWidth(sub)) + o.height:+TGUIFont.font.TextHeight(sub) + EndIf + + Return o + End Function +EndType |