Page 1 of 1

StringGadget value

Posted: Mon Apr 20, 2015 2:25 pm
by zxretrosoft
I would like to do some INPUT function.
(Maybe something like InputRequester in PB.)

I used StringGadget, but maybe I'm doing something wrong. Or is there a more elegant alternative?

Thanks!

Code: Select all

Declare show()
Declare ButtonEvent()

Global string1


OpenWindow(0,550,110,420,256,"Example")

string1=StringGadget(1,120,100,170,20,"")


ButtonGadget(2,110,175,200,23,"Show value")

BindEvent(#PB_Event_Gadget,@ButtonEvent())  


Procedure ButtonEvent()
  Select EventGadget()
    Case 2
      show()
  EndSelect
EndProcedure


Procedure show()
  Debug(string1)
EndProcedure

Re: StringGadget value

Posted: Mon Apr 20, 2015 2:40 pm
by Peter
zxretrosoft wrote:

Code: Select all

Procedure show()
  Debug(string1)
EndProcedure

Code: Select all

Procedure show()
  Debug(GetGadgetText(string1))
EndProcedure
Greetings ... Peter

Re: StringGadget value

Posted: Mon Apr 20, 2015 3:23 pm
by zxretrosoft
Thanks a lot!;-)