Rounded rect buttons with centered text + word wrap

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|620\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Text and GUI's

Andy_A	Created : 07 October 2010 Edited : 09 October 2010 System : Windows Language : Blitz Rounded rect buttons with centered text + word wrap Rounded Text Buttons/Panels
Was working on some stuff and the need for centered text on a rounded rectangle popped up. There's a few solutions already posted here on SoCoder but they weren't quite what I needed. One was too slow (can't remember where it was, but I wrote it!), the other was in Cobra (don't know Cobra and not too fond of Pascal anyway). This little function is simple enough and while not terribly fast, it's fast enough for my needs. Graphics 800,600,32,2 SetBuffer BackBuffer() fntArial = LoadFont("Arial",18,True, True, False) fntTimes = LoadFont("Times New Roman",48,True, False, False) Text 5,204,"Corner radius of 5 pixels -->" Text 5,239,"Corner radius of 8 pixels -->" Text 5,273,"Corner radius of 11 pixels -->" Text 5,317,"Corner radius of 15 pixels -->" Text 5,404,"Corner radius of 25 pixels -->" SetFont fntArial tBtn(250,200,300,25,"A rounded button with centered text", 255,255,255, 32,80,255, 5) tBtn(250,235,300,25,"The typical 'Hello World' message...", 255,255,255, 32,80,255, 8) tBtn(250,265,300,30,"The typical 'Hello World' message...", 255,255,255, 32,80,255, 11) tBtn(250,305,300,40,"The typical 'Hello World' message...", 255,255,255, 32,80,255, 15) tBtn(250,380,300,60,"The typical 'Hello World' message...", 255,255,255, 32,80,255, 25) SetFont fntTimes tBtn(120,10,560,50,"Buttons with rounded corners", 0,0,128, 192,192,192, 15) Flip WaitKey() FreeFont fntArial FreeFont fntTimes End Function tBtn (x%, y%, wide%, high%, msg$, txtR%,txtG%, txtB%, btnR%, btnG%, btnB%, cornerRad%) ;====================================================================================== ; tBtn: Text button - Prints centered text on a button with rounded corners ;====================================================================================== ; x,y = upperleft coordinates of where rounded button is placed ; wide = width of button in pixels ; high = height of button in pixels ; msg$ = Text String To Print (centered on button) ; txtR, txtG, txtB = the color of the text to print on button ; btnR, btnG, btnB = the color the button with rounded corners ; cornerRad = the radius of rounded corner - recommended values 2 to 26 (11 typical) ;====================================================================================== Local rad%, diam%, txtWide%, fntHigh%, cx%, cy% txtWide = StringWidth(msg$) If txtWide > wide Then RuntimeError "Text width is wider than the button width." fntHigh = StringHeight(msg$) If fntHigh > high Then RuntimeError "Text font is taller than the button height." cx = (wide - txtWide) Shr 1 + x cy = (high - fntHigh) Shr 1 + y diam = cornerRad + cornerRad Color btnR, btnG, btnB Oval x, y, diam, diam, True ;upper left Oval x, y+high-diam, diam, diam, True ;lower left Oval x+wide-diam, y, diam, diam, True ;upper right Oval x+wide-diam, y+high-diam, diam, diam, True ;lower right Rect x+cornerRad, y, wide - diam, high, True Rect x, y+cornerRad, wide, high-diam, True Color txtR, txtG, txtB Text cx, cy, msg$ End Function --v edit: fixed typos

Comments
Saturday, 09 October 2010, 08:04
mindstorm8191	Not bad. Blitz has some functions to determine the width and height of a string of text, you may want to include in here. I think its called textwidth & textheight... or something, you should be able to find it. You could then use that to determine the size of your buttons (plus padding), and then use the parameters as a minimum width & height, if they want the buttons bigger than the text.
Saturday, 09 October 2010, 09:15
Andy_A	Currently working on just that! The function wraps and centers (optional) the text inside of a rounded rectangle. However, seem to be having a an intermittent problem when the last line of text is printed twice. When that is solved I'll post the code.
Saturday, 09 October 2010, 14:19
Andy_A	This function word-wraps the text from an un-formatted string and optionally centers text, all bundled inside of a rounded rectangle. AppTitle "Wrapped and Centered Text in Rounded Rects" Graphics 800, 600, 32, 2 SetBuffer BackBuffer() Dim work$(1,1) fntArial% = LoadFont("Arial", 20, True, False, False) fntTimes% = LoadFont("Times New Roman", 20, True, False, False) ;text excerpted from Blitz help on 'Types' msg1$ = "Not a database guru? Need another example? Okay. Let's say you are setting up an auditorium for a speech or event and you are putting up hundreds of chairs for the spectators. The chairs have to be in a certain place on the floor, and some will need to be raised up a bit higher than others (visiting dignitaries, the mayor is coming, etc.). So being the computer genius you are, you start figuring out how you can layout the chairs with the least amount of effort. You realize that the floor is checkered, so its really a huge grid! This will make it easy! You just need to number the floor on a piece of graph paper and put into the grid how high each chair should be, based on where the boss told you the important people are to sit. So, for each chair, you will have a row and column on the graph paper (x and y location) and a level to adjust the chair to (height). Good, we are organized. Now, even though we have it all on paper, we still have to do the work of placing all the chairs. After you are done, let's say your boss walks up to you and says 'they aren't centered right .. move'em all over 1 square'. Oh no! You have them all perfect, and even though it is a simple thing to move a chair one square to the right (After all, their order and height won't change) - you still have to move each and every chair! Sure would be nice if you could just wave your hand and say 'For Each chair in the room, add 1 square to its x location' and have it just magically happen. Alas, in the real world, get busy - you've got a lot of chairs to move!" msg2$ = "In Blitz, you could have set up a TYPE called CHAIR, set the TYPE's FIELDS as X, Y, and HEIGHT. You would then create as many chairs as you need with the NEW command (each time you call NEW, it makes a new chair, with its OWN X, Y, and HEIGHT variables) and assign them the X, Y, and HEIGHT values you decide upon. In our example above, when the boss told you to move the chairs over 1 box, you probably groaned inside. That's a lot of work! In Blitz, we could use four lines of code to adjust all our CHAIR objects to the new position (using FOR ... EACH commands). " SetFont fntTimes wrapText( 10, 10, msg1$, 780, 0,0,0, 248,255,192, 1) SetFont fntArial wrapText( 10, 380, msg2$, 780, 255,255,255, 32,80,192, 1) wrapText( 250, 545,"Click to view side-by-side layout",300, 255,255,255, 255,0,0, 1) Flip WaitMouse() Cls SetFont fntArial ;switch from Times to Arial wrapText( 10, 5, msg1$, 470, 0,0,0, 248,255,192, 0) SetFont fntTimes ;switch from Arial to Times msg$ = "In Blitz, you could have set up a TYPE called CHAIR, set the TYPE's FIELDS as X, Y, and HEIGHT. You would then create as many chairs as you need with the NEW command (each time you call NEW, it makes a new chair, with its OWN X, Y, and HEIGHT variables) and assign them the X, Y, and HEIGHT values you decide upon. In our example above, when the boss told you to move the chairs over 1 box, you probably groaned inside. "+LF$+" That's a lot of work! In Blitz, we could use four lines of code to adjust all our CHAIR objects to the new position (using FOR ... EACH commands). " wrapText( 490, 5, msg2$, 300, 255,255,255, 32,80,192, 0) wrapText( 540, 465,"Waiting for left mouse click to exit.",200, 255,255,255, 255,0,0,1) Flip WaitMouse() FreeFont fntArial FreeFont fntTimes End Function wrapText%(x%, y%, msg$, wide%, fr%, fg%, fb%, br%, bg%, bb%, center% = 0) ;======================================================================= ; This function wraps text inside of a rounded rectangle with an option to ; center the text. ;======================================================================= ; x,y = upperleft coordinates of the rounded rectangle ; ; msg$ = text string that you wish to place in rounded rectangle ; ; wide = maximum width of button in pixels ; ; fr, fg, fb = text color (RGB triplet) ; ; br, bg, bb = button color (RGB triplet) ; ; center = when 'center' = 1 then each line of text is centered ; the default setting is zero. (no centering) ;======================================================================= Local rad%, initX%, initY%, txtHigh%, count%, nxtWord$, flag%, txtCenter% Local tLine$, temp$, lineCount%, boxWide%, boxHigh%, pad%, tLen% Dim work$(50,1) pad = 10 ;the padding can be adjusted to suit your particular needs rad = 9 ;radius of rounded corner - values 2 To 26 recommended diam = rad + rad ;diameter of circles initX = x initY = y txtWide = wide - pad2 txtHigh = StringHeight(msg$) ;height of current font in pixels x = x y = y + pad Repeat count = count + 1 nxtWord$ = Word$(msg$, count, " ") tLine$ = temp$ temp$ = temp$ + nxtWord$ + " " If StringWidth(temp$) >= txtWide Then tLine$ = Trim(tLine$) lineCount = lineCount+1 work$(lineCount,0) = Str(x)+" "+Str(y) work$(lineCount,1) = tLine$ y = y + txtHigh temp$ = "" count = count-1 End If Until nxtWord$ = "" tLine$ = Trim(tLine$) If work$(lineCount,1) <> tLine$ Then lineCount = lineCount + 1 work$(lineCount,0) = Str(x)+" "+Str(y) work$(lineCount,1) = tLine$ End If boxWide = wide boxHigh = lineCount txtHigh + pad*2 Color br, bg, bb ;draw the filled circles To make rounded corners Oval initX, initY, diam, diam, True ;upperLeft Oval initX, initY+boxHigh-diam-1, diam, diam, True ;lowerLeft Oval initX+boxWide-diam-1, initY, diam, diam, True ;upperRight Oval initX+boxWide-diam-1, initY+boxHigh-diam-1, diam, diam, True ;lowerRight ;fill in the space between circles using filled boxes Rect initX, initY+rad, boxWide-1, boxHigh-diam-1, True Rect initX+rad, initY, boxWide-diam-1, boxHigh-1, True Color fr, fg, fb For i = 1 To lineCount x = Word$(work$(i,0),1) y = Word$(work$(i,0),2) If center = 1 Then tLen = StringWidth(work$(i,1)) txtCenter = (boxWide - tLen) Shr 1 x = x + txtCenter Else x = x + pad End If Text x, y, work$(i,1) Next End Function Function Word$(string2Chk$, n, delimiter$=" ") ;initialize local variables Local count%, findDelimiter%, position%, current$ count = 0 findDelimiter = 0 position = 1 ;current$ = "" ;'n' must be greater than zero ;otherwise exit function and return null string If n > 0 Then ;strip leading and trailing spaces string2Chk$ = Trim(string2Chk$) ;find the word(s) Repeat ;first check if the delimiter occurs in string2Chk$ findDelimiter% = Instr(string2Chk$,delimiter$,position) If findDelimiter <> 0 Then ;extract current word in string2Chk$ current$ = Mid$(string2Chk$,position,findDelimiter-position) ;word extracted; increment counter count = count + 1 ;update the start position of the next pass position = findDelimiter + 1 ;if counter is same as n then exit loop If count = n Then findDelimiter = 0 End If Until findDelimiter = 0 ;Special Case: only one word and no delimiter(s) or last word in string2Chk$ If (count < n) And (position <= Len(string2Chk$)) Then current$ = Mid$(string2Chk$,position, Len(string2Chk$) - position+1) count = count + 1 ;looking for word that is beyond length of string2Chk$ If count < n Then current$ = "" End If End If Return current$ End Function --v

Rounded rect buttons with centered text + word wrap

Comments