I shall continue with spinner.
I wrote code for RangeMax property as:
Code: Select all
METHOD RangeMax ( nValue ) CLASS SPINNER
If ::lCreated
If Pcount() == 0
RETURN ::oQTObject:Maximum()
ElseIf Pcount() == 1
::oQTObject:SetMaximum( nValue )
EndIf
ELse
If Pcount() == 0
RETURN ::nRangeMax
ElseIf Pcount() == 1
::nRangeMax := nValue
EndIf
EndIf
RETURN Nil
(I don't know why "If" statements indents are not working properly)