XProfan

- Page 2 -

Penguin
Tux

the could naturally his. make I the simply over the UseFont besefehl?

OS: Win XP/Debian
XProfan 10

Dieter
Zornow

You must over Textdienste and Eingabesprachen russian moreover take, windows shows then in the Taskbar one area on, because You simply The Languages change can also with the moreover gehörenden Font. it will do not simply the keyboard Layout To change. with the Taskleistentool Windows goes The story simply and quick with a Click. I make with the german, english and 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

the with the the Kästchen functions white I. it was even only The question whether the one schoolboy too Change can.

OS: Win XP/Debian
XProfan 10

Frank
Abbing

of these code chid You Schonmal to that next schema:
Compile Mark Separation

 $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

thanks, but the help me only in gewissem Maße moreover. the Hauptproblem lying immernoch therein, I these black striche have. About UseFont goes not How I in the meantime Pinned have.

OS: Win XP/Debian
XProfan 10

Frank
Abbing

have you got whom Dialogfont staid, before You the Editfeld erstellst?
Compile Mark Separation

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

Penguin
Tux

what remaining me other Übrig as me To thank?

thanks, for your Help

I question me only straight How one such one Input prepares. The Help has me nothing brought

OS: Win XP/Debian
XProfan 10

Frank
Abbing

You can one normales Edit, one Richtextedit or one MultiEdit use, moreover there in the Help Yes many Examples. In my example have I indeed one created.

Penguin
Tux

OK, the Editfeld is now prepares, the trouble is only, I it with none me einfallenden function create, the both boxes created go.

here the code:
Compile Mark Separation

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

09/25/08 ▲

Frank
Abbing

Hm, you have Yes mittendrin one End stand...
Compile Mark Separation

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

09/25/08 ▲

Penguin
Tux

now because, slow becomes it. the second area is now there, change I, of russian in that Deutsche, toggles of course The Language circa, but it writes immernoch in kyrillischer Font. I must each Button twice pressing, so I again normal write can.

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

OS: Win XP/Debian
XProfan 10

09/26/08 ▲

@Penguin
Kleinigkeit on the Rande:

If you WINDOWSTYLE 31 + 512 write, has the window The properties one dialog-Fensters and You can with the TAB-Button between whom both Inputs change (TAB-Button = Iskey(9) )

09/26/08 ▲