PONER UN COMBOBOX EN UN TOOLBAR COMO LE HAGO?

[AIDA]

Hola

me podrian ayudar nesecito poner un combobox en un toolbar

please me ayudan ya prove de muchas maneras pero no encuentro la correcta


Saluditos


Aida

[Biel EA6DD]

Code: Select all

@ 0.5,65 COMBOBOX oCbx VAR cCBx  OF oToolBar PROMPTS aCbx SIZE 120,80 ....

El comando normal del combobox OF oToolBar, sin mas debiera funcionarte correctamente.

[AIDA]

HOLA

ya lo puse como me indicaste si aparece en la barra pero me sale un herror

Error Base/1132 Boun error: array access from Errosys,line 0

a si estoy poniendo la barra

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

//*************************** Color nRgb(230, 230, 250 ),nRgb( 132, 112, 255)

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 ) )
oImgList1:AddMasked( TBitmap():Define( "gmm",, oWnd ), nRGB( 255, 0, 255 ) )
oImgList1:AddMasked( TBitmap():Define( "danos",, oWnd ), nRGB( 255, 0, 255 ) )
oImgList1:AddMasked( TBitmap():Define( "reno",, oWnd ), nRGB( 255, 0, 255 ) )

oImgList2 = TImageList():New( 32, 32 ) // width and height of bitmaps
oImgList2:AddMasked( TBitmap():Define( "internet",, oWnd ), nRGB( 255, 0, 255 ) )
oImgList2:AddMasked( TBitmap():Define( "keys",, oWnd ), nRGB( 255, 0, 255 ) )
oImgList2: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, 70, 70, oImgList1 )
oToolBar1:AddButton( { || Main2() }, "Mantenimiento de bases de datos", "Mantenimiento" )
oToolBar1:AddButton( { || MIPDF()}, "Respaldar bases de datos", "Respaldo" )
oToolBar1:AddSeparator()
oToolBar1:AddButton( { || explora()}, "Polizas GMM", "GMM" )
oToolBar1:AddButton( { || AREPORTE() }, "Polizas Daños", "Daños" )
oToolBar1:AddSeparator()
// oToolBar1:AddButton( { || AREPORTE() }, "Renovaciones de Polizas", "Renueva" )
// oToolBar1:AddButton( { || BuildPDF( "PAGOS.RPT","MIPDF.PDF" ) }, "Renovaciones de Polizas", "PDF" )
//oToolBar1:AddButton( { || alert(hWDsk)}, "Adicionar Ciudades", "Ciudad" )


oToolBar2 = TToolBar():New( oReBar, 70, 70, oImgList2 )
oToolBar2:AddButton( { || navega() }, "Checar nuevas versiones",;
"Upgrade..." )
oToolBar2:AddButton( { || ordenaA() }, "Users management", "Users" )
oToolBar2:AddSeparator()
oToolBar2:AddButton( { || oWnd:End() }, "Fin del programa", "Salida" )

// We set the widths for each toolbar
oToolBar1:nWidth = 290
oToolBar2:nWidth = 290

// Now we insert the toolbars into the rebar
oReBar:InsertBand( oToolBar1 )
oReBar:InsertBand( oToolBar2 )




DEFINE STATUSBAR OF oWnd PROMPT "Programacion Aida 2007"



//@ 2,100 combobox cAcom var listb items cuadros of oWnd size 70,20

@ 2,100 COMBOBOX cAcom VAR listb OF oToolBar1 PROMPTS cuadros SIZE 120,80


Gracias por tu ayuda

Aida

[AIDA]

HOLA

ya casi funciona ahora si sale pero invisible hasta que no le doy clik aparece en la barra

asi lo puse

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 ) )
oImgList1:AddMasked( TBitmap():Define( "gmm",, oWnd ), nRGB( 255, 0, 255 ) )
// oImgList1:AddMasked( TBitmap():Define( "danos",, oWnd ), nRGB( 255, 0, 255 ) )
// oImgList1:AddMasked( TBitmap():Define( "reno",, oWnd ), nRGB( 255, 0, 255 ) )



oImgList2 = TImageList():New( 32, 32 ) // width and height of bitmaps
oImgList2:AddMasked( TBitmap():Define( "internet",, oWnd ), nRGB( 255, 0, 255 ) )
oImgList2:AddMasked( TBitmap():Define( "keys",, oWnd ), nRGB( 255, 0, 255 ) )
oImgList2:AddMasked( TBitmap():Define( "quit",, oWnd ), nRGB( 255, 0, 255 ) )

DEFINE STATUSBAR OF oWnd PROMPT "Programacion Aida 2007"


@ 2,27 SENSITIVE SAY oSay PROMPT "Buscar Poliza : " OF oToolBar1 ;
COLOR nRgb(0, 0, 0 )//,nRgb( 132, 112, 255)

@ 2.50,35 Get oGet var getbuca OF oWnd size 120,20


ramos:={"AUTOS","VIDA","GMM","DAÑOS"}


@ 2.32,52 COMBOBOX cAcom VAR listb PROMPTS ramos OF oToolBar1 SIZE 120,80

// Now we create the rebar

oReBar = TReBar():New( oWnd )

// Now we create the toolbars and add the buttons
oToolBar1 = TToolBar():New( oReBar, 70, 70, oImgList1 )
oToolBar1:AddButton( { || Main2() }, "Mantenimiento de bases de datos", "Mantenimiento" )
oToolBar1:AddButton( { || MIPDF()}, "Respaldar bases de datos", "Respaldo" )
oToolBar1:AddSeparator()
//oToolBar1:AddButton( { || explora()}, "Polizas GMM", "GMM" )
//oToolBar1:AddButton( { || AREPORTE() }, "Polizas Daños", "Daños" )
//oToolBar1:AddSeparator()
// oToolBar1:AddButton( { || AREPORTE() }, "Renovaciones de Polizas", "Renueva" )
// oToolBar1:AddButton( { || BuildPDF( "PAGOS.RPT","MIPDF.PDF" ) }, "RenovacXXXiones de Polizas", "PDF" )
//oToolBar1:AddButton( { || alert(hWDsk)}, "Adicionar Ciudades", "Ciudad" )


oToolBar2 = TToolBar():New( oReBar, 70, 70, oImgList2 )
oToolBar2:AddButton( { || navega() }, "Checar nuevas versiones",;
"Upgrade..." )
oToolBar2:AddButton( { || ordenaA() }, "Users management", "Users" )
oToolBar2:AddSeparator()
oToolBar2:AddButton( { || oWnd:End() }, "Fin del programa", "Salida" )

// We set the widths for each toolbar
oToolBar1:nWidth = 290
oToolBar2:nWidth = 290

// Now we insert the toolbars into the rebar
oReBar:InsertBand( oToolBar1 )
oReBar:InsertBand( oToolBar2 )


por que sera que sale escondido en la barra


Saludos

Aida

[Susy]

Hola

me podrian ayudar nesecito poner un combobox en un toolbar

please me ayudan ya prove de muchas maneras pero no encuentro la correcta


Saluditos


Aida

Hola Aida, como esta pues amiga, me podras escribir a mi correo, susan_mx@hotmail.com, no me se bien tu correo, pero yo casi no entro a hotmail messenger, pero nos podemos escribir a travez del correo porfas amiga
Tu amiga Susy