Function WindowHeight(ByVal hWin As HWND) As Integer
Функция возвращает высоту окна
hWin - хендл окна
Windows , Linux
#Include "window9.bi"
Dim As Integer event
var hwnd=OpenWindow("Окно 1",20,15,200,200)
UpdateInfoXserver
SetWindowText(hwnd,Str(WindowWidth(hwnd) & "x" & WindowHeight(hwnd)))'см.в заголовке окна
Do
event=WaitEvent()
If Event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Free iPhone documentation generator