Click above to get retro games delivered to your door ever month!

ATTACH ... GET AS TEXTFIELD                                     DFCTRL.CH   
Makes a new control of type Text Box
------------------------------------------------------------------------------
Syntax:

     ATTACH <cId> TO <aParent> GET AS TEXTFIELD <uVar> ;
                  AT <nTop>, <nLeft>, <nBottom>, <nRight> ;
                  [CONDITION <uCond>] ;
                  [ACTIVE <uActive>] ;
                  [PAGE <nPage>] ;
                  [PROMPT <cPrompt>] ;
                  [BOX <nBox>] ;
                  [DISPLAYIF <uDiIf>] ;
                  [<Ink:NOINKEY>] ;
                  [SYSFUNCTION <uSys>] ;
                  [MESSAGE <cMes>] ;
                  [VARNAME <cVarName>];
                  [COLOR <aCol>] ;
                  [PFK <aPfk>] ;
                  [REFRESHID <cRID>] ;
                  [MEMOWIDTH <nLen>] ;

Parameters:

     <cId>      Shows the name of the control 
     <aParent>  Item of objects form in which the controls are added 
     <uVar>     Name of the variable  
     AT <nTop>, <nLeft> Coordinates of row and column where is the control
                Text Box on the objects. Coordinates are of the objects
     CONDITION <uCond> Condition of validation 
     ACTIVE <uActive> Permit  to specify in which condition the control is
                active
     PAGE <nPage> Number of page where is the control If nPage = 0 the
                control is available on all pages of management
     PROMPT <cPrompt> Messagge related at control Text Box 
     BOX <nBox> Type Box. If value of <nBox> is 1 BOX of type normal, 2
                button, 3 filled. <nBox> point to the type of Box that
                surronds the field MEMO
     DISPLAYIF <uDiIf> Conditional Display. the control in shown on the
                objects if the expression in <uDiIf> is True
     NOINKEY <Ink> If specified the control is immediatly in edit 
     SYSFUNCTION <uSys> Function of sys. When control is active, the
                function defined in <uSys> is executed if a button is
                pushed
     MESSAGE <cMes> Text that will be shown in the row of messagges when
                cursor is on the control
     VARNAME <cVarName> Name of variable if there is inheritance 
     COLOR <aCol> Array where there are attributes of color Clipper used
                for link at the control the specific color
     PFK <aPfk> Array of buttons that are actives on the control 
     REFRESHID <cRID> Show the  groups of refresh which contain the control
     MEMOWIDTH <nLen> Width in edit of Memo

Description:

     Makes a new control of type Text Box, that permits to edit memo fields
     or text.
     
     For manage this CONTROL from program is necessary to use the function
     tbCTRLArr().This function will give the array that forms the CONTROL.
     With modification of this array is possible change during RUN-TIME
     characteristic of the CONTROL.

Example:

     Example 1 :
     
     Value of items of array if the type of  CONTROL is TEXTFIELD :
     
     #include "DFCTRL.CH"
     
     LOCAL aCTRL := tbCTRLArr( oWin, "TXT0001" )
     
     aCTRL[FORM_CTRL_TYP      ] // Type CONTROL
     aCTRL[FORM_CTRL_ID       ] // ID of control
     aCTRL[FORM_CTRL_RID      ] // Refresh ID of CONTROL
     aCTRL[FORM_CTRL_PAGE     ] // Page of CONTROL
     aCTRL[FORM_CTRL_STABLE   ] // Flag for stable fhe CONTROL
     aCTRL[FORM_CTRL_DISPLAYIF] // CodeBlock of "Showing only if ..."
     
     aCTRL[FORM_TXT_VAR       ] // Variable that is shown
     aCTRL[FORM_TXT_TOP       ] // Coordinates of TEXTBOX
     aCTRL[FORM_TXT_LEFT      ] //
     aCTRL[FORM_TXT_BOTTOM    ] //
     aCTRL[FORM_TXT_RIGHT     ] //
     aCTRL[FORM_TXT_PROMPT    ] // Prompt
     aCTRL[FORM_TXT_BOX       ] // Type of BOX
     aCTRL[FORM_TXT_CONDITION ] // Condition related at TEXTBOX
     aCTRL[FORM_TXT_ACTIVE    ] // Condition of Activation
     aCTRL[FORM_TXT_NOINKEY   ] // Immediatly in MODIFY
     aCTRL[FORM_TXT_MESSAGE   ] // Messagge related at TEXTBOX
     aCTRL[FORM_TXT_CLRID     ] // Array of colors
     aCTRL[FORM_TXT_MEMOLEN   ] // Width of TEXTBOX in EDIT
     
     Example 2 :
     
     #include "DFCTRL.CH"
     
     ATTACH "NotArt" TO oWin:W_CONTROL GET AS TEXTFIELD NotArt
       AT   4,  0, 15, 77             ; // Position
       PAGE  2                        ; // Page
       COLOR {"RB+/G","G+/G","N/W*",  ;
              "W+/N","N/G","BG/G"}    ; // Colors
       CONDITION {|ab|.T.}            ; // When/Valid
       SYSFUNCTION "dfMemo"           ; // Function of sys
       MESSAGE "Note descrittive articolo" ;// Messagges
       REFRESHID "Art"                ; // Group refresh
       PROMPT     "Text ^Box"         ; // Prompt
       BOX    3                       ; // Type Box
       ACTIVE   {||cState $ "am" }    ; // Active
       DISPLAYIF {||.T.}                // Condition