From 911416abf7340e7470f516a38c9089c362e0913f Mon Sep 17 00:00:00 2001 From: Ian C Date: Sat, 24 Sep 2005 00:02:11 +0000 Subject: Made backdrops half alpha on dialogs and alerts --- simplegui.mod/simplegui.bmx | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/simplegui.mod/simplegui.bmx b/simplegui.mod/simplegui.bmx index 2d3a570..2b348a0 100644 --- a/simplegui.mod/simplegui.bmx +++ b/simplegui.mod/simplegui.bmx @@ -783,7 +783,9 @@ Function GUINotify(s:String, i:TImage=Null) While click<>button Cls + SetAlpha(0.5) DrawImage(back,0,0) + SetAlpha(1) TWidget.Draw3DBox(x,y,w,h,False,2) gui.EventLoop() click=gui.Clicked() @@ -831,7 +833,9 @@ Function GUIYesNo:Int(s:String, i:TImage=Null) While click=Null Cls + SetAlpha(0.5) DrawImage(back,0,0) + SetAlpha(1) TWidget.Draw3DBox(x,y,w,h,False,2) gui.EventLoop() click=gui.Clicked() @@ -882,7 +886,9 @@ Function GUIMenu(title:String, options:String[], x:Int, y:Int, i:TImage=Null) While click=Null And KeyHit(KEY_MOUSERIGHT)=0 Cls + SetAlpha(0.5) DrawImage(back,0,0) + SetAlpha(1) TWidget.Draw3DBox(x,y,w,h,False,2) gui.EventLoop() click=gui.Clicked() @@ -921,7 +927,9 @@ Function GUIDialog(gui:TGUIHandler, ok:TWidget, cancel:TWidget, i:TImage=Null) While done=False Cls + SetAlpha(0.5) DrawImage(back,0,0) + SetAlpha(1) gui.EventLoop() click=gui.Clicked() -- cgit v1.2.3