Page 1 of 1

MessageRequester

Posted: Thu Oct 19, 2017 11:33 am
by karu
Hi, in documentation, there is macro UMsgBox created with command MessageRequester but i get error message that this is not function. Is this function actual and if it isnt, then what i can use instead of that?

Thanks
Karu

Re: MessageRequester

Posted: Thu Oct 19, 2017 11:54 am
by Peter
There is no MessageRequester in SB: http://forums.spiderbasic.com/viewtopic.php?f=6&t=236

If you need one, you have to build it by your own (for example with the Dialog-Library).

Greetings ... Peter

Re: MessageRequester

Posted: Thu Oct 19, 2017 1:54 pm
by MarkOtt
You can use alert() und prompt() from Javascript. These two functions emulate MessageRequester() and InputRequester() similar to PureBasic:

Code: Select all

;MessageRequester, returns true or false like in PureBasic
Procedure MessageRequester(Title$, Text$, Flags.l = 0)
  RequesterText.s = Title$ + Chr(10) + Chr(10) + Text$
  RequesterResultValue.l = 1
  If Flags & #PB_MessageRequester_YesNo                   ;  #PB_MessageRequester_YesNo
    ! v_requesterresultvalue = confirm(v_requestertext);
  Else                                                    ;  #PB_MessageRequester_OK
    ! alert(v_requestertext);
  EndIf
  ProcedureReturn RequesterResultValue   ; True False 
EndProcedure
Debug MessageRequester("Löschen", "Möchten Sie diesen Eintrag wirklich löschen?", #PB_MessageRequester_YesNo)


;InputRequester, returns new text or empty like in PureBasic
Procedure.s InputRequester(Title$, Text$, StandardText.s, Flags.l = 0)
  RequesterText.s = Title$ + Chr(10) + Chr(10) + Text$ + Chr(10) + Chr(10)
  RequesterTextInput.s = StandardText
  RequesterResultString.s = ""
  ! v_requesterresultstring = prompt(v_requestertext,v_requestertextinput);
  ! if (v_requesterresultstring == null) v_requesterresultstring = "";
  ProcedureReturn RequesterResultString   ; Text oder leer
EndProcedure
Debug InputRequester("Korrektur", "Bitte korrigieren Sie den folgenden Datenbank-Eintrag:", "Test")
Regards. Markus