Página 1 de 1
Masked Edit
Publicado: Mié Jun 25, 2008 1:08 am
por Nick Hilder
Hi Gents
I have a bunch of TEdit's on a form and 1 TMaskEdit
In the OnExit event I have call a methed with like this
METHOD IsModified( oSender, oNextCtl )
If oSender:lModify == .T.
::oSave:lEnabled := .T.
Endif
RETURN Nil
The problem I want to report is that LModify is not being set to true when I
change the contents on the TMaskEdit control
My mask is this (from the xfm)
WITH OBJECT ::oTimerInterval := TMaskEdit():New( ::oGatewayGroupBox )
:SetBounds( 116, 24, 46, 20 )
:cMessage := "Enter a value between 1 and 99 seconds"
:nMaxLength := 2
:cPicture := "99"
:Value := " "
:OnExit := "IsModified"
:Create()
END
Masked Edit
Publicado: Mié Jun 25, 2008 7:31 am
por Oleg
Nick,
> I have a bunch of TEdit's on a form and 1 TMaskEdit
>
> In the OnExit event I have call a methed with like this
>
> METHOD IsModified( oSender, oNextCtl )
>
> If oSender:lModify == .T.
> ::oSave:lEnabled := .T.
> Endif
>
> RETURN Nil
>
> The problem I want to report is that LModify is not being set to true when
> I change the contents on the TMaskEdit control
>
> My mask is this (from the xfm)
>
> WITH OBJECT ::oTimerInterval := TMaskEdit():New( ::oGatewayGroupBox )
> :SetBounds( 116, 24, 46, 20 )
> :cMessage := "Enter a value between 1 and 99 seconds"
> :nMaxLength := 2
> :cPicture := "99"
> :Value := " "
> :OnExit := "IsModified"
> :Create()
> END
>
I confirm that this problem exists. It appears only when any ::cPicture is
assigned.
Regards, Oleg
Masked Edit
Publicado: Mié Jun 25, 2008 7:31 am
por Oleg
Nick,
> I have a bunch of TEdit's on a form and 1 TMaskEdit
>
> In the OnExit event I have call a methed with like this
>
> METHOD IsModified( oSender, oNextCtl )
>
> If oSender:lModify == .T.
> ::oSave:lEnabled := .T.
> Endif
>
> RETURN Nil
>
> The problem I want to report is that LModify is not being set to true when
> I change the contents on the TMaskEdit control
>
> My mask is this (from the xfm)
>
> WITH OBJECT ::oTimerInterval := TMaskEdit():New( ::oGatewayGroupBox )
> :SetBounds( 116, 24, 46, 20 )
> :cMessage := "Enter a value between 1 and 99 seconds"
> :nMaxLength := 2
> :cPicture := "99"
> :Value := " "
> :OnExit := "IsModified"
> :Create()
> END
>
I confirm that this problem exists. It appears only when any ::cPicture is
assigned.
Regards, Oleg
Masked Edit
Publicado: Mié Jun 25, 2008 10:43 am
por ignacio
Nick,
Fixed. It will be available on next upgrade. Thanks.
Regards,
--
Ignacio Ortiz de Zúñiga
[Soporte Xailer]
[Xailer support]
"Nick Hilder" <nick_n0_spam_atcapsol.com.au> escribió en el mensaje
news:[email=
48617e74@ozsrv2.ozlan.local...]
48617e74@ozsrv2.ozlan.local...[/email]
> Hi Gents
>
> I have a bunch of TEdit's on a form and 1 TMaskEdit
>
> In the OnExit event I have call a methed with like this
>
> METHOD IsModified( oSender, oNextCtl )
>
> If oSender:lModify == .T.
> ::oSave:lEnabled := .T.
> Endif
>
> RETURN Nil
>
> The problem I want to report is that LModify is not being set to true when
> I change the contents on the TMaskEdit control
>
> My mask is this (from the xfm)
>
> WITH OBJECT ::oTimerInterval := TMaskEdit():New( ::oGatewayGroupBox )
> :SetBounds( 116, 24, 46, 20 )
> :cMessage := "Enter a value between 1 and 99 seconds"
> :nMaxLength := 2
> :cPicture := "99"
> :Value := " "
> :OnExit := "IsModified"
> :Create()
> END
>
Masked Edit
Publicado: Mié Jun 25, 2008 10:43 am
por NoName
Nick,
Fixed. It will be available on next upgrade. Thanks.
Regards,
--
Ignacio Ortiz de Zúñiga
[Soporte Xailer]
[Xailer support]
"Nick Hilder" <nick_n0_spam_atcapsol.com.au> escribió en el mensaje
news:[email=
48617e74@ozsrv2.ozlan.local...]
48617e74@ozsrv2.ozlan.local...[/email]
> Hi Gents
>
> I have a bunch of TEdit's on a form and 1 TMaskEdit
>
> In the OnExit event I have call a methed with like this
>
> METHOD IsModified( oSender, oNextCtl )
>
> If oSender:lModify == .T.
> ::oSave:lEnabled := .T.
> Endif
>
> RETURN Nil
>
> The problem I want to report is that LModify is not being set to true when
> I change the contents on the TMaskEdit control
>
> My mask is this (from the xfm)
>
> WITH OBJECT ::oTimerInterval := TMaskEdit():New( ::oGatewayGroupBox )
> :SetBounds( 116, 24, 46, 20 )
> :cMessage := "Enter a value between 1 and 99 seconds"
> :nMaxLength := 2
> :cPicture := "99"
> :Value := " "
> :OnExit := "IsModified"
> :Create()
> END
>