TheGameCreators - CodeBase - TextBox Functions...

Return to the CodeBase listing

Category: Input / Output

Version: 1.0

Information

Uploaded: 31st Dec 2004 16:47

Modified: 1st Jan 1970 01:00

Author: MSon

Summary

Do you want access to TextBoxes? Heres some TextBox Functions, All Sprite Based... Enjoy MSon648@Hotmail.Com

Full Description

Do you want access to TextBoxes? Heres some TextBox Functions, All Sprite Based... Enjoy MSon648@Hotmail.Com

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Set Display Mode 1024,768,32

` TextBox Setup

Type System_Type_TextBox

BackColor         As Integer

BorderSize        As Integer

Center            As Integer

Contents          As String

Cursor            As Integer

Disabled          As Integer

Font              As String

ForeColor         As Integer

Height            As Integer

HelpText          As String

Hidden            As Integer

Image             As Integer

Object            As Integer

Style             As String

TextColor         As Integer

TextSize          As Integer

Width             As Integer

X                 As Integer

Y                 As Integer

Window            As Integer

Angle             As Float

AutoRotation      As Integer

AutoRotationSpeed As Float

HideBorder        As Integer

EndType

Global System_Global_TextBoxEditMode   As Integer

Global System_Global_TextBoxReDrawMode As Integer

Dim TextBox(0) As System_Type_TextBox

Global TabValue

Global Temp

NewUser_Name = MakeTextBox(100,100,100,20,"String$")

Text 10,10,Str$(Screen FPS())

UpdateTextBox(NewUser_Name)

Sync

Loop

Function FreeTextBoxNumber()

n = Array Count( TextBox(0) )

Add To Stack TextBox()

EndFunction n

Function MakeTextBox(X,Y,Width,Height,String$)                        : ` TextBox Number                          : Make a New TextBox

If System_Global_TextBoxReDrawMode = 0 Or System_Global_TextBoxEditMode = 0

TBn                     = FreeTextBoxNumber()

TextBox(TBn).BorderSize = 1

TextBox(TBn).BackColor  = RGB(0,0,255)

TextBox(TBn).Center     = 0

TextBox(TBn).Font       = "Arial"

TextBox(TBn).ForeColor  = RGB(255,255,255)

TextBox(TBn).Hidden     = 0

TextBox(TBn).HideBorder = 0

TextBox(TBn).Style      = ""

TextBox(TBn).TextColor  = RGB(1,1,1)

TextBox(TBn).TextSize   = 12

TextBox(TBn).Width      = Width

TextBox(TBn).X          = X

TextBox(TBn).Y          = Y

If Width  = 0 Then Width   = 100

TextBox(TBn).Height     = Height

If Height = 0 Then Height  = 25

TextBox(TBn).Contents   = String$

TextBox(TBn).Image      = FreeImageNumber()

TextBox(TBn).Object     = FreeSpriteNumber()

Else

TBn = RedrawValue

EndIf

BMn                     = FreeBitmapNumber()

OldBMn                  = Current Bitmap()

RedrawValue             = 0

Create Bitmap BMn,TextBox(TBn).Width,TextBox(TBn).Height

Set Current Bitmap BMn

` Draw the BackGround

Ink TextBox(TBn).BackColor,0

Box 0,0,TextBox(TBn).Width,TextBox(TBn).Height

` Resize the String If Required

FitStringToLenth(String$,TextBox(TBn).Width-(TextBox(TBn).BorderSize*2))

` Set the Font And Write to the TextBox

Ink TextBox(TBn).TextColor,0

Set Text Size TextBox(TBn).TextSize

Set Text Font TextBox(TBn).Font

If TextBox(TBn).Style <> ""

If Upper$(TextBox(TBn).Style) = "BOLD"       Then Set Text to Bold

If Upper$(TextBox(TBn).Style) = "ITALIC"     Then Set Text to Italic

If Upper$(TextBox(TBn).Style) = "BOLDITALIC" Then Set Text to BoldItalic

EndIf

` Print the Contents

If TextBox(TBn).Center = 1

Center Text Bitmap Width(BMn) / 2,Bitmap Height(BMn) / 2 - (Text Height(String$) / 2),String$

Else

Text B,Bitmap Height(BMn) / 2 - (Text Height(String$) / 2),String$

EndIf

` Print the Border ONLY If Not in Edit Mode Or If Hidden

If System_Global_TextBoxEditMode = 0 Or TextBox(TBn).HideBorder = 0

Ink TextBox(TBn).ForeColor,0

Box 0,0,TextBox(TBn).Width,TextBox(TBn).BorderSize

Box 0,0,TextBox(TBn).BorderSize,TextBox(TBn).Height

Box TextBox(TBn).Width - TextBox(TBn).BorderSize,0,TextBox(TBn).Width,TextBox(TBn).Height

Box 0,TextBox(TBn).Height - TextBox(TBn).BorderSize,TextBox(TBn).Width,TextBox(TBn).Height

EndIf

` Update the TextBox Image and Sprite

if Image Exist(TextBox(TBn).Image)

delete image TextBox(TBn).Image

endif

Get Image TextBox(TBn).Image,0,0,TextBox(TBn).Width,TextBox(TBn).Height,1

Sprite TextBox(TBn).Object,TextBox(TBn).X,TextBox(TBn).Y,TextBox(TBn).Image

`Hide Sprite TextBox(TBn).Object

` CleanUp

Set Current Bitmap OldBMn

Delete Bitmap BMn

System_Global_TextBoxEditMode   = 0

System_Global_TextBoxReDrawMode = 0

EndFunction TBn

Function FitStringToLenth(String$,Lenth)

If Text Width(String$) => Lenth

Repeat:String$ = Left$(String$,Len(String$) - 1)

Until Text Width(String$) <= Lenth

EndIf

EndFunction String$

Function MouseOverTextBox(TBn)

n = MouseOverSprite(TextBox(TBn).Object)

EndFunction n

Function RedrawTextBox(TBn)                                           : `                                         : Redraw the TextBox, This should be Used if you Use the Type Commands to Change the Look or Contents of the TextBox

System_Global_TextBoxReDrawMode = TBn

MakeTextBox(TextBox(TBn).X,TextBox(TBn).Y,TextBox(TBn).Width,TextBox(TBn).Height,TextBox(TBn).Contents)

EndFunction

Function TextBoxInput(TBn)                                            : ` New TextBox Contents                    : Force the User to Input into a Specific TextBox

` BackUp of Old String

OldString$ = TextBox(TBn).Contents

`Text 10,10,TextBox(TBn).Contents

` Add to String

TextBox(TBn).Contents=TextBox(TBn).Contents+Entry$() : Clear Entry Buffer

` BackSpace [BackSpace Button]

If Scancode() = 14 Then TextBox(TBn).Contents=Left$(TextBox(TBn).Contents,Len(TextBox(TBn).Contents)-1)

` Tab [Tab Button]

If ScanCode() = 15 Then TextBox(TBn).Contents=TextBox(TBn).Contents+Space$(TabValue)

` Write to ClipBoard [Delete Button]

If ScanCode() = 211 Then Write To ClipBoard TextBox(TBn).Contents

` Paste From ClipBoard [Insert Button]

If ScanCode() = 210 Then TextBox(TBn).Contents=TextBox(TBn).Contents+Get ClipBoard$()

` Check If Update Needed

If OldString$ <> TextBox(TBn).Contents

System_Global_TextBoxEditMode = 1

RedrawTextBox(TBn)

Sync

EndIf

` Exit If

If ScanCode() = 1 Or MouseOverSprite(TextBox(TBn).Object) = 0 And MouseClick() <> 0

NewString$ = TextBox(TBn).Contents

System_Global_TextBoxEditMode = 0

RedrawTextBox(TBn)

ExitFunction NewString$

EndIf

Loop

EndFunction ""

Function ShowTextBox(TBn)                                             : `                                         : Show the TextBox

Show Sprite TextBox(TBn).Object

TextBox(TBn).Hidden = 0

EndFunction

Function HideTextBox(TBn)                                             : `                                         : Hide the TextBox

Hide Sprite TextBox(TBn).Object

TextBox(TBn).Hidden = 1

EndFunction

Function UpdateTextBox(TBn)                                           : ` New Contents If Selected, Else ""       : Scan the TextBox to see if the User Has Selected It, If so then will AutoMatically Allow Editing of TextBox, And Return the New 'TextBox(#).Contents'

` If TextBox Hidden

If TextBox(TBn).Hidden = 1

Hide Sprite TextBox(TBn).Object

ExitFunction ""

EndIf

ShowTextBox(TBn) : ` Show the TextBox

`System_Function_UpdateTextBoxPosition(TBn) : ` Update the TextBox Rotation

System_Function_UpdateTextBoxRotation(TBn) : ` Update the TextBox Rotation

` Is the Textox Disabled

If TextBox(TBn).Disabled = 1 Then ExitFunction ""

` System MouseClick Value

Click = MouseClick()

` Have you Selected the TextBox

If MouseOverTextBox(TBn) = 1 And Click = 1

NewString$ = TextBoxInput(TBn)

ExitFunction NewString$

EndIf

EndFunction ""

RemStart

Function System_Function_UpdateTextBoxPosition(TBn)

PositionSprite(TextBox(TBn).Object,Window(TextBox(TBn).Window).X+TextBox(TBn).X,Window(TextBox(TBn).Window).Y+TextBox(TBn).Y)

EndFunction

RemEnd

Function System_Function_UpdateTextBoxRotation(TBn)

If TextBox(n).AutoRotation = 1

TextBox(n).Angle = WrapValue(TextBox(n).Angle+TextBox(n).AutoRotationSpeed)

EndIf : Rotate Sprite TextBox(n).Object,TextBox(n).Angle

EndFunction

Function FreeImageNumber()

Inc Temp

v = Temp

EndFunction v

Function FreeSpriteNumber()

Inc Temp

v = Temp

EndFunction v

Function FreeBitmapNumber()

For n = 1 To 32

If Bitmap Exist(n) = 0 Then ExitFunction n

Next n

EndFunction 0

Function MouseOverSprite(Sn)                                          : ` 1 = Mouse Over Sprite                   : Check if the Mouse is Over a Sprite

` Return Value | 1 = Over Sprite

`              | 0 = Not

If MouseX() > Sprite X(Sn) And MouseX() < Sprite X(Sn) + Sprite Width(Sn) And MouseY() > Sprite Y(Sn) And MouseY() < Sprite Y(Sn) + Sprite Height(Sn) Then ExitFunction 1

CodeBase - TextBox Functions...

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	MSon
CodeBase Entries:	3