Keeping Background Graphics For Text Example

[SierraKen]

The neat thing about making a complicating program like Paint Pixels 8, is that I keep learning new stuff. Today I looked through the forum to see if anyone has made transparent backgrounds for text. And you guys have! I had no idea it was possible all this time. There was a post by Pete back in May 2019 (1 month before I started or so) asking about it and you guys put up some examples. Well, I just made my own example. It's the first time I've ever used Windows Fonts for QB64 as well. This will be added to Paint Pixels 8 soon so keep a look out for it. But for now, here is my example for you programmers out there to use and learn by. It is Windows only I believe. It brings up a bunch of different colored circles all over the screen and then it asks for any text and then a size for the font. Then you place it by left clicking anywhere on the screen. And you can keep doing that on the screen for as many of them as you want. To write different text, right click instead. I might add a color picker for Paint Pixels 8 as well. But for now it's only in white because it shows up the best with the black screen and the colors.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. DO
3.     c1 = INT(RND * 254) + 1
4.     c2 = INT(RND * 254) + 1
5.     c3 = INT(RND * 254) + 1
6.     sz = (RND * 100) + 10
7.     x = INT(RND * 800) + 1
8.     y = INT(RND * 600) + 1
9.     t = t + 1
10.     IF t > 1000 THEN GOTO printing:
11.     CIRCLE (x, y), sz, _RGB32(c1, c2, c3)
12.  
13. LOOP UNTIL INKEY$ = CHR$(27)
14. printing:
15. IF f& <> 0 THEN f& = _LOADFONT(fontfile$, 18): _FONT f&
16. copy& = _COPYIMAGE(0)
17. inputting:
18. INPUT "Text: ", t$
19. INPUT "Size (12-72):", sz
20. IF sz < 12 OR sz > 72 OR sz <> INT(sz) THEN PRINT "Try again.": GOTO inputting:
21. font$ = "Arial.ttf"
22. rootpath$ = ENVIRON$("SYSTEMROOT") 'normally "C:\WINDOWS"
23. fontfile$ = rootpath$ + "\Fonts\" + font$ 'TTF file in Windows
24. f& = _LOADFONT(fontfile$, sz)
25. CLS
26. SCREEN copy&
27. _TITLE "Left click area to place text."
28. DO
29.     mouseWheel = 0
30.     DO WHILE _MOUSEINPUT
31.         mouseX = _MOUSEX
32.         mouseY = _MOUSEY
33.         mouseLeftButton = _MOUSEBUTTON(1)
34.         mouseRightButton = _MOUSEBUTTON(2)
35.         mouseMiddleButton = _MOUSEBUTTON(3)
36.         mouseWheel = mouseWheel + _MOUSEWHEEL
37.     LOOP
38.     IF mouseRightButton = -1 THEN GOTO printing:
39.     IF mouseLeftButton = -1 THEN
40.         _PRINTMODE _KEEPBACKGROUND
41.         COLOR _RGB32(255, 255, 255)
42.         _FONT f&
43.         _PRINTSTRING (mouseX, mouseY), t$
44.         mouseLeftButton = 0
45.         _TITLE "Right click to make more text."
46.     END IF
47. LOOP
48.  

Here is the forum post from May of last year: https://www.qb64.org/forum/index.php?topic=1373.0#top