lo primero que intente fue agregar la ventana por medio de `#WINDOWS #!... #ENDWINDOWS`, pero este no me permite utilizar user-defined symbols, por lo que no puedo utilizarlo para crear una ventana dinamicamente.
Por lo tanto agregué la ventana en el #AT(%DataSectionBeforeWindow) y funciona perfectamente permitiendome utilizar user-defined symbols, pero no se como relacionar esta ventana a la ventana del Procedimiento.
Alguien sabe como relacionar una ventana insertada en punto embebido a la ventana del procedimiento?
ó como permitir user-defined symbols en una window structure?
Adjunto el codigo de mi #PROCEDURE:
Código: Seleccionar todo
#PROCEDURE(inStyleMenuBar, 'inStyle Menu Bar procedure'), WINDOW, PARENT(Window(ABC))
#COMMENT(60)
#BUTTON('InStyleControls')
#SHEET
#TAB('General')
#PROMPT('Menu Title',@s100),%title
#ENDTAB
#TAB('Style')
#PROMPT('Accent Color', COLOR),%accentColor
#PROMPT('Background Color', COLOR),%backgroundColor
#PROMPT('Default Font Color', COLOR),%defaultFontColor
#PROMPT('Accent Font Color', COLOR),%accentFontColor
#ENDTAB
#ENDSHEET
#ENDBUTTON
#AT(%DataSectionBeforeWindow)
winStyleMenuBar WINDOW,AT(,,319,10),CENTER,IMM,HLP('statusBar'),FONT('Calibri', |
12,%defaultFontColor,FONT:regular,CHARSET:DEFAULT),COLOR(%backgroundColor), |
DOCKED(Dock:Top),TOOLBOX,NOFRAME
PROMPT('%title'),AT(10,0,25,10),USE(?mnu_text),CENTER
BOX,AT(10,0,25,10),USE(?mnu_background),FILL(%backgroundColor),LINEWIDTH(0)
REGION,AT(10,0,25,10),USE(?mnu_eventReceiver),IMM
END
#ENDAT