Help!! ayuda!! no me queda bien un combobox en un ToolBar

Post Reply
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Help!! ayuda!! no me queda bien un combobox en un ToolBar

Post by AIDA »

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



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
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Post Reply