XProfan

- page 2 -

Penguin
Tux

cela pourrait naturellement son. fais je cela simple sur den UseFont besefehl?

OS: Win XP/Debian
XProfan 10

Dieter
Zornow

Du must sur Textdienste et Eingabesprachen russisch en supplément prendre, Windows zeigt ensuite dans qui Taskleiste un champ à, indem du simple qui Sprachen échanger peux aussi avec dem en supplément gehörenden Font. Es suffisant pas simple cela clavier Layout trop échanger. avec dem Taskleistentool de Windows allez qui Umschaltung simple et vite avec einem Klick. je fais cela avec allemande, Englisch et 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

cela cela avec dem Kästchen funktioniert sais je. Es était plan seulement qui Frage si cela un Schüler aussi changement peux.

OS: Win XP/Debian
XProfan 10

Frank
Abbing

avec diesem Code schaltest du Schonmal zum prochain Schema:
Kompilieren Marque Séparation

 $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

merci, mais cela hilft mir seulement dans gewissem Maße plus. cela Hauptproblem liegt immernoch y, dass je cet Schwarzen striche habe. Über UseFont ca va pas comment je mittlerweile gemerkt habe.

OS: Win XP/Debian
XProfan 10

Frank
Abbing

la hâte du den Dialogfont gesetzt, bevor du cela Modifier le champ de erstellst?
Kompilieren Marque Séparation

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

Penguin
Tux

quoi bleibt mir d'autre Übrig comme mich trop bedanken?

merci, pour deine Aider

je frage mich seulement justement comment on solch un Eingabefeld erstellt. qui Aider hat mir rien gebracht

OS: Win XP/Debian
XProfan 10

Frank
Abbing

tu peux un normales Éditer, un Richtextedit ou bien un Multiedit verwenden, en supplément gibt es dans qui Aider oui viele Beispiele. dans meinem Beispiel habe je oui aussi eines erzeugt.

Penguin
Tux

Ok, cela Modifier le champ de ist eh bien erstellt, cela Problem ist seulement, dass je es avec aucun mir einfallenden Funktion schaffe, cela beide Felder erzeugt volonté.

ici qui Code:
Kompilieren Marque Séparation

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)
Fin

OS: Win XP/Debian
XProfan 10

25.09.2008 ▲

Frank
Abbing

Hm, tu as oui mittendrin un Fin stehen...
Kompilieren Marque Séparation

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

Fin

25.09.2008 ▲

Penguin
Tux

eh bien car, lente wird es. cela zweite champ ist maintenant là, change je, vom Russischen ins allemand, schaltet zwar qui Discours um, mais es écrit immernoch dans kyrillischer Schrift. je muss chacun bouton zweimal drücken, avec cela je wieder normal écrivons peux.

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

OS: Win XP/Debian
XProfan 10

26.09.2008 ▲

@Penguin
Kleinigkeit am Rande:

si du WINDOWSTYLE 31 + 512 écris, hat cela la fenêtre qui Eigenschaften eines Dialog-Fensters et tu peux avec qui TAB-bouton entre den beiden Eingaben échanger (TAB-bouton = Iskey(9) )

26.09.2008 ▲