Code: Select all
hWnd = OpenWindow(0,0,0,800,600,"EditorGadget - Bilingual",#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
EditorGadget(1,10,10,780,500)
ButtonGadget(2, 10,560, 120, 25, "Switch Language")
fmt.PARAFORMAT
fmt\cbSize = SizeOf(PARAFORMAT)
fmt\dwMask = #PFM_ALIGNMENT;
fmt\wAlignment = #PFA_RIGHT
SendMessage_(GadgetID(1), #EM_SETPARAFORMAT, 0, @fmt)
keybd_event_(#VK_MENU,0,0,0)
keybd_event_(#VK_RSHIFT,0,0,0)
keybd_event_(#VK_RSHIFT,0,#KEYEVENTF_KEYUP,0)
keybd_event_(#VK_MENU,0,#KEYEVENTF_KEYUP,0)
SetActiveGadget(1)
Repeat
EventID = WaitWindowEvent()
Select EventID
Case #PB_Event_Gadget
Select EventGadget()
Case 2
LangFlag = LangFlag !1
If LangFlag = 0
keybd_event_(#VK_RCONTROL,0,#KEYEVENTF_EXTENDEDKEY,0)
keybd_event_(#VK_RSHIFT,0,#KEYEVENTF_EXTENDEDKEY,0)
keybd_event_(#VK_RSHIFT,0,#KEYEVENTF_KEYUP|#KEYEVENTF_EXTENDEDKEY,0)
keybd_event_(#VK_RCONTROL,0,#KEYEVENTF_KEYUP|#KEYEVENTF_EXTENDEDKEY,0)
Else
keybd_event_(#VK_LCONTROL,0,0,0)
keybd_event_(#VK_LSHIFT,0,#KEYEVENTF_EXTENDEDKEY,0)
keybd_event_(#VK_LSHIFT,0,#KEYEVENTF_KEYUP,0)
keybd_event_(#VK_LCONTROL,0,#KEYEVENTF_KEYUP,0)
EndIf
SetActiveGadget(1)
EndSelect
Case #PB_Event_CloseWindow
Quit = 1
EndSelect
Until Quit = 1
End