FiveTech Software tech support forums

Hola

Ya por fin pude poner el combobox en el toolbar y es de una manera tan simple que por eso no me dava cuenta tal vez no sea de la manera correcta como lo hise pero funciona

para los novatos y novatas como yo les dejo como le hise

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()


Aqui lo pongo con OF oToolBar2 aqui estara invisible pero funcional el get
@ 2.50,36 get oGet var getbuca OF oToolBar2 size 120,20

Aqui lo pongo con OF oToolBar2 aqui estara invisible pero funcional el combobox
@ 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 ) )

oImgList2 = TImageList():New( 32, 32 ) // width and height of bitmaps


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( { || 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 )



@ 2.15,1 SENSITIVE SAY oSay PROMPT "Buscar Poliza : " OF oToolBar2

Aqui lo pongo otra vez pero ya con OF oWnd para que pinten el get
@ 2.50,36 get oGet var getbuca OF oWnd size 120,20
Aqui lo pongo otra vez pero ya con OF oWnd para que pinte el combobox
@ 2.32,52 COMBOBOX cAcom VAR listb ITEMS {"AUTOS","VIDA","GMM","DAÑOS"} OF oWnd SIZE 120,80






a si que solo era ponerlo 2 veces para que me funcionara jejeje

Bueno almenos ya sali de esta a ver ahora que mas me sale en el camino
pero es bonito poder superar los atorones con ayuda y sin ella

Saludos a todos en el foro

Aida

aqui pongo una foto de como me esta quedando mi programa