sub WindowBounds(ByVal hWin As HWND, byval MinimalWidth As Long ,ByVal MinimalHeight As Long, byval MaximalWidth As Long, ByVal MaximalHeight As long)
Функция ограничивает пользовательское изменение размеров окна по ширине и(или) высоте
hWin - хендл окна
MinimalWidth - минимальная ширина
MinimalHeight - минимальная высота
MaximalWidth - максимальная ширина
MaximalHeight - максимальная высота
Windows , Linux
#Include "window9.bi"
Dim As Integer event
var hwnd=OpenWindow("Окно 1",20,15,200,200)
CenterWindow(hwnd)
WindowBounds(hwnd,200,200,200,200)
Do
event=WaitEvent()
If Event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator