Re: VDC not showing toolbar

Hi,

sorry for my late reply. Please rename it to menu.4tb or default.4tb

Am 26.01.2015 um 10:26 schrieb Albino Moreno:
> Hi all,
>
> I'm testing a little program who shows a window with a menu and (would 
> like to show it but not showing anything) a toolbar. I'm using a .4tb 
> file with this content:
>
> *toolbar.4tb:*
> <ToolBar buttonTextHidden="0" iconHidden="1" hidden="0" 
> buttonTextPosition="beside">
> <ToolBarItem name="SOCIOS" text="Acceso a menu SOCIOS" 
> comment="Altas/Bajas y Modificaciones de datos de SOCIOS" />
> <ToolBarSeparator="|"/>
> <ToolBarItem name="EPSAR" text="Acceso a menu EPSAR" 
> comment="Visualizacion datos EPSAR" />
> </ToolBar>
>
> My program,*menu.4gl* with this content:
>
> database apli01
> main
>
> define
>   xmenu,
>   toolbar,
>   acciones,
>   estilo char(100),
>   subest char(20),
>   a char(1)
>
> options
>   prompt line last
>
> OPEN WINDOW ventana with form "menu"
> current window is ventana
>
> --- Cargamos las acciones
> let acciones = "/home/albino/pruebas/run/menu.4ad"
> CALL ui.Interface.loadActionDefaults(acciones)
>
> --- Cargamos el toolbar
> let estilo="toolbar"
> CALL ui.Interface.loadStyles(estilo)
> let toolbar = "/home/albino/pruebas/run/toolbar.4tb"
> IF aclfgl_sendfile_to_ui(toolbar CLIPPED) THEN END IF
> CALL ui.Interface.loadToolbar(toolbar clipped)
>
> --- Cargamos el menú
> let xmenu="/home/albino/pruebas/run/menu.4st"
> if aclfgl_sendfile_to_ui(xmenu) then end if
> let estilo="menu"
> CALL ui.Interface.loadStyles(estilo)
>
> MENU "Menu" ATTRIBUTE(STYLE=subest clipped, COMMENT="Hola, soy el menu 
> principal")
>   COMMAND "SOCIOS"
>     call busca_cuantos()
>     current window is ventana
>   COMMAND "LECTURAS CONTADOR"
>     CONTINUE MENU
>   COMMAND "FACTURAS"
>     CONTINUE MENU
>   COMMAND "EPSAR"
>     CONTINUE MENU
>   COMMAND "Terminar"
>     EXIT PROGRAM
> END MENU
> end main
>
> *menu.per contents:*
> DATABASE formonly
> SCREEN
> {
> [f001                                      ]
> }
> attributes
> Image f001 = FORMONLY.textvar, AUTOSCALE, PIXELWIDTH=400, 
> PIXELHEIGHT=525 ;
>
> I'm using a .4ad actions file and a .4st styles file, with this content:
>
> *menu.4st:*
> <StyleList>
> <Style name="menu" >
> <StyleAttribute name="horizontal" value="startMenuPosition:tree" />
> <StyleAttribute name="posicion" value="ringMenuPosition:right" />
> </Style>
> <Style name="toolbar" >
> <StyleAttribute name="tb_pos" value="toolBarPosition:bottom" />
> </Style>
> </StyleList>
>
> *menu.4ad:*
> <ActionDefaultList>
> <ActionDefault name=”SOCIOS” text=”Todo lo relativo a Socios” />
> <ActionDefault name=”EPSAR” text=”Todo lo relativo a EPSAR” />
> </ActionDefaultList>
>
> ¿What is wrong? I can't see any toolbar at screen, but menu yes...
>
> Included screenshot....
>
> Thanks in advance.
> Regards.
>
>
>
>
> ------------------------------------------------------------------------------
> Dive into the World of Parallel Programming. The Go Parallel Website,
> sponsored by Intel and developed in partnership with Slashdot Media, is your
> hub for all things parallel software development, from weekly thought
> leadership blogs to news, videos, case studies, tutorials and more. Take a
> look and join the conversation now. http://goparallel.sourceforge.net/
>
>
> _______________________________________________
> Aubit4gl-discuss mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss

-- 
Mit freundlichen Grüßen
Daniel Kroker

VENTAS AG                            20+ Jahre ERP-Erfahrung!
Web: www.ventas.de
Fon: 040 / 32 33 34 0
Fax: 040 / 32 33 34 38
Firmensitz: Mittelweg 144, 20148 Hamburg, Deutschland
Registergericht: Hamburg, HRB 80 297 Ust.IdNr.: DE118686712
Vorstandsvorsitzender: Dipl. Ing. Alain Siverly
Aufsichtsratsvorsitzender: Dr. Olaf Rehme

------------------------------------------------------------------------------
Dive into the World of Parallel Programming. The Go Parallel Website,
sponsored by Intel and developed in partnership with Slashdot Media, is your
hub for all things parallel software development, from weekly thought
leadership blogs to news, videos, case studies, tutorials and more. Take a
look and join the conversation now. http://goparallel.sourceforge.net/

_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss