XProfan

- page 3 -

Penguin
Tux

merci pour den Tipp.

OS: Win XP/Debian
XProfan 10

Frank
Abbing

j'ai eh bien beobachtet, dass dans beiden Feldern pour chaque Tastendruck cela Eingabegebietsschema geändert wird.

Probier la fois cette Code, là sollte cela pas plus passer:
Kompilieren Marque Séparation

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

Fin

Dieter
Zornow

cela funktioniert mais seulement, si on seulement 2 Sprachen eingestellt hat, là es sich oui um une Rotation handelt. si on comment je 3 Sprachen installiert hat ca va de travers, weil ensuite avec 3 Layouts rotiert wird

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

mais ActivateKeyboardLayout() erwartet doch den paramètre des Tastaturlayouts, là rotiert eigentlich rien...
une bessere concept hab je derzeit aussi pas et peux es aussi pas wirklich testen.

Dieter
Zornow

@Frank

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

qui Funktion erwartet 0 ou bien 1 et allez ensuite zum ensuite zum prochain Layout. si je deinen Code teste venez allemande, englisch et Thai mais ne...aucune russisch. c'est pourquoi klappt es oui seulement avec 2 Sprachen

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

Richtig. dans dem le cas musst du aussi encore avec LoadKeyboardLayout() ou bien GetKeyboardLayoutList() travailler. là je es pas testen peux, erstelle je keinen Code, mais qui beiden API sembler mir très simpel anzuwenden trop son.

Stephan
Sonneborn

je häng mich ici la fois tour:

peux on avec ActivateKeyboardLayout(hKeyboardlayout&, Flag&) aussi un entier bestimmtes Layout aktivieren (ggf. aussi encore auparavant magasin, si es pas geladen wurde)?

Irgendwie pourrait cela wohl avec KLF_SETFORPROCESS aller comme Flag pour ActivateKeyboardLayout() aller.

avec 1 ou bien 0 comme Flag stellt on évident seulement dans qui liste aller installierten Layouts sur cela prochain bzw. vorherige Layout um.

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

allô Stephan!

magasin allez wohl per LoadKeyboardLayout mais quoi oui c'est ca la hâte car avant bzw.

je crois je comprends qui Frage pas so richtig. ^ ^

Stephan
Sonneborn

allô iF,

und dir im Prinzip toujours à russischen Textes bzw. en représentation.
j'ai une alten Freeware Schriftsatz trouvé, qui kyrillische marque dans den ersten 255 marque (alors pas im erweiterten Zeichensatz) abbildet.
en supplément muss mais chez qui Eingabe cela englische Tastaturlayout aktiviert volonté.

si on cela installiert hat, peux on avec ActivateKeyboardLayout(0,1) bzw. ActivateKeyboardLayout(0,0) zirkular avant ou bien zurück une pour dem anderen Zeichensatz aktivieren. cela allez zum une alphabetisch (si on auparavant sortiert hat) ou bien dans qui Reihenfolge des Anlegens.

je muss alors gezielt cela englische Tastaturlayout einschalten et auparavant vérifier, si es installiert ist.

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!

exposition la fois ca ici funktionierte chez mir sur Anhieb:

je hatte äöü eingetippt et typisch pour une us-clavier wurde ca dans ';[ mise en œuvre.

zwischenablage01.png	5 kB

Hochgeladen:	18.07.2012

Downloadcounter:
		Download

Stephan
Sonneborn

iF (18.07.12)

Ah!

exposition la fois ca ici funktionierte chez mir sur Anhieb:https://XProfan.com/files/ueeoi.png

je hatte äöü eingetippt et typisch pour une us-clavier wurde ca dans ';< mise en œuvre.

Super!
cela scheint ensuite qui Solution trop son.

comment lieu je cela originale Layout wieder un?
peux on là auparavant un Handle auslesen et puis wieder zurücksetzen?

Allerdings meckert Profan à, qui Funktion sei pas dans qui dll vorhanden. Ist qui pas dans qui USER32.dll deklariert?
Kompilieren Marque Séparation

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

Schöne Grüße aus Wittgenstein
von Stephan

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

19.07.2012 ▲

Dieter
Zornow

il y a LoadKeyboardLayoutA ou bien 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

19.07.2012 ▲