| 1 | BSTguiErstellt := 0 |
|---|
| 2 | BSTalwaysOnTop := 1 |
|---|
| 3 | BSTcapsChars := 0 |
|---|
| 4 | |
|---|
| 5 | if (FileExist("ResourceFolder")<>false) { |
|---|
| 6 | FileInstall,ebene1.png,%ResourceFolder%\ebene1.png,1 |
|---|
| 7 | FileInstall,ebene1Caps.png,%ResourceFolder%\ebene1Caps.png,1 |
|---|
| 8 | FileInstall,ebene2.png,%ResourceFolder%\ebene2.png,1 |
|---|
| 9 | FileInstall,ebene2Caps.png,%ResourceFolder%\ebene2Caps.png,1 |
|---|
| 10 | FileInstall,ebene3.png,%ResourceFolder%\ebene3.png,1 |
|---|
| 11 | FileInstall,ebene4.png,%ResourceFolder%\ebene4.png,1 |
|---|
| 12 | FileInstall,ebene5.png,%ResourceFolder%\ebene5.png,1 |
|---|
| 13 | FileInstall,ebene6.png,%ResourceFolder%\ebene6.png,1 |
|---|
| 14 | } |
|---|
| 15 | |
|---|
| 16 | CP3F1 := "P__BSTt" |
|---|
| 17 | CP3F8 := "P__BSTA" |
|---|
| 18 | |
|---|
| 19 | BSTSwitch(Eb) { |
|---|
| 20 | global |
|---|
| 21 | if (Eb <> BSTEbeneAlt) { |
|---|
| 22 | BSTeb := Eb |
|---|
| 23 | if (BSTcapsChars) { |
|---|
| 24 | if (BSTeb == "1") |
|---|
| 25 | BSTeb := "1C" |
|---|
| 26 | else if (BSTeb == "2C") |
|---|
| 27 | BSTeb := "2" |
|---|
| 28 | } |
|---|
| 29 | GuiControl,Show,Picture%BSTeb% |
|---|
| 30 | GuiControl,Hide,Picture%BSTEbeneAlt% |
|---|
| 31 | BSTEbeneAlt := Eb |
|---|
| 32 | } |
|---|
| 33 | } |
|---|
| 34 | |
|---|
| 35 | BSTToggle() { |
|---|
| 36 | global |
|---|
| 37 | if (BSTguiErstellt) { |
|---|
| 38 | BSTguiErstellt := 0 |
|---|
| 39 | Gui, Destroy |
|---|
| 40 | } else { |
|---|
| 41 | SysGet, WorkArea, MonitorWorkArea |
|---|
| 42 | yPosition := WorkAreaBottom - 230 |
|---|
| 43 | Gui, Color, FFFFFF |
|---|
| 44 | Gui, Add, Picture,AltSubmit x0 y0 vPicture1, % ResourceFolder . "\ebene1.png" |
|---|
| 45 | Gui, Add, Picture,AltSubmit xp+0 yp+0 Hidden vPicture1C,% ResourceFolder . "\ebene1Caps.png" |
|---|
| 46 | Gui, Add, Picture,AltSubmit xp+0 yp+0 Hidden vPicture2, % ResourceFolder . "\ebene2.png" |
|---|
| 47 | Gui, Add, Picture,AltSubmit xp+0 yp+0 Hidden vPicture2C,% ResourceFolder . "\ebene2Caps.png" |
|---|
| 48 | Gui, Add, Picture,AltSubmit xp+0 yp+0 Hidden vPicture3, % ResourceFolder . "\ebene3.png" |
|---|
| 49 | Gui, Add, Picture,AltSubmit xp+0 yp+0 Hidden vPicture4, % ResourceFolder . "\ebene4.png" |
|---|
| 50 | Gui, Add, Picture,AltSubmit xp+0 yp+0 Hidden vPicture5, % ResourceFolder . "\ebene5.png" |
|---|
| 51 | Gui, Add, Picture,AltSubmit xp+0 yp+0 Hidden vPicture6, % ResourceFolder . "\ebene6.png" |
|---|
| 52 | Gui, +AlwaysOnTop +ToolWindow |
|---|
| 53 | Gui, Show, y%yposition% w776 h200 NoActivate, NEO-Bildschirmtastatur |
|---|
| 54 | BSTEbeneAlt := 1 |
|---|
| 55 | BSTguiErstellt := 1 |
|---|
| 56 | BSTSwitch(EbeneNC) |
|---|
| 57 | BSTalwaysOnTop := 1 |
|---|
| 58 | } |
|---|
| 59 | } |
|---|
| 60 | |
|---|
| 61 | BSTToggleAlwaysOnTop() { |
|---|
| 62 | global |
|---|
| 63 | if (BSTalwaysOnTop) { |
|---|
| 64 | Gui, -AlwaysOnTop |
|---|
| 65 | BSTalwaysOnTop := 0 |
|---|
| 66 | } else { |
|---|
| 67 | Gui, +AlwaysOnTop |
|---|
| 68 | BSTalwaysOnTop := 1 |
|---|
| 69 | } |
|---|
| 70 | } |
|---|
| 71 | |
|---|
| 72 | CharProc__BSTt() { |
|---|
| 73 | global |
|---|
| 74 | ; Bildschirmtastatur Ein/Aus |
|---|
| 75 | BSTToggle() |
|---|
| 76 | } |
|---|
| 77 | |
|---|
| 78 | CharProc__BSTA() { |
|---|
| 79 | global |
|---|
| 80 | ; Bildschirmtastatur AlwaysOnTop |
|---|
| 81 | if (BSTguiErstellt) |
|---|
| 82 | BSTToggleAlwaysOnTop() |
|---|
| 83 | } |
|---|
