hi,
why do i have a Icon in Titlebar with "this" ConfirmBox() ?
how can i get rid of it or use my Icon ?
greetings by OHR
Jimmy
*** snip ***
#include "common.ch"
#include "xbp.ch"
PROCEDURE APPSYS
RETURN
PROCEDURE MAIN
MSGBOX("why is that Icon in ConfirmBox ?","<- look here !!!")
RETURN
PROCEDURE MSGBOX(cText,cTitle)
LOCAL nButton := 0
DEFAULT cTitle TO "Warning"
DO WHILE nButton <> XBPMB_RET_OK
nButton := ConfirmBox( , ;
cText , ;
cTitle , ;
XBPMB_OK , ;
XBPMB_NOICON+XBPMB_SYSMODAL+XBPMB_MOVEABLE )
ENDDO
RETURN
*** eof ***