MessageRequester

Just starting out? Need help? Post your questions and find answers here.
karu
Posts: 40
Joined: Mon Feb 24, 2014 10:16 pm

MessageRequester

Post 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
User avatar
Peter
Posts: 1086
Joined: Mon Feb 24, 2014 10:17 pm
Location: 127.0.0.1:9080
Contact:

Re: MessageRequester

Post 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
MarkOtt
Posts: 14
Joined: Thu Sep 14, 2017 12:59 pm

Re: MessageRequester

Post 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
Post Reply