Code: |
Private Sub tmrAutoDayNightChanger_Timer() xTime = ExchangeInString(Time, ":", "") If INIGetValue(App.Path & "\data\config.ini", "GlobalSettings", "AutoChange") = "1" Then If (xTime < txtNightEnd.text) Then 'Nacht... If frmClipSave.txtDayNightState.text = "Day" Then frmClipSave.txtDayNightState.text = "Night" If txtManualChangeSkin.text <> "1" Then Call SkinDayNight If txtManualChangeGamma.text <> "1" Then Call SetGamma2 End If GoTo fin Else If (xTime > txtNightBegin.text) Then 'Nacht... If frmClipSave.txtDayNightState.text = "Day" Then frmClipSave.txtDayNightState.text = "Night" If txtManualChangeSkin.text <> "1" Then Call SkinDayNight If txtManualChangeGamma.text <> "1" Then Call SetGamma2 End If GoTo fin Else 'Tag... If frmClipSave.txtDayNightState.text = "Night" Then frmClipSave.txtDayNightState.text = "Day" If txtManualChangeSkin.text <> "1" Then Call SkinDayNight If txtManualChangeGamma.text <> "1" Then Call SetGamma2 End If GoTo fin End If End If Else tmrAutoDayNightChanger.Enabled = False End If fin: End Sub |
Zitat: |
Ist einer dieser Variablen gesetzt, wird bei der autoumstellung auch nichts verändert. |