Post by syntaxerror on Apr 10, 2004 11:23:23 GMT
Hi Weibo,
The update is really great. I have had a play with spinners (good addtion!).
There is a problem with INTS though ...
In your include you have:
If s\integer = True Then value=Int(value)
Since 'value' is always a float this will not work.
So, I adapted the code in CreateSpinner() and CheckSpinners() to:
If s\integer = 1
SetGadgetText s\textgad, Int(value) + s\suffix$
Else
SetGadgetText s\textgad, value + s\suffix$
EndIf
Also, how about setting 'Return True' in the CheckSpinners() function so we know when a spinner has been changed. This means we can do:
If CheckSpinners( EventSource() )
DebugLog "Spinner#1 "+Str(TextFieldText(sp1\textgad))
DebugLog "Spinner#2 "+Str(TextFieldText(sp2\textgad))
EndIf
Mmm, how about SpinnerValue() ?
myspinner.spinner=CreateSpinner(blah)
If CheckSpinners( EventSource() )
DebugLog "Spinner value = "+Int(SpinnerValue(myspinner))
Endif
Congratulations on having the VERY best BlitzPlus GUI editor.
The update is really great. I have had a play with spinners (good addtion!).
There is a problem with INTS though ...
In your include you have:
If s\integer = True Then value=Int(value)
Since 'value' is always a float this will not work.
So, I adapted the code in CreateSpinner() and CheckSpinners() to:
If s\integer = 1
SetGadgetText s\textgad, Int(value) + s\suffix$
Else
SetGadgetText s\textgad, value + s\suffix$
EndIf
Also, how about setting 'Return True' in the CheckSpinners() function so we know when a spinner has been changed. This means we can do:
If CheckSpinners( EventSource() )
DebugLog "Spinner#1 "+Str(TextFieldText(sp1\textgad))
DebugLog "Spinner#2 "+Str(TextFieldText(sp2\textgad))
EndIf
Mmm, how about SpinnerValue() ?
myspinner.spinner=CreateSpinner(blah)
If CheckSpinners( EventSource() )
DebugLog "Spinner value = "+Int(SpinnerValue(myspinner))
Endif
Congratulations on having the VERY best BlitzPlus GUI editor.
