FiveTech Software tech support forums

... función SALIDA a la que le estoy pasando dos parametros el objeto oBtn y el cargo HAB_NUM (Número de habitación) STATIC FUNCTION Salida(oBtn,oBoton)   cCmdSql  := "UPDATE " +;                  "Habitaciones " ...

... local oDlg, oGet02,oGet01,oGet03,oFont,clavencriptada:=space(20),claveDecriptada:=space(20) local cPassword:=SPACE(20),oSay local oBoton,oBoton2,cChave := 'AMFSOFT',cnombre:=space(33),lEncriDescri := .F.,lSalir := .F. DEFINE FONT oFont NAME "Tahoma" SIZE 0, -12 DEFINE ...

Prueba a hacer:

oBar:lCancel := .T.

Si no funciona asi, entonces prueba a hacer oBoton:lCancel := .T.

Cristobal,

Probaré cuando llegue a mi oficina, pero no sé si soportará
Oboton:setbrush(obrush)

Que tipo de botón estás usando ? En caso de ser un botón TBtnBmp, entonces puedes usar la sintaxis estandard de FWH para colores: oBoton:SetColor( nRGBColorTexto, nRGBColorFondo ) en donde cada uno de esos dos valores ha de ser un color en notación RGB. Puedes usar la función de FWH nRGB( ...

... La variable lOkSalir puedes usarla para salir del bucle. Por ejemplo con un boton de "Parar": REDEFINE BUTTON oBoton ID 100 OF oDlg ACTION { lOkSalir:=.T. }

Daniel Gracias por tu apoyo, revise el ejemplo y no pude adaptarlo a la ribbon, para leer .png asi utilizo la ribbon @ 5, 5 ADD BUTTON ::oBoton PROMPT "Punto de Venta" BITMAP ::cDirBmps+"pdv48.BMP" ; GROUP ::oGrupo SIZE 80,90 ROUND ROUNDSIZE 2 BORDER intente hacerle asi ...

Daniel Gracias por tu apoyo, revise el ejemplo y no pude adaptarlo a la ribbon, para leer .png asi utilizo la ribbon @ 5, 5 ADD BUTTON ::oBoton PROMPT "Punto de Venta" BITMAP ::cDirBmps+"pdv48.BMP" ; GROUP ::oGrupo SIZE 80,90 ROUND ROUNDSIZE 2 BORDER intente hacerle asi ...

Gracias Antonio. Era error mio, funciona todo bien.

Tengo la clase trbbtn modificada para que los botones no aparezcan transparentes y verlos con los colores.
Y asi no poner en el on init del dialogo oboton:lTransparent:=.f.

Gracias y disculpe, vere como lo hago nuevamente.

Saludos Maestro.

... oImag2 := LoadBitMap(GetResources(),"Imagen2") n:=2 DEFINE TIMER tImag OF oWnd3 INTERVAL 1000 ACTION (If(n=1, (oBoton:setBmp(oImag1), n= 2), (oBoton:SetBmp(oImag2), n= 1)) ACTIVATE TIMER tImag .. ... REDEFINE BTNBMP oBoton RESOURCE "Imagen1" ACTION ...

... static FUNCTION Entalba(cTitulo,cQueHago,reconduc,aAlias)   local oBmp   local cCodProTem   local cCodconTem   LOCAL cCodartTem   local oboton   local onumero   local oDlg,oGet   local ocodprou   local ti:=.F.   local cestado   local titulo   local valor:='S'   local lOldConfirm := Set( ...

RMC:

Trata con la propiedad lPressed

oBoton:lPressed := (.T.)

Saludos

oBoton:SetText( "OtroTexto" )

... ojump del control que abandonas. Aquí tienes un ejemplo que muda de un botón a un combobox que no es el siguiente en el orden de definicion: oBoton[1]:oJump:=oCombo[1], oCombo[1]:SetFocus() Espero te ayude.

... ojump del control que abandonas. Aquí tienes un ejemplo que muda de un botón a un combobox que no es el siguiente en el orden de definicion: oBoton[1]:oJump:=oCombo[1], oCombo[1]:SetFocus() Espero te ayude.