57 lines
582 B
Text
57 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
|