Por fin pude poner el combobox en la toolbar :)

Por fin pude poner el combobox en la toolbar :)

Postby AIDA » Sun Mar 04, 2007 9:58 pm

Hola

Ya por fin pude poner el combobox en el toolbar :D y es de una manera tan simple que por eso no me dava cuenta :oops: 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 8)

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 :wink:

aqui pongo una foto de como me esta quedando mi programa
Image
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
 
Posts: 879
Joined: Fri Jan 12, 2007 8:35 pm

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 45 guests