Clipper On Line • Ver Tópico - OWNWRBUTTON DISABLE continua funcionando

OWNWRBUTTON DISABLE continua funcionando

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

OWNWRBUTTON DISABLE continua funcionando

Mensagempor Fernando queiroz » 14 Abr 2020 15:05

@ 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 !!!
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

OWNWRBUTTON DISABLE continua funcionando

Mensagempor alxsts » 14 Abr 2020 19:32

Olá!

Troque lEnabled por enabled:
oOwnerbutton1:enabled := .F.

Ou faça uma chamada ao método:
oOwnerbutton1:disable()
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

OWNWRBUTTON DISABLE continua funcionando

Mensagempor Fernando queiroz » 14 Abr 2020 23:16

alxsts escreveu:Olá!

Troque lEnabled por enabled:
oOwnerbutton1:enabled := .F.

Ou faça uma chamada ao método:
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
   @ 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

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
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

OWNWRBUTTON DISABLE continua funcionando

Mensagempor asimoes » 15 Abr 2020 09:47

Uma solução até resolver isso seria:

oOwnerbutton1:bClick := NIl

e, para habilitar o click

oOwnerbutton1:bClick := {|| hwg_Enddialog() }
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes




Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro