[Sintaxis] Posición del cursor en un textbox...

[Fito]

Hola Amigos:

Estoy editando un cuadro de texto, de alguna manera puedo saber dónde está posicionado el cursor, supongamos que el cuadro de texto sea de 80 caracteres, necesito saber cuál de todos ellos estoy escribiendo.

Espero haber sido claro.

Saludos. Fito...

[Rapinto]

Fito,

A CMText do Powercobol, não tem a propriedade "SelStart".
Não é possível diretamente saber onde está o cursor.
Usando as API's do Windows, claro que se pode saber.
Utiliza este código:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  EM_GETSEL            PIC S9(009) COMP-5 VALUE 176.
 01  EM_SETSEL            PIC S9(009) COMP-5 VALUE 177.
*
 01  LCURPOS              PIC S9(009)    COMP-5.
 01  TXTHWND              PIC S9(009)    COMP-5    VALUE ZERO.
 01  WZERO                PIC S9(009)    COMP-5    VALUE ZERO.
*
 PROCEDURE       DIVISION.
 MAIN SECTION.
 MAIN-00.
    INVOKE CMTEXT1 "SETFOCUS".
    CALL "GetFocus"   WITH STDCALL RETURNING  TXTHWND.
*
    CALL "SendMessageA" WITH STDCALL USING
                       BY VALUE TXTHWND
                       BY VALUE EM_GETSEL
                       BY VALUE WZERO   
                       BY VALUE WZERO 
                  RETURNING LCURPOS.
    COMPUTE LCURPOS = LCURPOS / 65536
    MOVE LCURPOS TO "CAPTION" OF CMSTATIC1.

No evento "MouseMove" e no evento "KeyUp" faz um "Call" a esta rotina.
Anexo um exemplo em PowerCobol 9.0

Un Saludo
Rui

[Fito]

Hola Rapinto:

Ahi estuve probando lo tuyo y funciona bien. El tema es que en las opciones de compilación tiene la cláusula NOALPHA, si inserto todo eso dentro de mi form esta cláusula me muchos errores.

Saludos. Fito...

[Kuk]

Fito, pon ALPHAL(WORD)