UpdateInfoXserver
Sub UpdateInfoXServer(iCountCicles As long = 10000)
На системе Linux основным коммутатором событий является X-server. Некоторые события , например обновление размеров, каким-то образом выполняются с микрозадержкой. Я постарался свести к минимуму использование этой функции, однако в справке много примеров с использованием данной функции. Возможно многие примеры будут хорошо работать и без использования данной функции , но я советую все же использовать данную функцию там , где это не критично для скорости выполнения программы. Функция UpdateInfoXserver создана, чтобы организовать небольшую задержку в программе , перед получением каких либо результатов или действий. Не нужно путать данную функцию с функцией SLEEP , здесь совсем другой принцип. Задача функции заставить работать цикл событий , обрабатывая пустые события, пока x-server linux обновит информацию.
iCountCicles - кол-во итераций цикла, которое будет установлено в цикле функции. Чем больше это значение , тем больше задержка и тем больше пустых событий будет отправлено и обработано
Linux
#Include "window9.bi"
Dim As HWND hwnd,hwnd1
hwnd=OpenWindow("Окно 1",10,10,500,500)
hwnd1=OpenWindow("Окно 2",10,10,500,500)
UpdateInfoXServer() ' для гарантии ставим сюда, чтобы изменения размеров прошли 100%
ResizeWindow(hwnd,,,,10) 'Изменяем последний параметр(высоту)
ResizeWindow(hwnd1,100,200,300,300) 'Изменяем все параметры окна
Do
var event=WaitEvent()
If Event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Free EPub producer