No compila TextBox!/ No compiles TextBox
Posted: Wed Feb 11, 2015 7:47 pm
Hola a todos!
No encuentro la causa el por que no compila este simple TextBox usando la Standard Syntax (xBase Style), pero si uso la sintaxis alterna si me lo compila sin problemas, y quisiera encontrar el "error", ya que quiero utilizar esta sintaxis (Standard Syntax) por que ocupa menos espacio (un renglón!)
Alguna idea?
Mil gracias de antemano.
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Hello everyone!
I find the causes that do not compile this simple TextBox using the Standard Syntax (xBase Style), but if you use the alternate syntax if I compile it without problems, and I would find the "error" because I want to use this syntax (Standard Syntax) that occupies less space (one row!)
Any ideas?
Thanks in advance.
No encuentro la causa el por que no compila este simple TextBox usando la Standard Syntax (xBase Style), pero si uso la sintaxis alterna si me lo compila sin problemas, y quisiera encontrar el "error", ya que quiero utilizar esta sintaxis (Standard Syntax) por que ocupa menos espacio (un renglón!)
Alguna idea?
Mil gracias de antemano.
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Hello everyone!
I find the causes that do not compile this simple TextBox using the Standard Syntax (xBase Style), but if you use the alternate syntax if I compile it without problems, and I would find the "error" because I want to use this syntax (Standard Syntax) that occupies less space (one row!)
Any ideas?
Thanks in advance.
Code: Select all
/*
* HMG InputMask Demo
* (c) 2003 Roberto lopez
*/
/*
InputMask String For 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
Format String
C Displays CR after positive numbers
X Displays DB after negative numbers
( Encloses negative numbers in parentheses
E Displays points as thousand separator and comma as decimal
separator.
*/
#include "hmg.ch"
Function Main
SET NAVIGATION EXTENDED
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 500 ;
TITLE 'InputMask Demo' ;
MAIN
DEFINE MAIN MENU
POPUP 'Test'
ITEM 'Get Text_1 Value' ACTION MsgInfo (Str(Form_1.Text_1.Value))
ITEM 'Set Text_1 Value' ACTION Form_1.Text_1.Value := 123456.12
ITEM 'Set Text_1 Focus' ACTION Form_1.Text_1.SetFocus
END POPUP
END MENU
@ 10,10 TEXTBOX Text_1 VALUE 1234567.12 NUMERIC INPUTMASK "$9,999,999.99" NAME 'Arial' SIZE 12 TOOLTIP "" BACKCOLOR BLUE FONTCOLOR BLACK ON GOTFOCUS MsgBox('Hola')
/*
@ <nRow> ,<nCol>
TEXTBOX <ControlName>
[ OF | PARENT <ParentWindowName> ]
[ HEIGHT <nHeight> ]
[ FIELD <FieldName> ]
[ VALUE <nValue> ]
[ READONLY ]
[ WIDTH <nWidth> ]
[ NUMERIC ] [ INPUTMASK <cMask> ]
[ FORMAT <cFormat> ] | PASSWORD ]
[ FONT <cFontName> SIZE <nFontSize> ]
[ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ]
[ TOOLTIP <cToolTipText> ]
[ BACKCOLOR <aBackColor> ]
[ FONTCOLOR <aFontColor> ]
[ DISABLEDBACKCOLOR <aDisabledBackColor> ]
[ DISABLEDFONTCOLOR <aDisabledFontColor> ]
[ DATE ]
[ MAXLENGTH <nInputLength> ]
[ UPPERCASE | LOWERCASE ]
[ ON GOTFOCUS <OnGotFocusProcedur> | <bBlock> ]
[ ON CHANGE <OnChangeProcedure> | <bBlock> ]
[ ON LOSTFOCUS <OnLostFocusProcedure> | <bBlock> ]
[ ON ENTER <OnEnterProcedure> | <bBlock> ]
[ RIGHTALIGN ]
[ INVISIBLE ]
[ NOTABSTOP ]
[ HELPID <nHelpId> ]
DEFINE TEXTBOX Text_1
PARENT Form_1
ROW 10
COL 10
VALUE 123456.12
INPUTMASK "$ 9,999,999.99"
FONTNAME "Courrier New"
FONTSIZE 9
FONTBOLD .T.
FONTITALIC .T.
FONTUNDERLINE .T.
FONTSTRIKEOUT .T.
TOOLTIP "Soy TextBox!"
BACKCOLOR BLACK
FONTCOLOR BLUE
DATATYPE NUMERIC
ONGOTFOCUS NIL
END TEXTBOX
*/
/*
@ 10,10 TEXTBOX Text_1 ;
VALUE 1234567.12 ;
NUMERIC INPUTMASK "$9,999,999.99"
*/
@ 50,10 TEXTBOX Text_2 ;
VALUE 1234.56 ;
NUMERIC INPUTMASK "$9,999.99" FORMAT 'CX'
@ 90,10 TEXTBOX Text_3 ;
VALUE -123.0 ;
NUMERIC INPUTMASK "999,999.99" FORMAT '('
@ 130,10 TEXTBOX Text_4 ;
VALUE 123.0 ;
NUMERIC INPUTMASK "999.9"
@ 170,10 TEXTBOX Text_5 ;
VALUE -123.45 ;
NUMERIC INPUTMASK "$9,999.99" FORMAT 'CX'
@ 210,10 TEXTBOX Text_6 ;
VALUE 1234.56 ;
NUMERIC INPUTMASK "$***,999.99"
@ 250,10 TEXTBOX Text_7 ;
VALUE 12345678.12 ;
NUMERIC INPUTMASK "99999999.99"
@ 290,10 TEXTBOX Text_8 ;
VALUE 1.1 ;
NUMERIC INPUTMASK "9.9"
@ 330,10 TEXTBOX Text_9 ;
VALUE 1234567890.12 ;
NUMERIC INPUTMASK "$9999999999.99"
@ 370,10 TEXTBOX Text_10 ;
VALUE 123456 ;
NUMERIC INPUTMASK "$9999999"
@ 410,10 TEXTBOX Text_11 ;
VALUE 1234.56 ;
NUMERIC INPUTMASK "99,999.99" FORMAT 'E'
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
