XProfan

- Página 2 -

Penguin
Tux

Das podría natürlich ser. Mache Simplemente encima el UseFont besefehl?

OS: Win XP/Debian
XProfan 10

Dieter
Zornow

Usted must encima Textdienste y Eingabesprachen russisch dazu nehmen, Windows zeigt entonces en el Taskleiste una Feld a, indem du simplemente el Idiomas wechseln kannst auch con el dazu gehörenden Font. Lo genügt no simplemente el Tastatur Layout a wechseln. Mit el Taskleistentool de Windows va el Umschaltung simplemente y rápidamente con un Clic. Yo mache el con Alemán, Inglés y Thai.

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

Penguin
Tux

Das el con el Kästchen funktioniert weiß Yo. Lo war eben sólo el Cuestión si el una Schüler auch ändern kann.

OS: Win XP/Debian
XProfan 10

Frank
Abbing

Mit diesem Code schaltest du schonmal para nächsten Schema:
Kompilieren Marca Separación

 $H Windows.ph
~keybd_event(18, 0, 0, 0)  Alt
~keybd_event(16, 0, 0, 0) Shift
~keybd_event(16, 0, ~KEYEVENTF_KEYUP, 0)
~keybd_event(18, 0, ~KEYEVENTF_KEYUP, 0)
En

Penguin
Tux

Gracias, aber el hilft me sólo en gewissem Maße más. Das Hauptproblem liegt immernoch en él, dass Yo esta Schwarzen striche habe. Über UseFont es no Yo mittlerweile gemerkt habe.

OS: Win XP/Debian
XProfan 10

Frank
Abbing

Hast du el Dialogfont gesetzt, bevor du Das Editar campo erstellst?
Kompilieren Marca Separación

Usefont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1e>

Penguin
Tux

Was restos me más Übrig como mich a bedanken?

Gracias, para deine Ayuda

Yo frage mich sólo gerade cómo solch una Eingabefeld erstellt. El Ayuda ha me nichts gebracht

OS: Win XP/Debian
XProfan 10

Frank
Abbing

Usted puede una normales Editar, una Richtextedit oder una Multiedit uso, dazu hay en el Ayuda sí viele Beispiele. In mi Ejemplo Yo en efecto uno producido.

Penguin
Tux

Ok, el Editar campo es nun erstellt, el problema es sólo, dass Yo con keiner me einfallenden Función schaffe, el beide Felder producido voluntad.

Hier el Code:
Kompilieren Marca Separación

WINDOWSTYLE 31
Window 0,0-0,1024
Windowtitle "Deutsch - Russisch"
Window 0,0-%maxx,%maxy
UseIcon "Gesicht"
Eingabe Deutsch
Usefont "Arial",20,0,0,0,0
SetDialogFont 1
 $H Windows.ph
Declare Edit&
Cls
Edit& = @Create("MultiEdit",%hWnd,"Deutsch",10,10,1000,320)
WaitKey
End
Eingabe Russisch
Usefont "Arial",20,0,0,0,0
SetDialogFont 1
Def ActivateKeyboardLayout(2)!"USER32","ActivateKeyboardLayout"
Def &VK_FLAGSR 1 Tastenlayout Russisch
Def &VK_FLAGSD 0 Tastenlayout Deutsch
Declare edit&,text$
Cls
edit&=Create("MultiEdit", %hWnd, "", 10, 370, 1000, 320)
ActivateKeyboardLayout(0, &VK_FLAGSR)

While 1

    WaitInput
    Case %key=2:Break

Endwhile

ActivateKeyboardLayout(0, &VK_FLAGSD)
End

OS: Win XP/Debian
XProfan 10

25.09.2008 ▲

Frank
Abbing

Hm, du hast sí mittendrin una End posición...
Kompilieren Marca Separación

Def ActivateKeyboardLayout(2)!"USER32","ActivateKeyboardLayout"
Def &VK_FLAGSR 1 Tastenlayout Russisch
Def &VK_FLAGSD 0 Tastenlayout Deutsch
Declare edit1&,edit2&,text$,x&
WINDOWSTYLE 31
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)

While 1

    WaitInput
    Case %key=2:Break

    If %GetFocus=edit1&

        ActivateKeyboardLayout(0, &VK_FLAGSR)

    ElseIf %GetFocus=edit2&

        ActivateKeyboardLayout(0, &VK_FLAGSD)

    EndIf

Endwhile

End

25.09.2008 ▲

Penguin
Tux

Nun porque, langsam se lo. Das zweite Feld es ahora como, wechsel Yo, vom Russischen en el Deutsche, schaltet zwar el Lingua en, pero Escribe immernoch en kyrillischer Schrift. Yo muss jede Taste zweimal drücken, así Yo otra vez normal escribir kann.

Yo habe nun beobachtet, dass en beiden Feldern después de cada Tastendruck el Eingabegebietsschema geändert se.

OS: Win XP/Debian
XProfan 10

26.09.2008 ▲

@Penguin
Kleinigkeit al Rande:

Wenn du WINDOWSTYLE 31 + 512 schreibst, ha el Ventana el Características uno Diálogo-Fensters y du kannst con el TAB-Taste zwischen el beiden Eingaben wechseln (TAB-Taste = Iskey(9) )

26.09.2008 ▲