Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: krovit on November 05, 2020, 10:36:29 am

Title: Tooltips wanted
Post by: krovit on November 05, 2020, 10:36:29 am
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?


Title: Re: Tooltips wanted
Post by: SpriggsySpriggs on November 05, 2020, 10:37:41 am
You could look at InForm. InForm has built-in tools for tooltips. Also, I've updated my pipecom code.
Title: Re: Tooltips wanted
Post by: FellippeHeitor on November 05, 2020, 10:42:09 am
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.
Title: Re: Tooltips wanted
Post by: SpriggsySpriggs on November 05, 2020, 10:44:22 am
Quote from: FellippeHeitor on November 05, 2020, 10:42:09 am
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.
Title: Re: Tooltips wanted
Post by: Petr on November 05, 2020, 01:14:33 pm
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
  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
  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
  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
  31. 'save screen image
  33.  
  34.  
  35.  
  36. 'and now use it...
  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
  64.  
Title: Re: Tooltips wanted
Post by: krovit on November 05, 2020, 03:29:37 pm
Quote from: Petr on November 05, 2020, 01:14:33 pm
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.

Title: Re: Tooltips wanted
Post by: krovit on November 05, 2020, 03:33:27 pm
Quote from: FellippeHeitor on November 05, 2020, 10:42:09 am
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...

Title: Re: Tooltips wanted
Post by: FellippeHeitor on November 05, 2020, 04:20:08 pm
It's a small cog in the engine indeed.
Text Only | Text with Attachments