DDgui_msg

Previous topic - Next topic

MrTAToad

I've improved this function somewhat, mainly due to the fact that the default colours for the window clashes with one of my fonts - white on white doesn't make text easy to ready :)

Code (glbasic) Select
FUNCTION DDgui_msg: text$, yes_no%,title$="!?",cBright%=128,cNorm%=255
LOCAL scx%, scy%, width%
GETSCREENSIZE scx, scy
width = MAX(scx/3, 148)
DDgui_pushdialog((scx-width)/2, (scy)/4, width, 150)
DDgui_set("", "MOVEABLE", TRUE)
DDgui_set("", "TEXT", title$)
DDgui_set("","COL_BRIGHT",cBright%)
DDgui_set("","COL_NORM",cNorm%)

DDgui_widget("", text$, width-16,0)
DDgui_spacer(10000,5)
IF yes_no
DDgui_button("bt_yes", "Yes", 0,0)
DDgui_button("bt_no", "No", 0,0)
ELSE
DDgui_button("bt_yes", "OK", 0,0)
ENDIF
DDgui_resizedialog(0,0,0,0) // let everything arrange
WHILE TRUE
DDgui_show(FALSE)
SHOWSCREEN
IF DDgui_get("bt_yes", "CLICKED")
DDgui_popdialog()
RETURN 1
ENDIF
IF DDgui_get("bt_no", "CLICKED")
DDgui_popdialog()
RETURN 0
ENDIF
WEND
ENDFUNCTION

Kitty Hello

Better make that MyDDgui_msg: and put it in your own source code.
If you're using a non readable font, try changing the colors with:
ddgui_set("", "COL_NORM", RGB...)
And "COl_BRIGHT", "COL_HOVER", "COL_HOVER_BRIGHT" IIRC. See the docs.

MrTAToad