Number Component

[Chris Gaskell]

Attached is the source code that I wrote as an example of my understanding of making a component. It's a text or edit box that accepts only numbers, and only accepts one decimal point.
I'm sure everyone can improve on it.

The dll code is :
*******************************************************
#DIM ALL

#COMPILE DLL "V6NOBOX.DLL"
#INCLUDE "C:\ezgui50pro\includes\ezgui50.inc"
#IF NOT %DEF(%WINAPI)
    #INCLUDE "win32api.inc"                        'add win32api if not already added
#ENDIF

FUNCTION LIBMAIN (BYVAL hInst&, BYVAL FReason&, BYVAL lpR&) AS LONG
      SELECT CASE FReason&
          CASE 0      ' %DLL_PROCESS_DETACH
          CASE 1      ' %DLL_PROCESS_ATTACH
          CASE 2      ' %DLL_THREAD_ATTACH
          CASE 3      ' %DLL_THREAD_DETACH
          CASE ELSE
     END SELECT
     FUNCTION=1
END FUNCTION
    ' Component include file!
   #INCLUDE "C:\ezgui50pro\components\V99frmNo.bas"

SUB EZ_InitComponent(BYVAL CMPPrefix$) EXPORT

     EZ_NOBOX_InitComponent CMPPrefix$

END SUB

***************************************************

The component code is as follows:

' *************************************************************************************
'                    Code Generated by EZGUI Professional Visual Designer 5.0
'           Portions: Copyright Christopher R. Boss, 2003 to 2011 All Rights Reserved !
'              Registered EZGUI 5.0 users may use generated code Royalty Free !
' *************************************************************************************
'
' -----------------------------------------------------------------------------------------
'            WARNING !    Do Not Modify any code WITHIN Protected Sections !
' You can add code (Sub,Function,etc.) BEFORE any Protected Routine by using the following
' CODE TAGS:        '<<SAVE>>      '<<END>>            and the Designer will not remove it.
' -----------------------------------------------------------------------------------------
'

' ======================================
' [PROTECTED CODE]         Do NOT Edit !
' ======================================

DECLARE SUB EZ_NOBOX_InitComponent(BYVAL CMPPrefix$)
DECLARE SUB EZ_NOBOX_Design()
DECLARE SUB EZ_NOBOX_ParseEvents(CID&, CMsg&, CVal&, Cancel&)
DECLARE SUB NOBOX_Events(CID&, CMsg&, CVal&, Cancel&)
%NOBOX_Width = 50
%NOBOX_Height = 2
' ------------------------------------------------

%NOBOX_TXTNO              = 100

DECLARE SUB NOBOX_TXTNO_Events(MyID&, CMsg&, CVal&, Cancel&)
DECLARE SUB NOBOX_TXTNO_SubClass(BYVAL CVal&, Cancel&)

'<<BEGINFORM>> "NOBOX"


' ======================================
' [PROTECTED CODE]         Do NOT Edit !
' ======================================

SUB EZ_NOBOX_InitComponent(BYVAL CMPPrefix$)     ' (PROTECTED)
     EZ_DefComponent CMPPrefix$+"NOBOX", "||NOBOX.bas", CODEPTR(EZ_NOBOX_Design), CODEPTR(EZ_NOBOX_ParseEvents)
END SUB

SUB EZ_NOBOX_Design()     ' (PROTECTED)
     LOCAL CText$
     EZ_Color-1,-1
     EZ_UseFont 4
     EZ_SubClass 2
     EZ_Text %NOBOX_TXTNO, 0, 0, 20, 2, "", ">EST"
     EZ_SubClass 0
     ' -----------------------------------------------
END SUB


SUB EZ_NOBOX_ParseEvents(CID&, CMsg&, CVal&, Cancel&)     ' (PROTECTED)
     SELECT CASE CID&
          CASE %EZ_Window
               NOBOX_Events CID&, CMsg&, CVal&, Cancel&
          CASE  %NOBOX_TXTNO
               NOBOX_TXTNO_Events CID&, CMsg&, CVal&, Cancel&
               IF CMsg&=%EZ_SubClass THEN
                    NOBOX_TXTNO_SubClass CVal&, Cancel&
               END IF
          CASE ELSE
               NOBOX_Events CID&, CMsg&, CVal&, Cancel&
     END SELECT
END SUB

' ======================================
' [USER ACCESSABLE CODE]  You may Edit !
' ======================================

SUB NOBOX_Events(CID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CID&
          CASE %EZ_Window
               SELECT CASE CMsg&
                    CASE %EZ_Loading
                    CASE %EZ_Loaded
                    CASE %EZ_Started
                    CASE %EZ_Close
                    CASE ELSE
               END SELECT
          CASE ELSE
     END SELECT
END SUB

SUB NOBOX_TXTNO_Events( MyID&, CMsg&, CVal&, Cancel&)
     SELECT CASE CMsg&
          CASE %EZ_Change
          CASE %EZ_KeyPress

          CASE %EZ_Focus

          CASE %EZ_Sizing
          CASE ELSE
     END SELECT
END SUB



SUB NOBOX_TXTNO_SubClass(BYVAL CVal&, Cancel&)
     DIM NoOfDP AS LONG
     DIM AText AS STRING
     DIM SelStart AS LONG
     DIM SelEnd AS LONG

     AText  = ""
     LOCAL hCtrl&, Msg&, wParam&, lParam&
     EZ_GetSubClass  CVal&, hCtrl&, Msg&, wParam&, lParam&
     SELECT CASE Msg&
          CASE %EZ_KEYDOWN

          CASE %WM_CHAR

             SELECT CASE wParam&


                AText =  EZ_GetText ("{ME}",100)
                NoOfDP = TALLY(AText,".")

                IF NoOfDP > 1 THEN

                    AText = MID$( AText,1 TO LEN(AText)-1)
                    SelStart = LEN(AText)
                    SelEnd = LEN(AText)

                    EZ_SetText "{ME}", 100, AText
                    EZ_SendMessage("{ME}",100, %EM_SETSEL, SelStart, SelEnd)
                    Cancel& = 1
                    EXIT SUB
                END IF
                CASE 48 TO 57, 45, 46, 8, 13 'only allow 0 to 9, 8,13 minus, period

             CASE ELSE

                 Cancel& = 1
                 EXIT SUB


         END SELECT
           CASE %WM_LBUTTONDOWN
          CASE ELSE
     END SELECT
END SUB


'<<END ALL FORMS>>    UnKnown Routines follow:
#IF %EZ_NOSKIPCODE
#ENDIF 'PARSE END

************************************************************
Hopefully, people can play around with this and improve it.
I have to say, EZGUIPRO makes component design easy.

Chris                                                             

[Chris Boss]

Just for your info, EZGUI has a masked edit control which can do this.

From the Help file under the EZ_Text command:


Masked Edit Features


            EZGUI converts the standard Text (Edit) control to a Masked Edit control if you define a Mask in the CProp$ parameter (after the properties).  The Mask is a set of characters between { }   characters (curly brackets). For example, a Mask for a telephone number would be:


            "{(999)999-9999}"


            The Mask must be added to the CProp$ (properties) parameter after the standard properties are listed  ( ie.   "ESTG({999)-999-9999}" )


            The Text field will also be set to a maximum length based on the length of the Mask. The Mask characters are defined below.


Standard Mask Characters:


      X - Any Character
      A - Alpha Character only and Space
      U - Alpha Character only and Space. Converted to Upper case !
      9 - Digits only (0 to 9)
      # - Digits (0 to 9) and space, +, -  and period
      N - AlphaNumeric and Space
      L - Logical (Y/N or T/F)
      Y - Logical (Y/N)
      T - Logocal (T/F)
      P - PlaceHolder when not using E property (means Read Only)


            Examples of Standard Masks:


     (999)999-9999 - Telephone number
     XXXXXXXXXX    -        Any text
     AAAAAAAAAA    - Alpha only
     UUUUUUUUU     - Uppercase only
     UUU-9999999   - Part number
     99/99/9999    - Date




            All other non-mask characters will be used "as is". They are frozen and can't be edited. If the Text Control is multiline, the Mask property is ignored. If the Text Control is readonly (does not have E (edit) property), then all mask characters are converted to P (Placeholder) mask character.


Calculator Mode Mask Characters:


      +  - This mask allows a Space (for Plus) or a minus sign ( - )
           and is used only in the first character position of a
           calculator mode mask.
      #  - Floating Point Mask
           (you can use a fixed decimal with this mask)
      %  - Whole Number Mask
      $_ - When a Dollar sign and a space are put to the
           left of a Calculator mode mask, then a $ and
           space will appear to the left in the textbox.


              ie. "$ ###.##"


      _% - When a space and % character are put at the
           end of a Calculator mode mask, then a space
           and % character will appear in the textbox at
           the far right.


              ie. "{##.## %}"


            Examples of Calculator mode masks:


     %%%%%%   - Whole number (positive only)
     +%%%%%   - Whole number (positive or negative)
     ######## - Floating Point number (positive only)
     +####### - Floating Point number (positive or negative)
     #####.## - Floating Point number
                (positive and fixed decimal)
     +####.## - Floating Point
                (positive or negative and fixed decimal)


     $ ###.## - Floating Point with $ (and space) to left
     ###.## % - Floating Point with (space and ) % to right


            When using a Calculator Mode Mask the Text control will allow entry of a real number and the characters will display Right to Left, like a calculator does. You can also add a + sign as the first character to allow plus or minus values (  ie. {+####} ). Also you can add just one decimal point (  ie. {+###.###} ). Using this format, you can mask Integers and real Numbers (with decimal).


            Caret Position !


            By default the Mask Edit control will set the caret position at the first character when the control gets the Focus. If you want the control to remember the previous position of the caret (character position cursor) then put a ? character in front of the mask (ie. {?XXXX} ). Masks that define a Calculator mode mask, always set the caret at the end of the text field, so the ? mask character has no effect.
           
            You can now use the Backspace key in most masks ! The control will determine the proper character to replace text with. For example, if the mask character is X, A, U or N it will use a space. If the mask character is a 9 (digits only) it will use a 0 (zero) when back spacing.