Snippet - Socoder

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

Hotshot	Created : 18 December 2007 Edited : 18 December 2007 System : Windows Language : Blitz Create Box with Text
; Example Create_Box(155,120,255,0,0,"HELLO WORLD",150,100,100,50) WaitKey ; My own Functions ; TX = Pos of Text X:TY = Pos of Text Y: RGB = Colors ; Text$= Type Anythings You like ; X,Y,X1,Y1 are the Positions Function Create_Box(TX,TY,R,G,B,Text$,X,Y,X1,Y1) Color R,G,B Text TX,TY,Text$ Rect X,Y,X1,Y1,0 End Function --v

Comments
Wednesday, 19 December 2007, 04:31
Jayenkai	A nice simple function. Can be easily expanded in multiple ways, for example. ; Example 1 Create_Box(155,120,255,0,0,"HELLO WORLD",5) WaitKey ; My own Functions Function Create_Box(TX,TY,R,G,B,Text$,Pad) x=tx-((StringWidth(Text$)/2)+Pad) y=ty-((FontHeight()/2)+Pad) x1=(StringWidth(Text$)+(Pad2)) y1=(FontHeight()+(Pad2)) Color R,G,B Text TX,TY,Text$,1,1 Rect X,Y,X1,Y1,0 End Function --v This version takes a single "Pad" value, and finds it's own values for X,Y,X1 and Y1. (And centers everything around the TX,TY co-ords) ; Example 2 Create_FilledTextBox(155,120,255,0,0,"HELLO WORLD",5) WaitKey Function Create_FilledTextBox(TX,TY,R,G,B,Text$,Pad) x=tx-((StringWidth(Text$)/2)+Pad) y=ty-((FontHeight()/2)+Pad) x1=(StringWidth(Text$)+(Pad2)) y1=(FontHeight()+(Pad2)) Color R/3,G/3,B/3 Rect X,Y,X1,Y1,1 Color R,G,B Rect X,Y,X1,Y1,0 Text TX,TY,Text$,1,1 End Function --v Fills the box with 1/3rd color, giving it a fuller appearance. ; Example 3 Create_3DFilledTextBox(155,120,255,0,0,"HELLO WORLD",5) WaitKey Function Create_3DFilledTextBox(TX,TY,R,G,B,Text$,Pad) x=tx-((StringWidth(Text$)/2)+Pad) y=ty-((FontHeight()/2)+Pad) x1=(StringWidth(Text$)+(Pad2)) y1=(FontHeight()+(Pad2)) Color R,G,B Rect X,Y,X1,Y1,1 Color R/5,G/5,B/5 Rect X+1,Y+1,X1-1,Y1-1,1 Color R/3,G/3,B/3 Rect X+1,Y+1,X1-2,Y1-2,1 Color R,G,B Text TX,TY,Text$,1,1 End Function --v 3D style.. By drawing a light color on the top left, a dark color bottom right, and a mid color for the center, you create a classic "Button" style box instead. You could then extend this to use different colors for the box and the text, or if you use Globals to define the box color, you can start to build up your own color-tweakable GUI, too! Graphics 800,600,32,2:SetBuffer BackBuffer() Global RGB_Background= GetRGB(180,150,150) Global RGB_3D_Light= GetRGB(230,230,250) Global RGB_3D_Dark= GetRGB(150,150,180) Global RGB_3D_Base= GetRGB(180,180,200) Global RGB_Text= GetRGB(0,0,0) Global Button_Pad= 5 ; Example 4! ClsColor 0,0,RGB_Background Repeat Cls If Button(100,100,"My Test Button") Then Color 0,0,0:Text 1,1,"The Test Button is pushed!" If Button(300,300,"My Second Button") Then Color 0,0,0:Text 1,1,"The Second Button is pushed!" Flip Until KeyDown(1) WaitKey Function Button(TX,TY,Text$) Local x=tx-((StringWidth(Text$)/2)+Button_Pad) Local y=ty-((FontHeight()/2)+Button_Pad) Local x1=(StringWidth(Text$)+(Button_Pad2)) Local y1=(FontHeight()+(Button_Pad2)) Local hit=0 If MouseX()>x And MouseX()<x+x1 And MouseY()>y And MouseY()<y+y1 And MouseDown(1) Then hit=1 Color 0,0,RGB_3D_Light If hit=1 Then Color 0,0,RGB_3D_Dark ; If the button's pushed, invert the colors. Rect X,Y,X1,Y1,1 Color 0,0,RGB_3D_Dark If hit=1 Then Color 0,0,RGB_3D_Light Rect X+1,Y+1,X1-1,Y1-1,1 Color 0,0,RGB_3D_Base Rect X+1,Y+1,X1-2,Y1-2,1 Color 0,0,RGB_Text Text TX,TY,Text$,1,1 Return hit End Function Function GetRGB(r,g,b) ; Returns a single integer which you can use instead of 3 RGB values. Return (r Shl 16)+(g Shl 8)+b End Function --v Very handy things to have if you're going to make a nice clickable menu screen.
Wednesday, 19 December 2007, 11:59
steve_ancell	I did something similar to that a few years ago, mine is not that good though. membres.lycos.fr/blitzcoder/code.shtml Or just incase the link to it goes dead, I will put it in a code box on here... ;Simple GUI Buttons Example ;Written in Blitz Basic 2D ;By Stephen Ancell ;February / 23 / 2003 AppTitle"GUI Buttons Example" Global gw=800,gh=600,gd=16,gm=2 Graphics gw,gh,gd,gm Type button Field x,y Field w,h Field func$ End Type create_button(0,100,50,25,"a") create_button(60,100,50,25,"b") create_button(120,100,50,25,"c") disp_button() Repeat detect_button() Until KeyHit(1) End Function create_button(x,y,w,h,func$) b.button=New button b\x=x b\y=y b\w=w b\h=h b\func$=func$ End Function Function disp_button() Cls Color 255,255,255 Text 0,0,"click on one of the boxes" Text 0,16,"press [Esc] to exit example" For b.button=Each button Color 0,100,150 Rect b\x,b\y,b\w,b\h,1 Next End Function Function detect_button() If Not MouseHit(1) Return EndIf disp_button() For b.button=Each button If MouseX()>b\x If MouseX()<(b\x+b\w) If MouseY()>b\y If MouseY()<(b\y+b\h) exec_func(b\func$) EndIf EndIf EndIf EndIf Next End Function Function exec_func(func$) Color 255,255,255 Select func$ Case "a" Text (gw/2),(gh/2),"button a" Case "b" Text (gw/2),(gh/2),"button b" Case "c" Text (gw/2),(gh/2),"button c" End Select End Function --v \|edit\| The 3D one that you have done above,looks good BTW . \|edit\|
Wednesday, 19 December 2007, 13:21
power mousey	cool! what would be even cooler and weird is to open the 3d box or cube and reveal all the sides opening up and let the 3d text come out. And then close up the sides again of the 3d box. ahhhhhhhhhh!
Thursday, 20 December 2007, 06:40
spinal	slight modification, moves the text when button pressed, looks more pressed now. Graphics 800,600,32,2:SetBuffer BackBuffer() Global RGB_Background= GetRGB(180,150,150) Global RGB_3D_Light= GetRGB(230,230,250) Global RGB_3D_Dark= GetRGB(150,150,180) Global RGB_3D_Base= GetRGB(180,180,200) Global RGB_Text= GetRGB(0,0,0) Global Button_Pad= 5 ; Example 4! ClsColor 0,0,RGB_Background Repeat Cls If Button(100,100,"My Test Button") Then Color 0,0,0:Text 1,1,"The Test Button is pushed!" If Button(300,300,"My Second Button") Then Color 0,0,0:Text 1,1,"The Second Button is pushed!" Flip Until KeyDown(1) WaitKey Function Button(TX,TY,Text$) Local x=tx-((StringWidth(Text$)/2)+Button_Pad) Local y=ty-((FontHeight()/2)+Button_Pad) Local x1=(StringWidth(Text$)+(Button_Pad2)) Local y1=(FontHeight()+(Button_Pad2)) Local hit=0 If MouseX()>x And MouseX()<x+x1 And MouseY()>y And MouseY()<y+y1 And MouseDown(1) Then hit=1 Color 0,0,RGB_3D_Light If hit=1 Then Color 0,0,RGB_3D_Dark ; If the button's pushed, invert the colors. Rect X,Y,X1,Y1,1 Color 0,0,RGB_3D_Dark If hit=1 Then Color 0,0,RGB_3D_Light Rect X+1,Y+1,X1-1,Y1-1,1 Color 0,0,RGB_3D_Base Rect X+1,Y+1,X1-2,Y1-2,1 Color 0,0,RGB_Text If hit=1 Then Text TX+1,TY+1,Text$,1,1 Else Text TX,TY,Text$,1,1 End If Return hit End Function Function GetRGB(r,g,b) ; Returns a single integer which you can use instead of 3 RGB values. Return (r Shl 16)+(g Shl 8)+b End Function --v

Create Box with Text

Comments