He ingresado un get en un ribbon:
- Code: Select all Expand view
- // Pestaña Buscar
ADD GROUP aO[_GrpBusca] RIBBON aO[_Ribbon] TO OPTION 2 PROMPT "Búsquedas" WIDTH 310
@ 13, 10 GET aO[_GBusca] VAR cBusca SIZE 150,20 OF aO[_GrpBusca] PICTURE "@!" PIXEL UPDATE
@ 13,190 CHECKBOX aO[_ChkFil] VAR lFiltra PROMPT "Usar Filtro" OF aO[_GrpBusca] PIXEL
aO[_ChkFil]:SetColor( CLR_GREEN, GetSysColor( aO[_GrpBusca]:nClrPane ) )
@ 37, 10 ADD BUTTON aO[_BBusca] PROMPT "Buscar" BITMAP "bmp_" ;
GROUP aO[_GrpBusca] SIZE 70,30 LEFT ROUND ;
ACTION ( if( !lFiltra, ;
( nRecNo:= oSelf:oQryIns:RecNo, ;
if( oSelf:oQryIns:FindLike( 2, RTrim( cBusca ), TRUE ), /*exito*/, ;
( oSelf:oQryIns:GoTo( nRecNo ), MsgBeep() ) ) ), ), ;
oSelf:oBrwIns:Refresh(), oSelf:oBrwIns:SetFocus() )
Lo que me está ocurriedo es que, luego de ingresar el dato de búsqueda, y al mover el mouse hacia el botón respectivo el get se limpia!
Luego de investigar un poco, en realidad se limpia (o sea cBusca, retoma su valor inicial) al pasar por cualquier otro objeto del Grupo, o cuando el puntero del mouse sale del área de este Grupo.
Ahora bien, si pongo el foco en el get y, dejo el puntero del mouse en el boton de búsqueda; luego de ingresar un dato y dar clic con el mouse, la busqueda se realiza con la particularidad que ahora el valor de cBusca ya no se pierde (moviendo el puntero en cualquier dirección).
Probablemente es algo que no se tuvo en cuenta en la clase TRibbon o, quizás no este pensado para lo que estoy intentando; alguna solución?
Como tema menor, tambien incluí un checkbox; este no toma el color de fondo del ribbon (o no se como indicarle). Hice lo siguiente (como se ve arriba):
aO[_ChkFil]:SetColor( CLR_GREEN, GetSysColor( aO[_GrpBusca]:nClrPane ) )
Pero el color que toma es el gris de los Dialog. Como se puede indicar el color del ribbon?
muchas gracias