OnCheckState en ToolBar

[Juan Jose]

Hola a todos
Pues eso alguien sabe si se puede hacer un Metodo OnCheckSatate en un boton
de la ToolBar.
Es para saber si es posible
Un Saludo
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5317 (20100727) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

[zeasoftware]

Si se puede, solo hay que sobrecargar la clase:
With Object :AddItem("Empresa", ID_CONECTAR_TIENDAS, "Conectar" )
:oMenu := oEmpresas
:lAutoSize := .t.
:nID_Check := ID_CONECTAR_TIENDAS
:lHide := .f.
:OnClick := {|oSender| ::EmpresaConec(oSender) }
:OnCheckState := {|| Len(::oMDIClient:aForms) == 0 .And. ;
AppData:TAppUser:ItemEnabled(
ID_CONECTAR_TIENDAS ) } //para cambiar de almacen
End
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com

[Juan Jose]

Muchas,Munchas Gracias Ramón
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=4c4f5b71@svctag-j7w3v3j....]4c4f5b71@svctag-j7w3v3j....[/email]
> Si se puede, solo hay que sobrecargar la clase:
>
> With Object :AddItem("Empresa", ID_CONECTAR_TIENDAS, "Conectar" )
> :oMenu := oEmpresas
> :lAutoSize := .t.
> :nID_Check := ID_CONECTAR_TIENDAS
> :lHide := .f.
> :OnClick := {|oSender| ::EmpresaConec(oSender) }
> :OnCheckState := {|| Len(::oMDIClient:aForms) == 0 .And. ;
> AppData:TAppUser:ItemEnabled(
> ID_CONECTAR_TIENDAS ) } //para cambiar de almacen
> End
>
>
> Saludos.
> --
> Ramón Zea
> 01.993.231-62-29
> http://www.paginasprodigy.com/zeasoftware/
> zeasoftware@prodigy.net.mx
> zeasoftware@hotmail.com
> ramonzea@yahoo.com
> zeasoft.movil@hotmail.com
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 5318 (20100727) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5318 (20100727) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

[Juan Jose]

Perdona Ramó por las molestias
Tengo 1.98 y no encuentro para el boton de la barra la forma de
sobrecargarlo ya que hereda de TComponent
el cual no tiene lo necesario ?habria que sobrecargarlo desde 0?
Un Saludo
"Juan Jose" <correo@jjlopezg.jazztel.es> escribió en el mensaje
news:4c4f5c4c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Muchas,Munchas Gracias Ramón
>
>
>
>
> "Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=4c4f5b71@svctag-j7w3v3j....]4c4f5b71@svctag-j7w3v3j....[/email]
>> Si se puede, solo hay que sobrecargar la clase:
>>
>> With Object :AddItem("Empresa", ID_CONECTAR_TIENDAS, "Conectar" )
>> :oMenu := oEmpresas
>> :lAutoSize := .t.
>> :nID_Check := ID_CONECTAR_TIENDAS
>> :lHide := .f.
>> :OnClick := {|oSender| ::EmpresaConec(oSender) }
>> :OnCheckState := {|| Len(::oMDIClient:aForms) == 0 .And. ;
>> AppData:TAppUser:ItemEnabled(
>> ID_CONECTAR_TIENDAS ) } //para cambiar de almacen
>> End
>>
>>
>> Saludos.
>> --
>> Ramón Zea
>> 01.993.231-62-29
>> http://www.paginasprodigy.com/zeasoftware/
>> zeasoftware@prodigy.net.mx
>> zeasoftware@hotmail.com
>> ramonzea@yahoo.com
>> zeasoft.movil@hotmail.com
>>
>> __________ Información de ESET NOD32 Antivirus, versión de la base de
>> firmas de virus 5318 (20100727) __________
>>
>> ESET NOD32 Antivirus ha comprobado este mensaje.
>>
>> http://www.eset.com
>>
>>
>>
>
>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 5318 (20100727) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5318 (20100727) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

[zeasoftware]

/*
* Proyecto: ZeaSoftware
* Fichero: zClassTToolButton.prg
* Descripción:
* Autor:
* Fecha: 12/10/2008
*/
#include "Xailer.ch"
//---------------------------------------------------------- ----------------
CLASS TToolButton FROM XToolButton
METHOD RequestState()
EVENT OnCheckState( oSender )
ENDCLASS
//---------------------------------------------------------- ----------------
METHOD RequestState() Class TToolButton
If ( ::EventAssigned( "OnCheckState" ) )
//logdebug(::nID_Check, ::OnCheckState())
If ( ::OnCheckState() )
::Enable()
Else
::Disable()
End
End
Return ( Nil )
//---------------------------------------------------------- --------------------
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com