Include "Files\bb\Functions.bb"

Dim times$(7, 288)
Dim ntftxt$(7, 288)
Repeat : Until Right$(MilliSecs(), 3) = "000"
Global timer = CreateTimer(1)
Global ProgramPath$ = "C:\Users\Chrissi\Documents\BlitzPlus\KTs TimeTabler\";GetProgramPath$()
;build graphics

Select GetTaskBarInfo(2)
	Case 1, 3
		xdif = -1
	Case 2, 4
		ydif = 1
End Select
Select GetTaskBarInfo(2)
	Case 1, 3
		w = ClientWidth(Desktop()) + (GetTaskBarInfo(1) * xdif)
		h = ClientHeight(Desktop())
	Case 2, 4
		w = ClientWidth(Desktop())
		h = ClientHeight(Desktop()) + (GetTaskBarInfo(1) * ydif)
End Select
		
Global win = CreateWindow("KTs TimeTabler", w / 6, h / 6, w / 6 * 4, h / 6 * 4, Desktop())
AppTitle "KTs TimeTabler"
Global tabber = CreateTabber(0, 0, ClientWidth(win), ClientHeight(win), win)
tabber_icons = LoadIconStrip("Files\bmp\Tabber_icons.bmp")
SetGadgetLayout tabber, 1, 1, 1, 1
SetGadgetIconStrip tabber, tabber_icons
AddGadgetItem tabber, "Startseite", True, 0
AddGadgetItem tabber, "Lesemodus", alse, 1
AddGadgetItem tabber, "Schreibemodus", False, 2

Global tabber_cp_homepage = CreatePanel(0, 0, ClientWidth(tabber), ClientHeight(tabber), tabber)
Global tabber_cp_reading = CreatePanel(0, 0, ClientWidth(tabber), ClientHeight(tabber), tabber)
Global tabber_cp_writing = CreatePanel(0, 0, ClientWidth(tabber), ClientHeight(tabber), tabber)
SetGadgetLayout tabber_cp_homepage, 1, 1, 1, 1
SetGadgetLayout tabber_cp_reading, 1, 1, 1, 1
SetGadgetLayout tabber_cp_writing, 1, 1, 1, 1

Global homepage_htmlv = CreateHtmlView(0, 0, ClientWidth(tabber_cp_homepage), ClientHeight(tabber_cp_homepage), tabber_cp_homepage, 3)
SetGadgetLayout homepage_htmlv, 1, 1, 1, 1
HtmlViewGo homepage_htmlv, ProgramPath$ + "Files\html\homepage.html"
;;;MENU laden
menu1	= CreateMenu("&Datei", 1, WindowMenu(win))
menu11	= CreateMenu("&Neu", 11, menu1)
menu12	= CreateMenu("Ö&ffnen", 12, menu1)
menu13	= CreateMenu("&Speichern", 13, menu1)
menu14	= CreateMenu("Speichern &unter...", 14, menu1)
menu_sx	= CreateMenu("", 0, menu1)
menu15	= CreateMenu("&Drucken", 15, menu1)
menu16	= CreateMenu("Druc&ken unter...", 16, menu1)
menu_sx	= CreateMenu("", 0, menu1)
menu17	= CreateMenu("S&chließen", 17, menu1)
menu18	= CreateMenu("&Beenden", 18, menu1)
;menu2	= CreateMenu("&Bearbeiten", 1, WindowMenu(win))
;menu21	= CreateMenu("&Neu", 11, menu1)

UpdateWindowMenu(win)

HotKeyEvent 49, 2, $1001, 11
HotKeyEvent 24, 2, $1001, 12
HotKeyEvent 31, 2, $1001, 13
HotKeyEvent 31, 3, $1001, 14
HotKeyEvent 25, 2, $1001, 15
HotKeyEvent 25, 3, $1001, 16
HotKeyEvent 16, 3, $1001, 17
HotKeyEvent 1, 7, $1001, 17
HotKeyEvent 16, 2, $1001, 18


;Main loop
ChangeModeHomePage(1)
StartView()
ChangeModeHomePage()








Function ControlGeneralEvents()
	Select WaitEvent()
		Case $401
			Select EventSource()
				Case tabber
					Select EventData()
						Case 0
							ChangeModeHomePage()
						Case 1
							ChangeModeReading()
						Case 2
							ChangeModeWriting()
					End Select
			End Select
		Case $803
			EndRequest()
		Case $1001
			Select EventData()
				Case 11
					ChangeModeWriting()
				Case 12
					ChangeModeReading()
				Case 17
					ChangeModeHomePage()
				Case 18
					EndRequest()
			End Select
	End Select
End Function

Function ChangeModeWriting()
	SelectGadgetItem tabber, 2
	ModifyGadgetItem tabber, 2, GadgetItemText$(tabber, 2), 5
	ModifyGadgetItem tabber, 1, GadgetItemText$(tabber, 1), 1
	ModifyGadgetItem tabber, 0, GadgetItemText$(tabber, 0), 0
	HideGadget tabber_cp_reading
	HideGadget tabber_cp_homepage
	ShowGadget tabber_cp_writing
	
	Notify "Writing-Mode"
End Function

Function ChangeModeReading()
;	Stop
	;graphics
	SelectGadgetItem tabber, 1
	ModifyGadgetItem tabber, 1, GadgetItemText$(tabber, 1), 4
	ModifyGadgetItem tabber, 2, GadgetItemText$(tabber, 2), 2
	ModifyGadgetItem tabber, 0, GadgetItemText$(tabber, 0), 0
	HideGadget tabber_cp_homepage
	HideGadget tabber_cp_writing
	ShowGadget tabber_cp_reading


	file$ = RequestFile$("TTL TimeTableList öffnen", ".ttl, .txt", False, "*.ttl")
	If FileType(file$) > 0 ReadTimeTable(file$)
	Repeat
		ttd$ = ControlWritingDates$()
		If ttd$ <> "" Notify ttd$
		ControlGeneralEvents()
	Forever
End Function

Function ChangeModeHomePage(ret = False)
	SelectGadgetItem tabber, 0
	ModifyGadgetItem tabber, 0, GadgetItemText$(tabber, 0), 3
	ModifyGadgetItem tabber, 1, GadgetItemText$(tabber, 1), 1
	ModifyGadgetItem tabber, 2, GadgetItemText$(tabber, 2), 2
	HideGadget tabber_cp_reading
	HideGadget tabber_cp_writing
	ShowGadget tabber_cp_homepage
	If ret Return

	Repeat
		ControlGeneralEvents()
	Forever
End Function

Function EndRequest()
	If Confirm("KTs TimeTabler beenden?") End
End Function





Function ControlWritingDates$()
	;Stop
	wd = GetWeekDay()
	For a = 0 To 288
		If times$(wd, a) = CurrentTime$();Left$(times$(wd, a), 6) = Left$(CurrentTime$(), 6) And Int(Right$(times$(wd, a), 2)) - 1 => Int(Right$(CurrentTime$(), 2));
			Return ntftxt$(wd, a)
		EndIf
	Next
End Function






Function ReadTimeTable(file$)
;	Stop
	files = ReadFile(file$)
	If files = 0
		Notify "Fehler: " + Chr$(13) + "Ungültige Datei", 1
		Return "Fehler: " + Chr$(13) + "Ungültige Datei"
	EndIf
	l_1$ = ReadLine$(files)
	l_2$ = ReadLine$(files)
	ilb = IsLineBreak(files)
	If l_1$ <> "TTL TimeTableList " + GetFileName$(file$) Or l_2$ = "By KnorxThieus TimeTabler" Or ilb = 0
		DebugLog "missing intro" + Chr$(13) + l_1$ + ", " + l_2$ + ", " + ilb + Chr$(13) + GetFileName(file$)
	EndIf
	Repeat
		l$ = ReadLine(files)
		Repeat
			lcut1$ = Left$(l$, Instr(l$, "-"))
			lcut2$ = Left$(l$, Instr(l$, "+"))
			eor = False
			If Len(lcut1$) = Len(lcut2$)
				lfin$ = l$
				eor = True
			ElseIf Len(lcut1$) < Len(lcut2$)
				lfin$ = lcut1$
				l$ = Mid$(l$, Instr(l$, "-"))
			ElseIf Len(lcut2$) < Len(lcut1$)
				lfin$ = lcut2$
				l$ = Mid$(l$, Instr(l$, "+"))
			EndIf
			ok = False
			Select lfin$
				Case "Montag" : lday = 1
					ok = True
				Case "Dienstag" : lday = 2
					ok = True
				Case "Mittwoch" : lday = 3
					ok = True
				Case "Donnerstag" : lday = 4
					ok = True
				Case "Freitag" : lday = 5
					ok = True
				Case "Samstag" : lday = 6
					ok = True
				Case "Sonnabend" : lday = 6
					ok = True
				Case "Sonntag" : lday = 7
					ok = True
			End Select
;			If ok = False And Not Eof(files)
;				Return "l$ is no weekday. not eof(files)"
;			EndIf
		Until eor
		
		l$ = ReadLine$(files)					;!!!vervollständigung auf zwei doppelpunkte
		time$ = Left$(l$, Instr(l$, " ") - 1)	;!!!
		colon1 = Instr(l$, ":")
		colon2 = Instr(l$, ":", colon1 + 1)
		If Not colon1
			times$(lday, timestplace) = time$ + ":00:00"	;!!!
		ElseIf Not colon2
			times$(lday, timestplace) = time$ + ":00"		;!!!
		Else
			times$(lday, timestplace) = time$		;!!!
		EndIf
		ntftxt$(lday, timestplace) = Mid$(l$, Instr(l$, " ") + 1)
		timestplace = timestplace + 1			;!!!
	Until Eof(files); Or 
	
;	For a = 1 To 7
;		For b = 0 To 288
;			DebugLog "Tag Nr." + a + ": Um " + times$(a, b) + " Uhr " + Chr$(34) + ntftxt$(a, b) + Chr$(34)
;		Next
;	Next
End Function

Function StartView()
	DisableGadget win
	startwin = CreateWindow("KTs TimeTabler", GadgetX(win) + GadgetWidth(win) / 4, GadgetY(win) + GadgetHeight(win) / 4, GadgetWidth(win) / 2, GadgetHeight(win) / 2, 0, 2 + 16);7)
	AddWindowMinimizeButton(startwin)
	GlassPlusInit($FFFFFFFF)
	gwin = MakeGlassWindow(QueryObject(startwin, 1), -1, 0, 0, 0)
	EnableGlassDrag(gwin, True)
	Repeat
		Select WaitEvent()
			Case $801, $802
				DisableGadget startwin
				SetGadgetShape startwin, GadgetX(win) + GadgetWidth(win) / 4, GadgetY(win) + GadgetHeight(win) / 4, GadgetWidth(win) / 2, GadgetHeight(win) / 2
				EnableGadget startwin
		End Select
	Forever
End Function

Und bitte meckert nicht rum, ich weiß, der Stil ist schlecht ich hab falsch angefangen und falsch aufgebaut....
Darum geht's ja jetzt nicht!