;**********
;Script für SonderZeichen
;**********

#Include "S:\AutoIt\autoit-v3\new\Include\GuiConstants.au3"

$g_szVersion = "Sonderzeichen 1.0"
If WinExists($g_szVersion) Then Exit; It's already running
AutoItWinSetTitle($g_szVersion)

HotKeySet ( "{F10}", "gui")
HotKeySet ( "^!{ESC}" , "beenden" )

Global $guiaktiv = 0
Global $gui

;#NoTrayIcon

While 1
		Sleep(500)
WEnd

Func gui()
	  HotKeySet ( "{F10}")
	  $titel = WinGetTitle("")
	  $gui = GUICreate ( "Sonderzeichen" ,200 ,35 ,@DesktopWidth - 201 , @DesktopHeight - 65, $WS_POPUP, $WS_EX_TOPMOST )
	  $bg = GUICtrlCreatePic(@ScriptDir & "\Sonderzeichen_bg.bmp", 0, 0, 200, 35)
	  ;$label = GUICtrlCreateLabel("Sonderzeichen", 5, 5, 190, 40)
	  ;GUICtrlSetColor ( $label, 0xFFFF00)
	  ;GUICtrlSetFont ($label, 20, 600 )
	  DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $gui, "int", 250, "long", 0x0004000a );fade-in
	  ;WinSetTrans ( "Sonderzeichen", "Sonderzeichen", 80 )
	  GuiSetState(@SW_SHOW)
	  WinActivate($titel)
	  $guiaktiv = 1
	  HotKeySet ( "{ESC}" , "gui_beenden" )
	  Aktiviere_Hotkeys()
EndFunc

Func gui_beenden()
	If $guiaktiv Then
		DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $gui, "int", 750, "long", 0x00050005 );fade-out
		GUIDelete($gui)
		HotKeySet ( "{ESC}" )
		HotKeySet ( "{F10}", "gui")
		Deaktiviere_Hotkeys()
	EndIf
EndFunc

Func gedankenstrich()
	BlockInput(1)
	Send("–")
	BlockInput(0)
EndFunc

Func anfuehrungszeichen_auf()
	BlockInput(1)
	Send("«")
	BlockInput(0)
EndFunc

Func anfuehrungszeichen_zu()
	BlockInput(1)
	Send("»")
	BlockInput(0)
EndFunc

Func points()
	BlockInput(1)
	Send("…")
	BlockInput(0)
EndFunc

Func big_point()
	BlockInput(1)
	Send("•")
	BlockInput(0)
EndFunc

Func Aktiviere_Hotkeys()
   HotKeySet ( "{F1}" , "hilfe")
	HotKeySet ( "{F2}" , "gedankenstrich" )
	HotKeySet ( "{F3}" , "anfuehrungszeichen_auf" )
	HotKeySet ( "{F4}" , "anfuehrungszeichen_zu" )
	HotKeySet ( "{F5}" , "points" )
	HotKeySet ( "{F6}" , "big_point" )
EndFunc

Func Deaktiviere_Hotkeys()
	HotKeySet ( "{F2}" )
	HotKeySet ( "{F3}" )
	HotKeySet ( "{F4}" )
	HotKeySet ( "{F5}" )
	HotKeySet ( "{F6}" )
EndFunc

Func hilfe()
	MsgBox(262144,"Tastaturkürzel","F2 = Gedankenstrich:" & @TAB & "–" & @TAB & "(Alt+0151)" & @CRLF & "F3 = Anführungszeichen auf:" & @TAB & "«" & @TAB &"(Alt+0171)" & @CRLF & "F4 = Anführungszeichen zu:" & @TAB & "»" & @TAB & "(Alt+0187)" & @CRLF & "F5 = Dreierpunkte:" & @TAB & @TAB & "…" & @TAB & "(Alt+0133)" _
			 & @CRLF & "F6 = Grosser Punkt:" & @TAB & "•" & @TAB & "(Alt+0149)")
EndFUnc

Func beenden()
   HotKeySet ( "^{F10}" )
	HotKeySet ( "^!{ESC}" )
	HotKeySet ( "{ESC}" )
	Exit
EndFunc

Func _Debug($text, $titel="Debug")
	MsgBox(0, $titel, $text)
EndFunc