TEXTBOX DATATYPE with Macro

[AUGE_OHR]

hi,

i try to use DATATYPE with Macro but fail

Code: Select all

   cType := CHARACTER 
   DATATYPE &cType

   cType := "CHARACTER"
   DATATYPE &cType

   cType := CHARACTER 
   DATATYPE &(cType)

how to write a TEXTBOX for all ( "C","N","D" ) DATATAPE

[danielmaximiliano]

part of my example in Minigui

C:\MiniGUI\SAMPLES\BASIC\Tab_2

Code: Select all

Procedure DeletePage()
Local nDelete

nDelete:= Principal.Container_Tab.Value
cLabel := "Label" + ltrim(str(nDelete))
cText  := "Text"  + ltrim(str(nDelete))
cCombo := "Combo" + ltrim(str(nDelete))

IF nDelete == Principal.Container_Tab.ItemCount - 1 .and. iscontroldefined(&cLabel,Principal)
   Principal.&(cLabel).Release
   Principal.&(cText).Release
   Principal.&(cCombo).Release
   Principal.Container_Tab.DeletePage(nDelete)
   nPage--
   IF nPage == 1
      AddNewPage()  
   ENDIF
ELSE 
   MsgInfo( "No se puede borrar el PAGE '"+Principal.Container_Tab.Caption(nDelete)+"'", "   Info  " )    
ENDIF

[KDJ]

how to write a TEXTBOX for all ( "C","N","D" ) DATATAPE

Jimmy, try this:

Code: Select all

  DEFINE TEXTBOX &cTextBox
    ROW       nRow
    COL       nCol
    WIDTH     nWidth
    HEIGHT    nHeight
    INPUTMASK cMask
    VALUE     xValue
    IF cType == "N"
      DATATYPE NUMERIC
    ELSEIF cType == "D"
      DATATYPE DATE
    //ELSE
    //  MAXLENGTH nMaxLen
    ENDIF
  END TEXTBOX

DATATYPE is defined in header file i_altsyntax.ch:

Code: Select all

#xcommand DATATYPE DATE                            => _HMG_SYSDATA \[ 400 \]  := .T.

#xcommand DATATYPE NUMERIC                         => _HMG_SYSDATA \[ 477 \]  := .T.

#xcommand DATATYPE CHARACTER                       => _HMG_SYSDATA \[ 477 \]  := .F.; _HMG_SYSDATA\[ 400 \] := .F.