PONER UN COMBOBOX EN UN TOOLBAR COMO LE HAGO?

PONER UN COMBOBOX EN UN TOOLBAR COMO LE HAGO?

Postby AIDA » Sun Feb 25, 2007 6:38 pm

Hola :D

me podrian ayudar nesecito poner un combobox en un toolbar

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


Saluditos :wink:


Aida
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

Postby Biel EA6DD » Sun Feb 25, 2007 8:42 pm

Code: Select all  Expand view  RUN
@ 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.
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
User avatar
Biel EA6DD
 
Posts: 682
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca

HOLA

Postby AIDA » Sun Feb 25, 2007 9:13 pm

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

ya casi funciona

Postby AIDA » Mon Feb 26, 2007 1:23 am

HOLA

ya casi funciona ahora si sale pero invisible :shock: 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
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

Re: PONER UN COMBOBOX EN UN TOOLBAR COMO LE HAGO?

Postby Susy » Mon Feb 26, 2007 9:53 pm

AIDA wrote:Hola :D

me podrian ayudar nesecito poner un combobox en un toolbar

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


Saluditos :wink:


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
Susy
 
Posts: 35
Joined: Wed Nov 15, 2006 4:04 pm


Return to FiveWin para Harbour/xHarbour

Who is online

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