Hi
I have seen any, but we can create our own
// Project: textborder
// Created: 2017-12-15
// show all errors
SetErrorMode(2)
// set window properties
SetWindowTitle( "textborder" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
text = createtext("Hello world this is my text box with a border")
SetTextSize(text, 20)
do
createtextwithborder(text, 100,100, MakeColor(0,255,0))
Print( ScreenFPS() )
Sync()
loop
function createtextwithborder(t as integer, x#, y#, col)
SetTextPosition(t, x#, y#)
// Horizontals
//top
DrawLine(x#, y#, x# + GetTextTotalWidth(t), y#, col, col)
//bottom
DrawLine(x#, y#+GetTextTotalHeight(t), x# + GetTextTotalWidth(t), y#+GetTextTotalHeight(t), col, col)
//left
drawline(x#, y#, x#, y# + GetTextTotalHeight(t), col,col)
//right
drawline(x#+GetTextTotalWidth(t), y#, x#+GetTextTotalWidth(t), y# + GetTextTotalHeight(t), col,col)
endfunction
You see how I did this?
D
