OWNWRBUTTON DISABLE continua funcionando

[Fernando queiroz]

@ 850,560 OWNERBUTTON oOwnerbutton1 SIZE 98,32 ;
TEXT 'Salvar' ;
COORDINATES 30, 0, 0, 0 ;
BITMAP 'APPLYBMP' FROM RESOURCE TRANSPARENT;
COORDINATES 5, 0, 0, 0;
ON CLICK {|| hwg_Enddialog() }
oOwnerbutton1:Anchor := 12
oOwnerbutton1:lEnabled := .F.

ou

@ 850,560 OWNERBUTTON oOwnerbutton1 SIZE 98,32 ;
TEXT 'Salvar' ;
COORDINATES 30, 0, 0, 0 ;
BITMAP 'APPLYBMP' FROM RESOURCE TRANSPARENT DISABLED;
COORDINATES 5, 0, 0, 0;
ON CLICK {|| hwg_Enddialog() }
oOwnerbutton1:Anchor := 12

Somente Mudam a cor para desabilitado, mas o botão continua funcionando, acho que tem furo ai !!!

[alxsts]

Olá!

Troque lEnabled por enabled:

Código: Selecionar todos

oOwnerbutton1:enabled := .F.

Ou faça uma chamada ao método:

Código: Selecionar todos

oOwnerbutton1:disable()

[Fernando queiroz]

Olá!

Troque lEnabled por enabled:

Código: Selecionar todos

oOwnerbutton1:enabled := .F.

Ou faça uma chamada ao método:

Código: Selecionar todos

oOwnerbutton1:disable()

Nao faz diferença ele somente deixa o botao com cor de desabilitado , mas o botão continua
sendo clicavel

minha solução foi essa

Código: Selecionar todos

	@ 850,560  OWNERBUTTON oOwnerbutton1  SIZE 98,32 ;
		TEXT 'Salvar'  ;
		COORDINATES 30, 0, 0, 0  ;
		BITMAP 'APPLYBMP' FROM RESOURCE TRANSPARENT;
		COORDINATES 5, 0, 0, 0;
		ON CLICK {||IF(oOwnerbutton1:lEnabled,hwg_Enddialog(),)  }		
		oOwnerbutton1:Anchor := 12 

e desculpe mas a variável na classe se chama oOwnerbutton1:lEnabled := .F. , oOwnerbutton1:Enabled não existe

Código: Selecionar todos

CLASS HOwnButton INHERIT HControl

   CLASS VAR cPath SHARED
   DATA winclass   INIT "OWNBTN"
   DATA lFlat
   DATA aStyle
   DATA state
   DATA bClick
   DATA lPress  INIT .F.
   DATA lCheck  INIT .F.
   DATA xt, yt, widtht, heightt
   DATA oBitmap, xb, yb, widthb, heightb, lTransp, trColor
   DATA oPen1, oPen2
   DATA lEnabled INIT .T.
   DATA nOrder

[asimoes]

Uma solução até resolver isso seria:

oOwnerbutton1:bClick := NIl

e, para habilitar o click

oOwnerbutton1:bClick := {|| hwg_Enddialog() }