Repintado

[Laurel]

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

[Armando]

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

[Laurel]

Gracias Armando por contestar!

Realmente no me hace falta indicar el OF oWnd porque ese dialogo es la ventana principal.. Es que con el noway 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

[MOISES]

Hola Laurel:

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

Un saludo,