Re: Is this a bug ?
Posted: Mon Apr 20, 2009 11:17 pm
esgici wrote: So I can say only : "Yes sir, you have already told me !"
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
esgici wrote: So I can say only : "Yes sir, you have already told me !"
Code: Select all
case T == "GRID"
IF _HMG_SYSDATA [32] [ix] == .F.
ListView_SetCursel ( c, value )
ListView_EnsureVisible( C , VALUE )
ELSE
IF VALTYPE ( VALUE ) == 'A'
IF VALUE [1] == 0 .OR. VALUE [2] == 0
_HMG_SYSDATA [ 39 ] [ix] := 0
_HMG_SYSDATA [ 15 ] [ix] := 0
REDRAWWINDOW(C)
_DoControlEventProcedure ( _HMG_SYSDATA [ 12 ] [ix] , ix )
ELSE
IF _HMG_SYSDATA [ 39 ] [ix] <> value [1] ;
.OR. ;
_HMG_SYSDATA [ 15 ] [ix] <> value [2]
ListView_SetCursel ( c, value [1] )
ListView_EnsureVisible( C , VALUE [1] )
_HMG_SYSDATA [ 39 ] [ix] := value [1]
_HMG_SYSDATA [ 15 ] [ix] := value [2]
_DoControlEventProcedure ( _HMG_SYSDATA [ 12 ] [ix] , ix )
ENDIF
ENDIF
ENDIF
ENDIF
Well...rathinagiri wrote:Thanks for the explanations and suggestions.
This is my long term doubt. When we change the value of a control through "form.control.value := x" statement, whether on change event would be fired or not? Whether it is fired only when an user changes the value of the control manually?
Please, if you find a control that not work so, report the problem.rathinagiri wrote:So, I need not do so, in future. That's nice. Thank you Roberto.
I applied, but sorry, can't runRoberto Lopez wrote:You could make your original sample to work also making this change to _SetValue() function in h_controlmisc.prg HMG library code
Best RegardsHMG wrote:Error BASE/1003 Variable does not exist: VALUE
Called from _GETVALUE(253)
Called from GETPROPERTY(6775)
Called from (b)MAIN(107)
Called from _DOCONTROLEVENTPROCEDURE(4675)
Called from EVENTS(1407)
Called from SETSPINNERVALUE(0)
Called from _DEFINESPINNER(165)
Called from MAIN(109)
I've took the code posted from my own h_controlmisc.prg (it is working for me). Perhaps you missed something...esgici wrote:Hi Roberto
I applied, but sorry, can't runRoberto Lopez wrote:You could make your original sample to work also making this change to _SetValue() function in h_controlmisc.prg HMG library code
Best RegardsHMG wrote:Error BASE/1003 Variable does not exist: VALUE
Called from _GETVALUE(253)
Called from GETPROPERTY(6775)
Called from (b)MAIN(107)
Called from _DOCONTROLEVENTPROCEDURE(4675)
Called from EVENTS(1407)
Called from SETSPINNERVALUE(0)
Called from _DEFINESPINNER(165)
Called from MAIN(109)
--
Esgici
Yeah ! That's all !Roberto Lopez wrote: ... Perhaps you missed something...
Anyway, I've attached the entire file to this message.