w = ClientWidth(Desktop()) / 4 * 3
h = ClientHeight(Desktop()) / 4 * 3

Global win = CreateWindow("KnorxThieus KnowledgeStore", ClientWidth(Desktop()) / 2 - w / 2, ClientHeight(Desktop()) / 2 - h / 2, w, h, Desktop(), 7)


GlassPlusInit(-1)
Global gwin = MakeGlassWindow(QueryObject(win, 1), 0, 30, 0, 0)

EnableGlassDrag(gwin, 1)

gstbg = CreateGlassGradient(1, 591, $00FEDCBA, ClientWidth(win) - 2, 30 - 2, $ABCDEF00)
DrawGlassGradient gwin, gstbg, 0, 0, 400, 300
DeleteGlassGradient gstbg

RedrawGlassWindow gwin

Global mainpan = CreatePanel(0, 0, ClientWidth(win), ClientHeight(win) - 30, win)


;close = CreatePanel(ClientWidth(win) - 25, ClientHeight(win) - 25, 20, 20, win)
;SetPanelImage close, "Files\png\close.png"




SetGlassStatusText(gwin, Language$("Initialisierung..."))

;menus
root = WindowMenu(win)

menu1	= CreateMenu(Language$("Datei"), 1, root)
menu11	= CreateMenu(Language$("Neu"), 11, menu1)
menu12	= CreateMenu(Language$("Öffnen"), 12, menu1)
menu13	= CreateMenu(Language$("Speichern"), 13, menu1)
menu14	= CreateMenu(Language$("Speichern unter..."), 14, menu1)
menu__	= CreateMenu(Language$(""), 0, menu1)
menu15	= CreateMenu(Language$("Drucken..."), 15, menu1)
menu__	= CreateMenu(Language$(""), 0, menu1)
menu16	= CreateMenu(Language$("Schließen"), 16, menu1)
menu17	= CreateMenu(Language$("Beenden"), 17, menu1)
menu2	= CreateMenu(Language$("Bearbeiten"), 2, root)
menu21	= CreateMenu(Language$("Rückgängig"), 21, menu2)
menu22	= CreateMenu(Language$("Wiederherstellen"), 22, menu2)
menu__	= CreateMenu(Language$(""), 0, menu2)
menu23	= CreateMenu(Language$("Ausschneiden"), 23, menu2)
menu24	= CreateMenu(Language$("Kopieren"), 24, menu2)
menu25	= CreateMenu(Language$("Einfügen"), 25, menu2)
menu__	= CreateMenu(Language$(""), 0, menu2)
menu26	= CreateMenu(Language$("Löschen"), 26, menu2)
menu3	= CreateMenu(Language$("Ansicht"), 3, root)
menu31	= CreateMenu(Language$(""), 31, menu3)



UpdateWindowMenu(win)
;end menus

;Stop
;tvp = CreateGroupBox("Navigationsbereich", 5, 5, ClientWidth(win) / 5 - 10, ClientHeight(win) - 10 - 30, win)
;tv = CreateTreeView()
txt = CreateLabel("Hallo", 200, 200, 200, 30, win, 1)
ActivateGadget txt










SetGlassStatusText(gwin, Language$("Bereit"))



Repeat
	Select WaitEvent()
;		Case $201
;			If MouseX() - GadgetX(win) => ClientWidth(win) - 20 And MouseY() - GadgetY(win) => ClientHeight(win) - 20 And MouseX() - GadgetX(win) <= 1186 And MouseY() - GadgetY(win) <= 661;GadgetY(close) + GadgetHeight(close)
;				;Stop
;				SetPanelImage close, "Files\png\close_down.png"
;				close_down = True
;				DebugLog close_down
;			ElseIf close_down = False
;				SetPanelImage close, "Files\png\close.png"
;				close_down = False
;			EndIf
;			;DebugLog MouseX() - GadgetX(win) + "=>?" + (ClientWidth(win) - 20) + "	" + (MouseX() - GadgetX(win) => ClientWidth(win) - 20)
;			;DebugLog MouseY() - GadgetY(win) + "=>?" + (ClientHeight(win) - 20) + "	" + (MouseY() - GadgetY(win) => ClientHeight(win) - 20)
;			;DebugLog (MouseX() - GadgetX(win)) + "<=?" + (ClientWidth(win) - 5) + "	" + (MouseX() - GadgetX(win) <= ClientWidth(win) - 5)
;			;DebugLog (MouseY() - GadgetY(win)) + "<=?" + (ClientHeight(win) + 5) + "	" + (MouseY() - GadgetY(win) <= ClientHeight(win) + 5)
;		Case $202
;			If close_down
;				SetPanelImage close, "Files\png\close.png"
;				close_down = False
;				If MouseX() - GadgetX(win) => ClientWidth(win) - 20 And MouseY() - GadgetY(win) => ClientHeight(win) - 20 And MouseX() - GadgetX(win) <= 1186 And MouseY() - GadgetY(win) <= 661;GadgetY(close) + GadgetHeight(close)
;					EndRequest
;				EndIf
;			EndIf
		Case $803
			EndRequest()
		Case $1001
			Select EventData()
				Case 17
					EndRequest()
			End Select
	End Select
Forever




























Function EndRequest()
	SetGlassStatusText(gwin, Language$("Deinitialisierung..."))
	
	RemoveWindowGlass(gwin)
	GlassPlusDeinit()
	
	
	
	End
End Function







Function SetGlassStatusText(gwindow, txt$)
	
	;Stop
	ClearGlassWindow(gwindow)
	
	font = LoadGlassFont(gwindow, "", 0)
	DrawGlassText gwindow, font, txt$, 5, 595, 10
	DeleteGlassFont font
	RedrawGlassWindow gwindow
	
	ShowGadget mainpan
	
End Function


Function Language$(txt$, language = -1)
	If language = -1 Then language = 0
	If language = 0
		Select txt$
			Case ""
				ret$ = ""
			Case "Datei"
				ret$ = "File"
			Case "Neu"
				ret$ = "New"
			Case "Öffnen"
				ret$ = "Open"
			Case "Speichern"
				ret$ = "Save"
			Case "Speichern unter..."
				ret$ = "Save as..."
			Case "Drucken..."
				ret$ = "Print..."
			Case "Schließen"
				ret$ = "Close"
			Case "Beenden"
				ret$ = "Exit"
			Case "Bearbeiten"
				ret$ = "Edit"
			Case "Rückgängig"
				ret$ = "Undo"
			Case "Wiederherstellen"
				ret$ = "Redo"
			Case "Ausschneiden"
				ret$ = "Cut"
			Case "Kopieren"
				ret$ = "Copy"
			Case "Einfügen"
				ret$ = "Paste"
			Case "Ansicht"
				ret$ = "View"
			Case "Löschen"
				ret$ = "Delete"
			Case "Bereit"
				ret$ = "Ready"
			Case "Initialisierung..."
				ret$ = "Initialization..."
			Case "Deinitialisierung..."
				ret$ = "Deinitialization..."
			Default
				ret$ = "[No translation found]"
		End Select
		Return ret$
	Else
		Return txt$
	EndIf
End Function

Function CreateGroupBox(name$, x, y, width, height, parent, style = 0)
	;stop
	groupbox = CreateButton(name$, x, y, width, height, parent)
	hwnd = QueryObject(groupbox, 1)
	api_SetWindowLong(hwnd, -16, api_GetWindowLong(hwnd, -16)+7)
	Return CreatePanel(GadgetX(groupbox), GadgetY(groupbox), GadgetWidth(groupbox), GadgetHeight(groupbox), parent)
End Function