Function WindowClientHeight(ByVal hWin As HWND) As Integer
Функция возвращает высоту клиентской области окна
hWin - хендл окна
Windows , Linux
#Include "window9.bi"
Var hwnd= OpenWindow("",20,15,200,200)
UpdateInfoXserver()
SetWindowText(hwnd,WindowClientwidth(hwnd)&"x"& WindowClientHeight(hwnd))
Do
Var event=WaitEvent()
If Event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Free Web Help generator