Consulta RoundBox en FOLDEREX *SOLUCIONADO

[remtec]

Hola Amigos


Tengo un problema dentro en FOLDEREX, tengo 2 RoundBox, pero solo se muestra 1, no logro hacer funcionar ambos.

Siempre se muestra el ultimo.

Muchos Saludos

Antonio

Code: Select all  Expand view

         oFld:aDialogs[2]:bPainted := < |hDC|
      RoundBox( hDC, 600      ,086     ,598   ,  598     ,02,02,CLR_BLUE,2 )              // Para Poner la linea para dividir las 2 columnas
            **             Col-Ini  Alto     Ancho  Fil-Abajo
      Return nil
            >

     // Separa a Profesional que Atiende
         oFld:aDialogs[2]:bPainted := < |hDC|
      RoundBox( hDC, 843      ,27     ,1200   ,  90     ,02,02,CLR_BLUE,2 )              // Para Poner la linea para dividir las 2 columnas
            **             Col-Ini  Alto     Ancho  Fil-Abajo
      Return nil
      >

 

[cnavarro]

La segunda asignación al evento anula el primero evidentemente. Prueba así

Code: Select all  Expand view

         oFld:aDialogs[2]:bPainted := < |hDC|
      RoundBox( hDC, 600      ,086     ,598   ,  598     ,02,02,CLR_BLUE,2 )              // Para Poner la linea para dividir las 2 columnas
      RoundBox( hDC, 843      ,27     ,1200   ,  90     ,02,02,CLR_BLUE,2 )              // Para Poner la linea para dividir las 2 columnas
      Return nil
            >
 

[remtec]

La segunda asignación al evento anula el primero evidentemente. Prueba así

Code: Select all  Expand view

         oFld:aDialogs[2]:bPainted := < |hDC|
      RoundBox( hDC, 600      ,086     ,598   ,  598     ,02,02,CLR_BLUE,2 )              // Para Poner la linea para dividir las 2 columnas
      RoundBox( hDC, 843      ,27     ,1200   ,  90     ,02,02,CLR_BLUE,2 )              // Para Poner la linea para dividir las 2 columnas
      Return nil
            >
 

Hola Cristobal.

Muchas gracias como siempre por tu ayuda y tiempo dedicado.

Funciono Perfecto.

Muchas gracias y muchos saludos.

Antonio