7b01d12f31
* OPT: Optimizations in string comparison operators. * OPT: Optimizations in string allocations. * OPT: Optimizations in Left$(), Mid$(), Right$() and Len(). * OPT: Optimizations of calls to native methods when the number of arguments is fixed, and when no argument conversion is needed. * OPT: Optimizations of INPUT and LINE INPUT, by using an internal buffer instead of reading the stream one byte at a time. * BUG: Fixed the new error management. * BUG: Fixed a possible spurious error when reading a file from an archive. [GB.EVAL] * BUG: Use the same new error management than the interpreter. [GB.QT] * BUG: The DrawingArea control now should draw its border correctly without erasing its contents. git-svn-id: svn://localhost/gambas/trunk@1041 867c0c6c-44f3-4631-809d-bfa615b0a4ec
114 lines
1.6 KiB
Text
114 lines
1.6 KiB
Text
' Gambas class file
|
|
|
|
EXPORT
|
|
INHERITS UserControl
|
|
|
|
PROPERTY Value AS Date
|
|
PROPERTY Year AS Integer
|
|
PROPERTY Month AS Integer
|
|
PROPERTY Day AS Integer
|
|
PROPERTY Font AS Font
|
|
|
|
EVENT Change
|
|
EVENT Activate
|
|
|
|
PUBLIC CONST _Properties AS String = "*"
|
|
PUBLIC CONST _DefaultEvent AS String = "Change"
|
|
PUBLIC CONST _DefaultSize AS String = "40,28"
|
|
|
|
PRIVATE $hCal AS FCalendar
|
|
|
|
PUBLIC SUB _new()
|
|
|
|
$hCal = NEW FCalendar(ME)
|
|
|
|
END
|
|
|
|
PRIVATE FUNCTION Value_Read() AS Date
|
|
|
|
RETURN $hCal.GetValue()
|
|
|
|
END
|
|
|
|
PRIVATE SUB Value_Write(Value AS Date)
|
|
|
|
$hCal.SetValue(Value)
|
|
|
|
END
|
|
|
|
PUBLIC SUB _Change()
|
|
|
|
RAISE Change
|
|
|
|
END
|
|
|
|
PUBLIC SUB _Activate()
|
|
|
|
RAISE Activate
|
|
|
|
END
|
|
|
|
PRIVATE FUNCTION Year_Read() AS Integer
|
|
|
|
RETURN Year(Value_Read())
|
|
|
|
END
|
|
|
|
PRIVATE SUB Year_Write(Value AS Integer)
|
|
|
|
DIM dDate AS Date = Value_Read()
|
|
|
|
dDate = Date(Value, Month(dDate), Day(dDate))
|
|
Value_Write(dDate)
|
|
|
|
END
|
|
|
|
PRIVATE FUNCTION Month_Read() AS Integer
|
|
|
|
RETURN Month(Value_Read())
|
|
|
|
END
|
|
|
|
PRIVATE SUB Month_Write(Value AS Integer)
|
|
|
|
DIM dDate AS Date = Value_Read()
|
|
|
|
dDate = Date(Year(Value), Value, Day(dDate))
|
|
Value_Write(dDate)
|
|
|
|
END
|
|
|
|
PRIVATE FUNCTION Day_Read() AS Integer
|
|
|
|
RETURN Day(Value_Read())
|
|
|
|
END
|
|
|
|
PRIVATE SUB Day_Write(Value AS Integer)
|
|
|
|
DIM dDate AS Date = Value_Read()
|
|
|
|
dDate = Date(Year(dDate), Month(dDate), Value)
|
|
Value_Write(dDate)
|
|
|
|
END
|
|
|
|
PRIVATE FUNCTION Font_Read() AS Font
|
|
|
|
RETURN SUPER.Font
|
|
|
|
END
|
|
|
|
PRIVATE SUB Font_Write(Value AS Font)
|
|
|
|
SUPER.Font = Value
|
|
$hCal.UpdateFont
|
|
|
|
END
|
|
|
|
PUBLIC SUB SetDateColor({Date} AS Date, Color AS Integer)
|
|
|
|
$hCal.SetDateColor({Date}, Color)
|
|
|
|
END
|
|
|