SAY dentro de BUTTOMBAR??

[José Camilo]

Buenas noches.
Se puede mostrar un SAY dentro de una BUTTOMBAR?
Si se puede como seria?
Lo he intentado pero la BUTTONBAR lo "pisa" y oculta.

Gracias

[nageswaragunupudi]

Please try this:

Code: Select all  Expand view

oBar:bPainted := {|| oBar:SayText( "your text", nil, "R" )

[José Camilo]

Mr. RAO.
Gracias por su tiempo.
Su sugerencia me da error: "Error BASE/1004 Message not found: TBAR:SAYTEXT
Args:
[ 1] = O TBAR"

asi es como lo estoy usando, queriendo mostrar un texto al final de los botones. uso FW v.12.06 y Harbour 3.10

function btnBarNew( oBrw, oDlg, aAcciones )

local oBar, oBtn, i := 1, cNombre
local oBar3, oBtn3, ii := 1, cNombre3
local ctol1:='', ctol2:=''


DEFINE BUTTONBAR oBar OF oDlg SIZE 70,70 2007 _3d bottom

for i = 1 to len(aAcciones)
cNombre := 'oBot'+Alltrim(Str(i))
(cNombre22) := TBtnBmp():NewBar( ;
,;
,;
(aacciones[i][1]),;
,;
(aacciones[i][2]),;
(aacciones[i][4]),;
(aacciones[i][7]),;
oBar,;
,;
,;
{aAcciones[i][6],aAcciones[i][2]},;
,;
,;
(aacciones[i][4]),;
,;
(aacciones[i][3]),;
,;
,;
,;
.F. )


next

AEVAL(oBar:aControls,{|o,n|o:SetColor(CLR_BLACK,CLR_BLUE)})


oBar:bPainted := {|| oBar:SayText( "Prueba", nil, "R" ) }

//* los 2 primeros array marcan los colores del boton al pasar por el, los segundor
// array marcan el gradient de la barra
oBar:bClrGrad := { | lPressed | If( ! lPressed, ;
{ { 1, nRGB( 123, 183, 164 ), nRGB( 151, 164, 174 ) } }, ;
{ { 1, nRGB( 166, 238, 253 ), nRGB( 185, 168, 49 ) } } ) }
return oBar
*------------------------------------------------------------------------------------------------------------------//

CUALQUIER OTRA SUGERENCIA SE LO AGRADEZCO.

José Camilo

[nageswaragunupudi]

I see.
12.06 is a very old version and does not have the method SayText

Please try this

Code: Select all  Expand view

oBar:bPainted := { || oBar:Say( 20,oBar:nWidth - 10, "Your say", ;
    nil,nil,nil,.t..t.,2 ) }

[José Camilo]

Mr. RAO.
Funciono perfecto !!!
Muchas Gracias!!!

José Camilo