FiveTech Software tech support forums

Hi Uwe ,

Thank you ...! I will try this code.

I was looking also BUTTONBAR instead of TOOLBAR in the BUTTON BAR I did not find the property like oToolBar1:nWidth = 300. Please correct me if I am wrong.

Thanks
Shridhar

Holas a todos... Alguien lo ha hecho... oToolBar1=TToolBar():New( oReBar2, 66, 66, oImgList,.T. ) oToolBar1:AddButton( { || PrToExcel() } , "Exportar a Excel" + CRLF + " F5 ", "&Excel" ) 2 lineas en el Button, ...

Hola William

el problema no esta en la ToolBar....

WilliamAdami wrote: Si altero los otoolbar1:nWidth y otoolbar1:nHeight la barra aumenta de tamano, mas sus botones no.

el problema son los botones, prueba eliminar la lista de imagenes y crearla con una nueva dimension.

yo estoy utilizando la TTOOLBAR y no consigo redimensiona-la. Durante la execucion de lo programa mudo los valores de oToolbar1:nBtnWidth:= 300 , otoolbar1:nBtnHeight:=50 , otoolbar1:refresh() y no redimensiona corretamente la Toolbar. Si altero los otoolbar1:nWidth y otoolbar1:nHeight ...

Daniel Garcia-Gil wrote:Saludos Ico...

Revisa ToolBar2.prg y cambia el ancho del oToolBar1 y oToolBar2 por al ancho de la pantalla

oToolBar1:nWidth = getsysmetrics( 0 )
oToolBar2:nWidth = getsysmetrics( 0 )

Obrigado Daniel, Funcionou do jeito que eu queria...

Abraços..

Saludos Ico...

Revisa ToolBar2.prg y cambia el ancho del oToolBar1 y oToolBar2 por al ancho de la pantalla

oToolBar1:nWidth = getsysmetrics( 0 )
oToolBar2:nWidth = getsysmetrics( 0 )

Leon,

A todos los botones les has asignado la misma acción:

oToolBar1:AddButton( { || (oWnd:End(),Quit) }, ...

Deberias asignarle a cada botón una acción diferente.

... "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( ...

... "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( ...

... 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 ...

... "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( ...

... que esta invoca a una función diferente para construir los ToolTips. He probado de todo y no lo he logrado. Alguna sugerencia ? Tampoco funciona: oToolBar1:SetTextRows(3) ni nRows := 2 SendMessage( oToolBar1:hWnd, TB_SETMAXTEXTROWS, nRows, 0 ) Tengo FWH 2.7 de Agosto 2006, xHarbour 0.99.61 y BCC ...

... que esta invoca a una función diferente para construir los ToolTips. He probado de todo y no lo he logrado. Alguna sugerencia ? Tampoco funciona: oToolBar1:SetTextRows(3) ni nRows := 2 SendMessage( oToolBar1:hWnd, TB_SETMAXTEXTROWS, nRows, 0 ) Mil gracias por su ayuda. Tengo FWH 2.7 de Agosto ...