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
Respuesta
 
Herramientas

  #1
Antiguo 21 de febrero de 2021, 16:28
IDENTIFICATION DIVISION
Nitzer
Guru de COBOL
Activista del Foro: Activista del Foro - Razón: Por Videoconferencia-Webinar  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por aportar conocimientos excepcionales 
ENVIRONMENT DIVISION
Avatar de Nitzer
DATA DIVISION
Forero desde (Registrado)noviembre 2015
España
Ubicación Almeria
Edad55 años
Última Actividad26.02.2021 18:44
PROCEDURE DIVISION
PostsPosts: 131
Ha dicho GraciasEnviado: 51
Ha recibido agradecimientosRecibido: 98
Mejores respuestasSoluiones: 5
ReputaciónReputación: 15
Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road
Configuración Control de PowerCobol

Hola, os voy a contar que igual no sabéis, pero para hacerlo mas interesante ... os cuento toda la historia

Como sabéis, la mayoría de controles en los que se permite utilizar imágenes podemos asignarlas insertando la imagen en el propio componente, pero si queremos que la imagen pueda cambiar en tiempo de ejecución tenemos un problema, ya que la mayoría requieren que la imagen se la pasemos como objeto "PICTURE".

Para pasar imágenes entre controles yo utilizo el ctImage de DBITech, que te permite tener hasta 50 imágenes en el formulario y usarlas en cualquier control, por ejemplo cambiar imágenes en algún botón, como imágenes en algún grid, etc ...

Pero aún así cuando en realidad no sabemos que imagen vamos a poner, por ejemplo la foto de un trabajador ( no podemos meter todas en el ctImage), o una firma digitalizada de documentos, etc ..
En esa situación yo utilizaba un control que compré hace tiempo llamado ImageX, donde puedes cargar una imagen del disco con el método "load" y luego con la propiedad Picture pasarla a cualquier control.

Hasta aquí una historia mas de cualquier programador. Pero el otro día me doy cuenta que cuando llamo a un formulario con ese control insertado (ImageX), me cambia el PATH de windows, con lo que me ..... muchos programas y tengo que estar confirmando donde estoy situado, ya que muchas cosas las llamo \carpeta, partiendo de donde está el ejecutable.

Cansado de todo esto, me digo "coño" si el control image de Power tuviera una propiedad del tipo Picture, con lo fácil que es utilizarlo, estaría salvado, pero no la tiene ..... o si ?¿

Como no suelo rendirme pronto, empiezo a investigar donde están los controles de power y están agrupados en varios ficheros ocx en la carpeta donde instalamos el compilador.
Una vez localizados, empiezo a buscar por Internet algún programa que me permita "decompilar" dichos ficheros y encuentro uno llamado: LibDump.exe... y aquí empieza la aventura



Lo ejecuto, busco cada uno de los ocx de cobol y empiezo a ver "cosas" y encuentro el control Image de Power y empiezo a ver sus propiedad y ...... sorpresa:



TIENE LA PROPIEDAD tipo PICTURE llamada IMAGE, pero pone hidden, como ?¿?¿?
Pues que es una propiedad que no te sale en el compilador, pero que si la pones no da errores al compilar y funciona perfectamente.

Ya tenemos la solución, podemos tomar cualquier fichero de imagen desde nuestro disco y luego utilizar esa imágen en cualquier otro ocx que tengamos en el formulario.

Y fin de la historia, espero que no haya sido un ladrillazo ))

PD: He investigado todos los controles y no he visto mucho mas llamativo, aunque si varias cosas hidden que seguro que funcionan. Pero para mi ésta ha sido increible.
Lo he programado ya y ha quedado perfecto.
Nitzer no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 4
Fito (21 de febrero de 2021), Kuk (22 de febrero de 2021), Lascu (22 de febrero de 2021), Paulo (Ayer)
  #2
Antiguo 21 de febrero de 2021, 17:35
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 Andrés. Brillante lo tuyo. Voy a probar por ese lado

Saludos

Fito
Fito no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 22 de febrero de 2021, 09:25
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 Actividad26.02.2021 19:42
PROCEDURE DIVISION
PostsPosts: 1.703
Ha dicho GraciasEnviado: 516
Ha recibido agradecimientosRecibido: 692
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

@Nitzer, muy bueno, sí señor!!

Esto es lo mismo que la propiedad hwnd de cualquier control de PowerCobol, que no sale en la lista, pero está ahí y funciona perfectamente!


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
  #4
Antiguo 22 de febrero de 2021, 21:42
IDENTIFICATION DIVISION
Nitzer
Guru de COBOL
Activista del Foro: Activista del Foro - Razón: Por Videoconferencia-Webinar  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por aportar conocimientos excepcionales 
ENVIRONMENT DIVISION
Avatar de Nitzer
DATA DIVISION
Forero desde (Registrado)noviembre 2015
España
Ubicación Almeria
Edad55 años
Última Actividad26.02.2021 18:44
PROCEDURE DIVISION
PostsPosts: 131
Ha dicho GraciasEnviado: 51
Ha recibido agradecimientosRecibido: 98
Mejores respuestasSoluiones: 5
ReputaciónReputación: 15
Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road
Predeterminado

Efectivamente @kuk, no lo puse, pero si lo he usado en varias ocasiones. Hwnd devuelve el "handle" de cualquier control de Power.
Nitzer no ha iniciado sesión   Responder Con Cita
Respuesta


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:00.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.