XProfan

- Page 3 -

Penguin
Tux

thanks for Tipp.

OS: Win XP/Debian
XProfan 10

Frank
Abbing

I have now watch, that in both Feldern to each Tastendruck the Eingabegebietsschema changed becomes.

Probier time this code, there ought to not More occur:
Compile Mark Separation

Def ActivateKeyboardLayout(2)!"USER32","ActivateKeyboardLayout"
Def IsFocus(0)!"USER32","GetFocus"
Def &VK_FLAGSR 1 Tastenlayout Russisch
Def &VK_FLAGSD 0 Tastenlayout Deutsch
Declare edit1&,edit2&,text$,x&,y&
WINDOWSTYLE 31+512
Window 0,0-0,1024
Windowtitle "Deutsch - Russisch"
Window 0,0-%maxx,%maxy
UseIcon "Gesicht"
Usefont "Arial",20,0,0,0,0
SetDialogFont 1
edit1& = @Create("MultiEdit",%hWnd,"Russisch",10,10,1000,320)
edit2&=Create("MultiEdit", %hWnd, "Deutsch", 10, 370, 1000, 320)
x&=IsFocus()
y&=0

While 1

    WaitInput
    Case %key=2:Break
    Inc y&

    If x&<>IsFocus()

        x&=IsFocus()
        y&=0

    EndIf

    If ((%GetFocus=edit1&) and (y&=0))

        ActivateKeyboardLayout(0, &VK_FLAGSR)

    ElseIf ((%GetFocus=edit2&) and (y&=0))

        ActivateKeyboardLayout(0, &VK_FLAGSD)

    EndIf

Endwhile

End

Dieter
Zornow

the functions but only, if one only 2 Languages tuned has, there it itself Yes circa a Rotation deals. If one How I 3 Languages installs has goes it schief, because then with 3 Layouts rotate becomes

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Frank
Abbing

but ActivateKeyboardLayout() expects still whom Parameter the keyboard layout, there rotate really nothing...
an better idea Have I presently neither and can it neither really testing.

Dieter
Zornow

@Frank

HKL_NEXT
Selects the next locale identifier in the circular list of loaded locale identifiers maintained by the system.
HKL_PREV
Selects the previous locale identifier in the circular list of loaded locale identifiers maintained by the system.

The function expects 0 or 1 and goes then to then to next Layout. If I your code teste comes german, english and Thai but no russian. therefore works it Yes only with 2 Languages

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Frank
Abbing

correctly.. in the drop must You too yet with LoadKeyboardLayout() or GetKeyboardLayoutList() works. Since I not testing can, create I none code, but the both API shine me very simply anzuwenden To his.

Stephan
Sonneborn

I häng me here time dran:

Can with ActivateKeyboardLayout(hKeyboardlayout&, Flag&) too one integrally bestimmtes Layout enable (ggf. too yet before loading, if it not loaded watts)?

somehow could the well with KLF_SETFORPROCESS weg as Flag for ActivateKeyboardLayout() weg.

with 1 or 0 as Flag position one evident only in the list all installierten Layouts the next or. previous Layout circa.

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

Hello Stephan!

loading goes well by LoadKeyboardLayout but what very have because to or.

I faith i see The question not so correctly.. ^^

Stephan
Sonneborn

Hello iF,

It's all right in the principle still around the russian Texts or. its statement.
I have a middle-aged Freeware Schriftsatz found, the kyrillische characters into first 255 characters (means not advanced Zeichensatz) abbildet.
moreover must but with the input the english Tastaturlayout activate go.

If to the installs has, can with ActivateKeyboardLayout(0,1) or. ActivateKeyboardLayout(0,0) zirkular to or back a to the others Zeichensatz enable. the goes to that a alphabetical (if one before sortiert has) or in the Order the Anlegens.

I must means aimed the english Tastaturlayout on and before Verify, whether it installs is.

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

Ah!

look time this here funktionierte by me on attempt:

I had äöü eingetippt and typical for a us-keyboard watts this in ';[ umgesetzt.

zwischenablage01.png	5 kB

Hochgeladen:	07/18/12

Downloadcounter:
		Download

Stephan
Sonneborn

iF (18.07.12)

Ah!

look time this here funktionierte by me on attempt:https://XProfan.com/files/ueeoi.png

I had äöü eingetippt and typical for a us-keyboard watts this in ';< umgesetzt.

super!
the shining then The Solution To his.

How place I the originale Layout again?
Can there before a handle read and hereon again zurücksetzen?

though bleats Profan on, The function be not in the dll present. is The not in the USER32.dll declared?
Compile Mark Separation

DEF LoadKeyboardLayout(2) !"USER32","LoadKeyboardLayout"

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

07/19/12 ▲

Dieter
Zornow

there's LoadKeyboardLayoutA or LoadKeyboardLayoutW

XProfan X2
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

07/19/12 ▲