58 lines
582 B
Text
58 lines
582 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
PROPERTY MinValue AS Float
|
||
|
|
PROPERTY MaxValue AS Float
|
||
|
|
PROPERTY {Step} AS Float
|
||
|
|
PROPERTY {Font} AS Font
|
||
|
|
PRIVATE $oFont AS NEW Font
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
PRIVATE FUNCTION MinValue_Read() AS Float
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
PRIVATE SUB MinValue_Write(Value AS Float)
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
PRIVATE FUNCTION MaxValue_Read() AS Float
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
PRIVATE SUB MaxValue_Write(Value AS Float)
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
PRIVATE FUNCTION Step_Read() AS Float
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
PRIVATE SUB Step_Write(Value AS Float)
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
PRIVATE FUNCTION Font_Read() AS Font
|
||
|
|
|
||
|
|
RETURN $oFont
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
PRIVATE SUB Font_Write(Value AS Font)
|
||
|
|
|
||
|
|
$oFont = Value
|
||
|
|
|
||
|
|
END
|