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, el CRLF no funciona...

Saludos

Desde Chile
Adolfo

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

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.

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

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

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

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

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

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