Hola
Porfis ayudenme no me queda un combobox dentro de un ToolBar
ahora si estoy muy atorada con eso y de seguro es algo facil para los que saben pero yo no sepo, no me gusta molestar pero ayudenme porfis
el combobox sale oculto y cuando le doy click en donde se supone que esta si aparece y funciona pero si minimiso el programa se buelve a esconder abajo del ToolBar
a si lo tengo en mi programa
DEFINE WINDOW oWnd FROM 2, 2 TO 35, 85 TITLE "Aida Control de Polizas V 1.00 2007" Color nRgb(230, 230, 250 ),nRgb( 132, 112, 255) ;
MENU BuildMenu()
@ 2.15,35 SENSITIVE SAY oSay PROMPT "Buscar Poliza : " OF oToolBar2 ;
COLOR nRgb(0, 0, 0 ),nRgb(0, 0, 0 )
@ 2.50,35 Get oGet var getbuca OF oToolBar2 size 120,20
@ 2.32,52 COMBOBOX cAcom VAR listb ITEMS {"AUTOS","VIDA","GMM","DAÑOS"} OF oToolBar2 SIZE 120,80
oImgList1 = TImageList():New( 46, 46 ) // width and height of bitmaps
oImgList1:AddMasked( TBitmap():Define( "doctor1",, oWnd ), nRGB( 255, 0, 255 ) )
oImgList1:AddMasked( TBitmap():Define( "disks",, oWnd ), nRGB( 255, 0, 255 ) )
oImgList3 = TImageList():New( 30,30 ) // width and height of bitmaps
oImgList3:AddMasked( TBitmap():Define( "internet",, oWnd ), nRGB( 255, 0, 255 ) )
oImgList3:AddMasked( TBitmap():Define( "quit",, oWnd ), nRGB( 255, 0, 255 ) )
// Now we create the rebar
oReBar = TReBar():New( oWnd )
// Now we create the toolbars and add the buttons
oToolBar1 = TToolBar():New( oReBar, 60, 60, oImgList1 )
oToolBar1:AddButton( { || Main2() }, "Mantenimiento de bases de datos", "Mantenimiento" )
oToolBar1:AddButton( { || MIPDF()}, "Respaldar bases de datos", "Respaldo" )
oToolBar2 = TToolBar():New( oReBar, 70, 70, oImgList2 )
oToolBar3 = TToolBar():New( oReBar, 43, 43, oImgList3 )
oToolBar3:AddButton( { || navega() }, "Checar nuevas versiones",;
"Upgrade" )
// oToolBar3:AddButton( { || ordenaA() }, "Users management", "Users" )
// oToolBar3:AddSeparator()
oToolBar3:AddButton( { || oWnd:End() }, "Fin del programa", "Salida" )
// We set the widths for each toolbar
oToolBar1:nWidth = 150
oToolBar2:nWidth = 500
oToolBar3:nWidth = 150
// Now we insert the toolbars into the rebar
oReBar:InsertBand( oToolBar1 )
oReBar:InsertBand( oToolBar2 )
oReBar:InsertBand( oToolBar3 )
Saludos
Aida