FiveTech Support Forums

Hola a todos!

Tengo problemas con el repintado de una aplicación.

Hice un menu con una ventana de dialogo porque necesitaba hacerlo en forma circular. El problema es que no se queda el menu colgado y se sigue mostrando en las siguientes ventanas y no logro hacer que se limpie. ¿puede alguien indicarme como solucionarlo? para ello tengo el sig codigo

DEFINE BRUSH oBrush FILE "diran20.bmp"

DEFINE DIALOG oDlgMultiP SIZE 1260,750 PIXEL BRUSH oBrush ;
STYLE NOR( WS_CLIPCHILDREN, WS_CAPTION, WS_SYSMENU,;
WS_MINIMIZEBOX, WS_MAXIMIZEBOX, WS_THICKFRAME )

   @ 10, 10 BTNBMP oBoton1 ;     // linea, columna
             FILE "BtnSelEmp.BMP",GcBMPS+"BtnSelEmp.BMP" ;
             OF oWnd      ;
             SIZE 30,20 PIXEL   ;  //ancho, alto
             NOBORDER     ;
             ACTION Sel_Empresa()

   @ 44,212  CORALBUTTON oBmp SIZE 128,128 PROMPT "Organización"  ;
               COLOR CLR_WHITE BITMAP "BOTONORGANIZA.BMP";
               OVERBITMAP "BOTONORGANIZA.BMP" ;
               OF oDlgMultiP ACTION  CAPACI()  PIXEL


   @ 85,131  CORALBUTTON oBmp SIZE 128,128 PROMPT "Indicadores"  ;
               COLOR CLR_WHITE BITMAP "BOTONINDICA.BMP" ;
               OVERBITMAP "BOTONINDICA.BMP" ;
               OF oDlgMultiP ACTION indica()  PIXEL

     @ 167,132 CORALBUTTON oBmp SIZE 128,128 PROMPT "Secciones"  ;
               COLOR CLR_WHITE BITMAP "BOTONNSECC.BMP" ;
               OVERBITMAP "BOTONSEC.BMP" ;
               OF oDlgMultiP ACTION SECCI_1() PIXEL

     @ 187,163 CORALBUTTON oBmp SIZE 128,128 PROMPT "Administración"  ;
               COLOR CLR_WHITE BITMAP "BOTONADMIN.BMP";
               OVERBITMAP "BOTONADMIN.BMP" ;
               OF oDlgMultiP ACTION ADMIN() PIXEL

    @ 204,296 CORALBUTTON oBmp SIZE 128,128 PROMPT "Notas"  ;
              COLOR CLR_WHITE BITMAP "BOTONOTA.BMP" ;
              OVERBITMAP GcBMPS+"BOTONRYS.BMP" ;
              OF oDlgMultiP ACTION(cCap:='4000000',VALIDA_CAPACI(cCap) ) PIXEL

     @ 169,391 CORALBUTTON oBmp SIZE 128,128 PROMPT "CAPACITA"  ;
               COLOR CLR_WHITE BITMAP GcBMPS+"BOTONCAPACITA.BMP"  ;
               OVERBITMAP GcBMPS+"BOTONCAPACITA.BMP"  ;
               OF oDlgMultiP ACTION (cCap:='3000000',VALIDA_CAPACI(cCap) ) PIXEL

     @ 102,367  CORALBUTTON oBmp SIZE 128,128 PROMPT "Desempeño"  ;
               COLOR CLR_WHITE BITMAP GcBMPS+"BOTONDESEMP.BMP"  ;
               OVERBITMAP GcBMPS+"BOTONDESEMP.BMP" ;
               OF oDlgMultiP ACTION (cCap:='2000000',VALIDA_CAPACI(cCap) ) PIXEL

     @ 38,300  CORALBUTTON oBmp SIZE 128,128 PROMPT "Herramientas"  ;
               COLOR CLR_WHITE BITMAP GcBMPS+"BOTONHMTAS.BMP";
               OVERBITMAP GcBMPS+"BOTONHMTAS.BMP" ;
               OF oDlgMultiP ACTION (cCap:='1000000',VALIDA_CAPACI(cCap) ) PIXEL

     @ 113,230  CORALBUTTON oBmp SIZE 128,128 PROMPT "Perfil"  ;
               COLOR CLR_WHITE BITMAP GcBMPS+"BOTONPERFIL.BMP"  ;
               OVERBITMAP GcBMPS+"BOTONPERFIL.BMP" ;
               OF oDlgMultiP ACTION MSGINFO( "Portal del colaborador" ) PIXEL

   @ 300, 480 BTNBMP oBoton5 ;
               FILE GcBMPS+"SALIDA.BMP",GcBMPS+"SALIDA.BMP" ;
               OF oWnd      ;
               ADJUST       ;
               SIZE 50,40   ;
               NOBORDER     ;
               ACTION (fin_mp(),oDlgMultiP:End())

ACTIVATE DIALOG oDlgMultiP CENTERED VALID lSalir

oBrush:End() // Borramos el Brush
oBmp:End()

RETURN NIL

Laurel:

Será que te falta indicar a quien pertenece el diálogo ?

DEFINE DIALOG oDlgMultiP SIZE 1260,750 PIXEL BRUSH oBrush ;
STYLE NOR( WS_CLIPCHILDREN, WS_CAPTION, WS_SYSMENU,;
WS_MINIMIZEBOX, WS_MAXIMIZEBOX, WS_THICKFRAME );
OF oWnd

Gracias Armando por contestar!

Realmente no me hace falta indicar el OF oWnd porque ese dialogo es la ventana principal.. Es que con el VIACORAL no me acepta el CORALBUTON para los MENUES solo para los dialogos, así es que decidi usar una caja de dialogo para ahí pintar el menu y funcionaba bien en una pc con vista pero en otra con xp no...

Seguiré intentando y esperando a que alguien que ya le haya pasado esto me pueda ayudar....
Laurel

Hola Laurel:

¿Qué tal te pinta la ribbon bar bajo XP?. Muchas gracias.

Un saludo,