Sub CenterWindow(ByVal hWin As HWND)
Устанавливает окно по центру.
hWin - хендл окна , которое надо установить по центру
Windows , Linux
#Include "window9.bi"
Dim As HWND hwnd
hwnd=OpenWindow("1",30,30,100,100)
UpdateInfoXServer ' only for Linux
CenterWindow(hwnd)
Do
var event=WaitEvent()
If event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Easy EPub and documentation editor