Tooltips wanted

[krovit]

I am the one who always asks... Sorry

I need a minimalist system to print tool tips under the cursor (words or small sentences)... is there anything "ready" that I could adapt to my needs?

[SpriggsySpriggs]

You could look at InForm. InForm has built-in tools for tooltips. Also, I've updated my pipecom code.

[FellippeHeitor]

InForm is a complete GUI system, you may benefit from not having to worry about the user interface.

However, if all you want is a text that follows the mouse, InForm may be too much of overhead.

Either way, let me know if there's anything in InForm I can be of assistance with.

[SpriggsySpriggs]

InForm is a complete GUI system, you may benefit from not having to worry about the user interface.

However, if all you want is a text that follows the mouse, InForm may be too much of overhead.

Either way, let me know if there's anything in InForm I can be of assistance with.

@FellippeHeitor I should have worded it differently. What I mean is that he should look at the code of how InForm does it.

[Petr]

krovit: is this something, what you search?

Code: QB64: [Select]

1. TYPE Button
2.     X AS INTEGER 'X coordinate
3.     Y AS INTEGER 'Y coordinate
4.     Label AS STRING * 30
5.     ButText AS STRING * 1
6. END TYPE
7.  
8. DIM B(5) AS Button
9. 'set it!
10.  
11. FOR generate = 0 TO 5
12.     B(generate).X = 100 + space
13.     B(generate).Y = 100
14.     B(generate).Label = "Button nr. " + STR$(generate)
15.     B(generate).ButText = _TRIM$(STR$(generate))
16.     space = space + 60
17. NEXT
18.  
19.  
20. 'draw it
21. SCREEN _NEWIMAGE(800, 600, 256)
22. BWidth = 50
23. BHeight = 20
24. FOR d = 0 TO 5
25.     LINE (B(d).X, B(d).Y)-(B(d).X + BWidth, B(d).Y + BHeight), , B
26.     COLOR 15
27.     _PRINTMODE _KEEPBACKGROUND
28.     _PRINTSTRING (B(d).X + 21, B(d).Y + 4), B(d).ButText
29.     '                      21: button width / 2 - fontwidth / 2  (default font width is 8, so 50 / 2 - 8 / 2 = 25 - 4 = 21  -> center to middle
30. NEXT
31. 'save screen image
32. scr = _COPYIMAGE(_DEST)
33.  
34.  
35.  
36. 'and now use it...
37. DO UNTIL _KEYHIT = 27
38.     t = 0
39.     DO UNTIL t = 6
40.         WHILE _MOUSEINPUT: WEND
41.         MX = _MOUSEX
42.         MY = _MOUSEY
43.         LB = _MOUSEBUTTON(1)
44.  
45.         IF MX >= B(t).X AND MX <= B(t).X + BWidth THEN
46.             IF MY >= B(t).Y AND MY <= B(t).Y + BHeight THEN
47.                 COLOR 14, 1
48.                 _PRINTMODE _FILLBACKGROUND
49.                 _PRINTSTRING (B(t).X, B(t).Y + 16), _TRIM$(B(t).Label)
50.                 '                              16: Default font height is 16, so label is displayed 1 row lower
51.                 IF LB THEN
52.                     COLOR 15, 0
53.                     LOCATE 20, 1: PRINT "Button "; t; "pressed."
54.                 END IF
55.             END IF
56.         END IF
57.         t = t + 1
58.     LOOP
59.     'restore screen image
60.     _DISPLAY
61.     _PUTIMAGE , scr
62.     _LIMIT 20
63. LOOP
64.  

[krovit]

krovit: is this something, what you search?

Ah! simple and effective!
I thought you had to save the entire screen image (or something like that), write with _PRINTSCREEN, and then reload the saved image.
I don't think there's any alternative.
However, as I said, your example is simple and I think I can implement it in my code.
Thank you.

In any case my request always remains valid.
i think the tooltip is a gadget that can be convenient on many occasions.

[krovit]

InForm is a complete GUI system, you may benefit from not having to worry about the user interface.
However, if all you want is a text that follows the mouse, InForm may be too much of overhead.
Either way, let me know if there's anything in InForm I can be of assistance with.

Thank you Fellippe.
InForm is a great resource and always surprises for the potential.

But it's like you said: it's too "cumbersome" to put something of its own into other projects.
I tried to understand how the built-in tooltip works but to "get it out" I think I should disassemble the whole system...

[FellippeHeitor]

It's a small cog in the engine indeed.