28 lines
432 B
Text
28 lines
432 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
Public Sub Form_Open()
|
||
|
|
|
||
|
|
Me.Center
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub btnCancel_Click()
|
||
|
|
|
||
|
|
Me.Close
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub btnOK_Click()
|
||
|
|
|
||
|
|
If SpinDay.Value + SpinHrs.Value + SpinMins.Value = 0 Then
|
||
|
|
Message.Info(("There is no time correction selected."))
|
||
|
|
Return
|
||
|
|
Endif
|
||
|
|
|
||
|
|
Inc Application.Busy
|
||
|
|
FMain.TimeCorrection(SpinDay.Value, SpinHrs.Value, SpinMins.Value, cmbPlusMinus.Index)
|
||
|
|
Dec Application.Busy
|
||
|
|
Me.Close
|
||
|
|
|
||
|
|
End
|