EDITBOX

[jorge.posadas]

Grupo MHG

Tengo un control EDITBOX, donde el usuario capturará las caracteristicas del artículo, pero necesito que cuando llegue a 80 caracteres, AUTOMATICAMENTE pase a la segunda línea, esto con la finalidad de que lo que vaya escribiendo no sobre pase el ancho visual del EDITBOX

y si fuera posible que muestre el número de caracteres que va escribiendo y cuando llegue a limite de 80 de un salto de línea y que se reincie el contador de caracteres.

Espero me haya dado a entender con mi necesidad y de antemano agradezco la ayuda.

[serge_girard]

Jorge,

maybe this can help you to get starting...:

Code: Select all

#include "hmg.ch"
FUNCTION MAIN()
/*****************/
DEFINE WINDOW Form_1 ;
   AT 0,0 ;
   WIDTH 930 HEIGHT 400 ;
   TITLE ' T e s t';
   FONT "Arial" SIZE 09

   ON KEY ESCAPE ACTION Form_1.Release  

   @ 10,840 LABEL LABEL_LEN_TB_1 ;
      VALUE " " ;
      WIDTH 100 ;
      HEIGHT 35 ;
      BOLD

   DEFINE EDITBOX TB_1
      ROW	 10
      COL	 10
      WIDTH  820 
      HEIGHT 250 
      VALUE '1234567890123456789012345678901234567890123456789012345678901234567890'  
      TOOLTIP '' 
      MAXLENGTH 2000	 
      ON CHANGE TEST_LEN() 
   END EDITBOX
    
END WINDOW
 
Form_1.TB_1.SetFocus

CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
 
RETURN


FUNCTION TEST_LEN()
/******************/
LOCAL cResult  := "", n, nPOS

Form_1.LABEL_LEN_TB_1.Value := LEN(Form_1.TB_1.Value)

FOR n := 80 TO 800 STEP 80 
   IF LEN(Form_1.TB_1.Value) == 80
      FOR nPos := 1 TO Len( Form_1.TB_1.Value ) STEP 80
         cResult += SubStr( Form_1.TB_1.Value, nPos, 80 ) + CRLF
      NEXT
      Form_1.TB_1.Value := cResult
      EXIT
   ENDIF
NEXT

N.B.
1 - Every CRLF will add 2 to the LEN
2 - Caret position is be moved to the end of the line... I cannot find the function to do this. I will look further.

[AUGE_OHR]

hi,

2 - Caret position is be moved to the end of the line... I cannot find the function to do this. I will look further.

have a look @c:\hmg.3.4.4\SAMPLES\Controls\TextBox\CARETPOS\demo.prg

Code: Select all

CaretPos := len(VALUE)