@...TEXTBOX \/ DEFINE TEXTBOX

Creates a TextBox Control

Standard Syntax (xBase Style):

Simple TEXTBOX:

@ <nRow>, <nCol>
 TEXTBOX <ControlName>
 [ OF | PARENT <ParentWindowName> ]
 [ HEIGHT <nHeight> ]
 [ WIDTH <nWidth> ]
 [ FIELD <FieldName> ]
 [ VALUE <cValue> ]
 [ READONLY ]
 [ FONT <cFontName> SIZE <nFontSize> ]
 [ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ]
 [ TOOLTIP <ToolTipText> ]
 [ BACKCOLOR <aBackColor> ]
 [ FONTCOLOR <aFontColor> ]
 [ DISABLEDBACKCOLOR <aDisabledBackColor> ]
 [ DISABLEDFONTCOLOR <aDisabledFontColor> ]
 [ MAXLENGTH <nInputLength> ]
 [ UPPERCASE ]
 [ LOWERCASE ]
 [ NUMERIC ]
 [ PASSWORD ]
 [ ON CHANGE <OnChangeProcedure> ]
 [ ON GOTFOCUS <OnGotFocusProcedure> ]
 [ ON LOSTFOCUS <OnLostFocusProcedure> ]
 [ ON ENTER <OnEnterProcedure> ]
 [ RIGHTALIGN ]
 [ INVISIBLE ]
 [ NOTABSTOP ]
 [ HELPID <nHelpId> ]

TEXTBOX ( Numeric InputMask ):

@ <nRow>,<nCol>
 TEXTBOX <ControlName>
 [ OF | PARENT <ParentWindowName> ]
 [ HEIGHT <nHeight> ]
 [ WIDTH <nWidth> ]
 [ FIELD <FieldName> ]
 [ VALUE <nValue> ]
 [ READONLY ]
 [ FONT <cFontName> SIZE <nFontSize> ]
 [ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ]
 [ TOOLTIP <ToolTipText> ]
 [ BACKCOLOR <aBackColor> ]
 [ FONTCOLOR <aFontColor> ]
 [ DISABLEDBACKCOLOR <aDisabledBackColor> ]
 [ DISABLEDFONTCOLOR <aDisabledFontColor> ]
 NUMERIC
 INPUTMASK <cMask>
 [ FORMAT <cFormat> ]
 [ ON CHANGE <OnChangeProcedure> ]
 [ ON GOTFOCUS <OnGotFocusProcedure> ]
 [ ON LOSTFOCUS <OnLostFocusProcedure> ]
 [ ON ENTER <OnEnterProcedure> ]
 [ RIGHTALIGN ]
 [ INVISIBLE ]
 [ NOTABSTOP ]
 [ HELPID <nHelpId> ]

TEXTBOX ( Character InputMask ):

@ <nRow>,<nCol>
 TEXTBOX <ControlName>
 [ OF | PARENT <ParentWindowName> ]
 [ HEIGHT <nHeight> ]
 [ WIDTH <nWidth> ]
 [ FIELD <FieldName> ]
 [ VALUE <cValue> ]
 [ READONLY ]
 [ FONT <cFontName> SIZE <nFontSize> ]
 [ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ]
 [ TOOLTIP <ToolTipText> ]
 [ BACKCOLOR <aBackColor> ]
 [ FONTCOLOR <aFontColor> ]
 [ DISABLEDBACKCOLOR <aDisabledBackColor> ]
 [ DISABLEDFONTCOLOR <aDisabledFontColor> ]
 INPUTMASK <cMask>
 [ ON CHANGE <OnChangeProcedure> ]
 [ ON GOTFOCUS <OnGotFocusProcedure> ]
 [ ON LOSTFOCUS <OnLostFocusProcedure> ]
 [ ON ENTER <OnEnterProcedure> ]
 [ RIGHTALIGN ]
 [ INVISIBLE ]
 [ NOTABSTOP ]
 [ HELPID <nHelpId> ]

TEXTBOX ( Date Type ):

@ <nRow>, <nCol>
 TEXTBOX <ControlName>
 [ OF | PARENT <ParentWindowName> ]
 [ HEIGHT <nHeight> ]
 [ WIDTH <nWidth> ]
 [ FIELD <FieldName> ]
 [ VALUE <cValue> ]
 [ READONLY ]
 [ FONT <cFontName> SIZE <nFontSize> ]
 [ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ]
 [ TOOLTIP <ToolTipText> ]
 [ BACKCOLOR <aBackColor> ]
 [ FONTCOLOR <aFontColor> ]
 [ DISABLEDBACKCOLOR <aDisabledBackColor> ]
 [ DISABLEDFONTCOLOR <aDisabledFontColor> ]
 < DATE >
 [ ON CHANGE <OnChangeProcedure> ]
 [ ON GOTFOCUS <OnGotFocusProcedure> ]
 [ ON LOSTFOCUS <OnLostFocusProcedure> ]
 [ ON ENTER <OnEnterProcedure> ]
 [ RIGHTALIGN ]
 [ INVISIBLE ]
 [ NOTABSTOP ]
 [ HELPID <nHelpId> ]

Alternate Syntax:

DEFINE TEXTBOX <Controlname>
   PARENT <ParentWindowName>
   ROW <nValue>
   COL <nValue>
   HEIGHT <nHeight>
   FIELD <FieldName>
   VALUE <nValue>
   READONLY <lValue>
   WIDTH <nWidth>
   INPUTMASK <cMask>
   FORMAT <cFormat>
   MAXLENGTH <nMaxLength>
   PASSWORD <lValue>
   FONTNAME <cValue>
   FONTSIZE <nValue>
   FONTBOLD <lValue>
   FONTITALIC <lValue>
   FONTUNDERLINE <lValue>
   FONTSTRIKEOUT <lValue>
   TOOLTIP <cToolTipText>
   BACKCOLOR <aBackColor>
   FONTCOLOR <aFontColor>
   DISABLEDBACKCOLOR <aDisabledBackColor>
   DISABLEDFONTCOLOR <aDisabledFontColor>
   DATATYPE CHARACTER | DATE | NUMERIC
   MAXLENGTH <nInputLength>
   CASECONVERT NONE | UPPER | LOWER
   ONGOTFOCUS <OnGotFocusProcedur>
   ONCHANGE <OnChangeProcedure>
   ONLOSTFOCUS <OnLostFocusProcedure>
   ONENTER <OnEnterProcedure>
   RIGHTALIGN <lValue>
   VISIBLE <lValue>
   TABSTOP <lValue>
   HELPID <nHelpId>
END TEXTBOX

Properties:

• Value
• Enabled
• Visible
• Row
• Col
• Width
• Height
• FontName
• FontSize
• FontBold
• FontItalic
• FontUnderline
• FontStrikeout
• ToolTip
• BackColor
• FontColor
• DisabledBackColor
• DisabledFontColor
• CaretPos
• ReadOnly
• Name (R)
• TabStop (D)
• Field (D)
• Parent (D)
• InputMask (D)
• Format (D)
• MaxLength (D)
• RightAlign (D)
• HelpId (D)
• CaseConvert (D)
• DataType (D)
• GetTextLength

D: Available at control definition only R: Read-Only

Events:

• OnGotFocus
• OnChange
• OnLostFocus
• OnEnter

Methods:

• Show
• Hide
• SetFocus
• Release
• Refresh
• Save

InputMask String (Numeric Textbox):

9 Displays digits
$ Displays a dollar sign in place of a leading space
* Displays an asterisk in place of a leading space
. Specifies a decimal point position
, Specifies a comma position

InputMask String (Non-Numeric Textbox):

9 Digits
A Alphabetic Characters
! Converts an alphabetic character to uppercase

(All other characters are included in text in the position indicated by the mask)

Format String (Allowed in Numeric Textbox Only):

C : Displays CR after positive numbers
X : Displays DB after negative numbers
( : Encloses negative numbers in parentheses
E : Displays numbers in British format

Hints:

• Inputmask and Maxlength clauses, can't be used simultaneously.