diff options
Diffstat (limited to 'windows/neo-vars/src/source/screenkeyboard_new.ahk')
| -rw-r--r-- | windows/neo-vars/src/source/screenkeyboard_new.ahk | 194 |
1 files changed, 194 insertions, 0 deletions
diff --git a/windows/neo-vars/src/source/screenkeyboard_new.ahk b/windows/neo-vars/src/source/screenkeyboard_new.ahk new file mode 100644 index 0000000..8e61abc --- /dev/null +++ b/windows/neo-vars/src/source/screenkeyboard_new.ahk @@ -0,0 +1,194 @@ +BSTNguiErstellt := 0
+BSTNalwaysOnTop := 1
+
+CP3F2 := "P_BSTNt"
+
+UnZipLocalFile := ApplicationFolder . "\unzip.exe"
+UnZipSourceLink := "http://stahlworks.com/dev/unzip.exe"
+
+UniFontVersion := "2.30"
+UniFontFilename := "DejaVuSans.ttf"
+UniFontName := "DejaVu Sans"
+
+UniFontZipFilename := "dejavu-fonts-ttf-" . UniFontVersion . ".zip"
+UniFontZipLocalFile := ApplicationFolder . "\" . UniFontZipFilename
+
+UniFontZipSourceLink := "http://downloads.sourceforge.net/project/dejavu/dejavu/" . UniFontVersion . "/" . UniFontZipFilename
+
+UniFontLocalFile := ApplicationFolder . "/" . UniFontFilename
+UniFontZipFontPath := "dejavu-fonts-ttf-" . UniFontVersion . "/ttf/" . UniFontFilename
+
+BSTNUpdate() {
+ global
+ static WM_SETTEXT := 0x0C
+ {
+ VarSetCapacity(ptrU,20)
+ loop,parse,GuiKeyList,`,
+ {
+ sc := A_LoopField
+ GuiPhysKey := vksc%sc%
+ if (EbeneC<3) {
+ if (NOC%GuiPhysKey%==1) {
+ GuiEb := EbeneNC
+ } else {
+ GuiEb := EbeneC
+ }
+ } else
+ GuiEb := EbeneC
+ GuiComp := Comp . CP%GuiEb%%GuiPhysKey%
+ if (CD%GuiComp% != "") {
+ GuiComp := CD%GuiComp%
+ } else if (CM%GuiComp% == 1) {
+ GuiComp := "U00002A"
+ } else if (Comp != "") {
+ GuiComp := ""
+ }
+ GuiPos := 0
+ loop {
+ if (GuiComp=="")
+ break
+ if (SubStr(GuiComp,1,1)=="U") {
+ Charcode := "0x" . Substr(GuiComp,2,6)
+ if (charCode < 0x10000) {
+ NumPut(CharCode, ptrU, GuiPos, "UShort")
+ } else {
+ ; surrogates
+ NumPut(0xD800|((charCode-0x10000)/1024) , ptrU, GuiPos, "UShort")
+ GuiPos := GuiPos + 2
+ NumPut(0xDC00|((charCode-0x10000)&0x3FF), ptrU, GuiPos, "UShort")
+ }
+ GuiPos := GuiPos + 2
+ }
+ GuiComp := SubStr(GuiComp,8)
+ }
+ NumPut(0x0 ,ptrU,GuiPos,"UShort") ; End of string
+ DllCall("SendMessageW", "UInt",GuiKey%sc%, "UInt",WM_SETTEXT, "UInt",0, "Uint",&ptrU)
+ }
+ }
+}
+
+GuiAddKey(sc,x,y) {
+ global
+ Gui, Add, Text, x%x% y%y% Center hwndGuiKey%sc%, MM
+ GuiKeyList := GuiKeyList . sc . ","
+}
+
+BSTNToggle() {
+ global
+ if (BSTNguiErstellt) {
+ BSTNguiErstellt := 0
+ Gui, Destroy
+ } else {
+ if (FileExist(ResourceFolder)!="") {
+ FileInstall,ebene0.png,%ResourceFolder%\ebene0.png,1
+ }
+
+ if (FileExist(UniFontLocalFile)=="") {
+ if (FileExist(UnZipLocalFile)=="") {
+ Progress,0,,Herunterladen des Entpack-Programms ...
+ UrlDownloadToFile,%UnZipSourceLink%,%UnZipLocalFile%
+ if (FileExist(UnZipLocalFile)=="") {
+ Msgbox,Konnte Unzip-Programm nicht finden und nicht installieren!
+ }
+ }
+
+ if (FileExist(UniFontZipLocalFile)=="") {
+ Progress,20,Herunterladen des Fonts ...
+ UrlDownloadToFile,%UniFontZipSourceLink%,%UniFontZipLocalFile%
+ }
+
+ Progress,80,Entpacken des Archivs ...
+ RunWait,% """" . UnZipLocalFile . """ -j """ . UniFontZipLocalFile . """ """ . UniFontZipFontPath . """",%ApplicationFolder%,Hide
+ Progress,OFF
+ }
+
+ DllCall( "GDI32.DLL\AddFontResourceEx", Str, UniFontLocalFile ,UInt,(FR_PRIVATE:=0x10), Int,0)
+
+
+ SysGet, WorkArea, MonitorWorkArea
+ yPosition := WorkAreaBottom - 230
+ Gui, Color, FFFFFF
+ Gui, Add, Picture,AltSubmit x0 y0 vPicture0, % ResourceFolder . "\ebene0.png"
+ Gui, Font, s10 bold, %UniFontName%
+ GuiKeyList := ""
+ GuiAddKey("029",12,8)
+ GuiAddKey("002",52,8)
+ GuiAddKey("003",90,8)
+ GuiAddKey("004",128,8)
+ GuiAddKey("005",166,8)
+ GuiAddKey("006",204,8)
+ GuiAddKey("007",242,8)
+ GuiAddKey("008",280,8)
+ GuiAddKey("009",318,8)
+ GuiAddKey("00A",356,8)
+ GuiAddKey("00B",394,8)
+ GuiAddKey("00C",432,8)
+ GuiAddKey("00D",470,8)
+
+ GuiAddKey("010",64,48)
+ GuiAddKey("011",102,48)
+ GuiAddKey("012",140,48)
+ GuiAddKey("013",178,48)
+ GuiAddKey("014",216,48)
+ GuiAddKey("015",254,48)
+ GuiAddKey("016",292,48)
+ GuiAddKey("017",330,48)
+ GuiAddKey("018",368,48)
+ GuiAddKey("019",406,48)
+ GuiAddKey("01A",444,48)
+ GuiAddKey("01B",484,48)
+ GuiAddKey("00D",532,48)
+
+ GuiAddKey("01E",82,88)
+ GuiAddKey("01F",120,88)
+ GuiAddKey("020",158,88)
+ GuiAddKey("021",196,88)
+ GuiAddKey("022",234,88)
+ GuiAddKey("023",272,88)
+ GuiAddKey("024",310,88)
+ GuiAddKey("025",348,88)
+ GuiAddKey("026",386,88)
+ GuiAddKey("027",424,88)
+ GuiAddKey("028",462,88)
+
+ GuiAddKey("02C",94,128)
+ GuiAddKey("02D",132,128)
+ GuiAddKey("02E",170,128)
+ GuiAddKey("02F",208,128)
+ GuiAddKey("030",246,128)
+ GuiAddKey("031",284,128)
+ GuiAddKey("032",322,128)
+ GuiAddKey("033",360,128)
+ GuiAddKey("034",398,128)
+ GuiAddKey("035",436,128)
+ Gui, +AlwaysOnTop +ToolWindow
+ Gui, Show, y%yposition% w776 h200 NoActivate, NEO-Bildschirmtastatur (neu!)
+ BSTNguiErstellt := 1
+ BSTNUpdate()
+ BSTNalwaysOnTop := 1
+ }
+}
+
+BSTNToggleAlwaysOnTop() {
+ global
+ if (BSTNalwaysOnTop) {
+ Gui, -AlwaysOnTop
+ BSTNalwaysOnTop := 0
+ } else {
+ Gui, +AlwaysOnTop
+ BSTNalwaysOnTop := 1
+ }
+}
+
+CharProc_BSTNt() {
+ global
+ ; Bildschirmtastatur Ein/Aus
+ BSTNToggle()
+}
+
+CharProc_BSTNA() {
+ global
+ ; Bildschirmtastatur AlwaysOnTop
+ if (BSTNguiErstellt)
+ BSTNToggleAlwaysOnTop()
+}
|