1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
local textSize = 10
local spacing = 1
local rect = { 100, 64, 200, 200 }
local wordwrap = true
local linkColor = RL.BLUE
local limitHeight = true
local mouseCharId = 0
local textOffset = { 0, 0 }
function RL.init()
RL.SetWindowTitle( "Text boxed" )
RL.SetWindowState( RL.FLAG_VSYNC_HINT )
end
function RL.update( delta )
if RL.IsMouseButtonDown( RL.MOUSE_BUTTON_RIGHT ) then
local mousePos = RL.GetMousePosition()
rect[3] = mousePos[1] - rect[1]
rect[4] = mousePos[2] - rect[2]
end
if RL.IsMouseButtonPressed( RL.MOUSE_BUTTON_LEFT ) and 0 < mouseCharId then
print( "Pressed link on char "..mouseCharId )
end
if RL.IsKeyPressed( RL.KEY_SPACE ) then
wordwrap = not wordwrap
end
end
function RL.draw()
RL.ClearBackground( RL.RAYWHITE )
RL.DrawRectangleLines( rect, RL.GREEN )
textOffset = { 0, 0 }
_, textOffset = RL.DrawTextBoxed(
RL.GetFontDefault(),
"\tYou can change the size of the box by pressing right mouse and toggle the wordwrap by pressing space. First we will write some text before the hyperlink to show that it is indeed is as powerful feature as adverticed.",
rect,
textSize, spacing, wordwrap, RL.RED, limitHeight, textOffset
)
mouseCharId, textOffset = RL.DrawTextBoxed(
RL.GetFontDefault(),
" Hyperlink.",
rect,
textSize, spacing, wordwrap, linkColor, limitHeight, textOffset
)
_, textOffset = RL.DrawTextBoxed(
RL.GetFontDefault(),
" Then we demonstrate this further by writin more text after the link. Isn't this just amazing! Don't forget to press left mouse to print text to your console when hovering mouse over the hyperlink.",
rect,
textSize, spacing, wordwrap, RL.RED, limitHeight, textOffset
)
RL.DrawTextBoxed(
RL.GetFontDefault(),
" \a#D28484FF Also supports \a#0000FFFF changing text \a#CCD834FF color in the \a#00FFFFFF middle of \a#B623A3FF the \a#00FF00FF text draw.",
rect,
textSize, spacing, wordwrap, RL.WHITE, limitHeight, textOffset
)
if 0 < mouseCharId then
linkColor = RL.GREEN
else
linkColor = RL.BLUE
end
end
|
