putting a clickable hyperlink in your qb64pe program?

[grymmjack]

And for you SCREEN 0 fans, a way using hardware acceleration to underline a link...

Code: (Select All)

Palette 7, 63: Color 0, 7: Cls

a$ = "https://qb64phoenix.com"

j = Len(a$)

Color 1: Print a$: Color 0

Print "Pete's tremendous while Steve's just amazing!"

CRed = 0: CGrn = 0: CBlu = 155

t = _NewImage((j + 1) * 8, 2 * 16, 32)

_Dest t

Line (0, _FontHeight * 1 - 3)-(j * _FontWidth, _FontHeight * 1 - 3), _RGB32(CRed, CGrn, CBlu), B

lin = _CopyImage(t, 33)

_FreeImage t

_Dest 0

Do

    _Limit 10

    _PutImage ((1 - 1) * 8, (1 - 1) * 16), lin

    _Display

Loop

Of course this can be expanded to detect links, follow link, as discussed in the posts above, and the underlining part could also be expanded into a sub or function to find the links on the screen and underline them.

Pete

- Helping the QB664 community one boast post at a time.

Whoa, that's so cool @Pete - so like it has textmode then overlays the image on top in the hardware layer?