Terry Ritchie's GLInput Library

[SMcNeill]

A lot of our newer members have asked about how to get input from a graphical position here recently, so I wanted to bring Terry's GLInput library back to folks attention.

Inside the attached ZIP folder is all the necessary components to add Terry's library to your work, as well as several demos which he wrote to showcase how things perform.  Heck, there's even a PDF file documenting everything, to make it easy to learn and use...   

Normally, I'd post some example code to showcase how everything works when sharing a library like this, but Terry has did such a good job writing and documenting his, that I don't feel like doing such is necessary.  Just download the library, run the demos, read the PDF, and follow the instructions to add GLINPUT to your own projects.  :)

[TempodiBasic]

Thanks to share Steve, I don't know if I have in one of the folders named QB64Store that are in different notebooks!

[TempodiBasic]

Hi
very fine this library, just follow the PDF and you manage it easily!
here a code example adding something to the last example in the PDF

Code: QB64: [Select]

1. '$INCLUDE:'glinputtop.bi'
2. CONST FALSE = 0, TRUE = NOT FALSE
3. DIM helloworld%
4. DIM helloworld$
5. DIM wallpaper&
6. DIM x%, y%
7. wallpaper& = _NEWIMAGE(640, 528, 32) ' create image to use as background
8. _DEST wallpaper&
9. LINE (0, 0)-(639, 527), _RGB32(0, 0, 127), BF
10. FOR y% = 1 TO 11
11.     FOR x% = 1 TO 13
12.         CIRCLE (x% * 48 - 17, y% * 48 - 24), 24, _RGB32(0, 0, 0)
13.         PAINT (x% * 48 - 17, y% * 48 - 24), _RGB32(0, 0, 96), _RGB32(0, 0, 0)
14.     NEXT x%
15. NEXT y%
16. SCREEN _NEWIMAGE(640, 480, 32)
17. _PUTIMAGE (0, 0), wallpaper&
18. ' show background image
19. helloworld% = GLIINPUT(100, 100, GLIALPHA, "Hello World: ", TRUE)
20. DO
21.     GLICLEAR
22.     ' must be first line in any loop
23.  
24.     _LIMIT 32
25.     y% = y% - 1
26.     IF y% = -48 THEN y% = 0
27.     _PUTIMAGE (0, y%), wallpaper&
28.     LOCATE 1, 1: PRINT "Real time: "; GLIOUTPUT$(helloworld%); " "
29.  
30.     GLIUPDATE ' must be the second to last command in any loop
31.     LOCATE 1, 50: PRINT "Focus on GLinput "; GLICURRENT
32.     _DISPLAY ' must be the last command in any loop to display results
33. LOOP UNTIL GLIENTERED(helloworld%)
34. helloworld$ = GLIOUTPUT$(helloworld%)
35. LOCATE 2, 1: PRINT "Final : "; helloworld$
36. GLICLOSE helloworld%, TRUE
37. '$INCLUDE:'glinput.bi'

this my input function that manage
1. input range of character
2. graphic cohordinates
3. number max of character to take from input
4. waiting Enter to end the input
5. using key arrow to navigate into the string input
6. using key Backspace and Delete to change string input
7. using _LIMIT to no stuck the program in polling for input keys
https://www.qb64.org/forum/index.php?topic=1822.msg110648#msg110648
is just an one piece version without
 1. manager of multiple istances of Input field
 2. and manager of background restoring
 3. and CONST for identify the set of character to get as input
 4. auto-managing more input fields by using dedicated functions and subs