Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] SQL embebido - cursor con COUNT() en PowerCOBOL 7 drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 10 12 de junio de 2018 15:16
[Sintaxis] Texto inicial en un Textbox dmosca PowerCOBOL (ActiveX, v4 - v11) 4 25 de julio de 2017 17:45
[Sintaxis] Operar con Textbox multilínea dmosca PowerCOBOL y COM/OLE 1 8 de mayo de 2017 10:26
[Sintaxis] Posición de DisplayMessage en pantalla Hrmcobol PowerCOBOL (ActiveX, v4 - v11) 3 5 de julio de 2015 23:20
[Sintaxis] Ocultar Cursor Recato53 PowerCOBOL (ActiveX, v4 - v11) 3 21 de febrero de 2015 17:08
Respuesta
 
Herramientas

  #1
Antiguo 22 de enero de 2016, 22:46
IDENTIFICATION DIVISION
Fito
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Córdoba, Villa María
Edad50 años
Última Actividad25.02.2021 23:50
PROCEDURE DIVISION
PostsPosts: 253
Ha dicho GraciasEnviado: 127
Ha recibido agradecimientosRecibido: 113
Mejores respuestasSoluiones: 13
ReputaciónReputación: 17
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Talking Posición del cursor en un textbox...

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...
Fito no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 23 de enero de 2016, 20:50
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
Ubicación Porto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 218
Mejores respuestasSoluiones: 47
ReputaciónReputación: 15
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

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:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  EM_GETSEL            PIC S9(009) COMP-5 VALUE 176.
  5.  01  EM_SETSEL            PIC S9(009) COMP-5 VALUE 177.
  6. *
  7.  01  LCURPOS              PIC S9(009)    COMP-5.
  8.  01  TXTHWND              PIC S9(009)    COMP-5    VALUE ZERO.
  9.  01  WZERO                PIC S9(009)    COMP-5    VALUE ZERO.
  10. *
  11.  PROCEDURE       DIVISION.
  12.  MAIN SECTION.
  13.  MAIN-00.
  14.     INVOKE CMTEXT1 "SETFOCUS".
  15.     CALL "GetFocus"   WITH STDCALL RETURNING  TXTHWND.
  16. *
  17.     CALL "SendMessageA" WITH STDCALL USING
  18.                        BY VALUE TXTHWND
  19.                        BY VALUE EM_GETSEL
  20.                        BY VALUE WZERO  
  21.                        BY VALUE WZERO
  22.                   RETURNING LCURPOS.
  23.     COMPUTE LCURPOS = LCURPOS / 65536
  24.     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
Imágenes Adjuntas
Tipo de Archivo: bmp Image2.bmp (238,2 KB, 45 descargas)
Archivos Adjuntos
Tipo de Archivo: zip TextMan.zip (41,3 KB, 14 descargas)
Rapinto no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 4
Fito (25 de enero de 2016), Josber (23 de enero de 2016), Kuk (23 de enero de 2016), Roger (24 de enero de 2016)
  #3
Antiguo 3 de febrero de 2016, 16:14
IDENTIFICATION DIVISION
Fito
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Córdoba, Villa María
Edad50 años
Última Actividad25.02.2021 23:50
PROCEDURE DIVISION
PostsPosts: 253
Ha dicho GraciasEnviado: 127
Ha recibido agradecimientosRecibido: 113
Mejores respuestasSoluiones: 13
ReputaciónReputación: 17
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

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...
Fito no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 3 de febrero de 2016, 16:52
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad36 años
Última Actividad28.02.2021 22:33
PROCEDURE DIVISION
PostsPosts: 1.705
Ha dicho GraciasEnviado: 516
Ha recibido agradecimientosRecibido: 693
Mejores respuestasSoluiones: 92
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Fito, pon ALPHAL(WORD)


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Fito ( 3 de febrero de 2016)
Respuesta

Tags
cursor , posicion , testbox , winapi


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 05:32.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.