SizeY

Синтаксис

Function SizeY() As Integer

Описание

Функция выводит результат изменения размеров окна по высоте

Параметры

нет

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As hwnd hwnd
hwnd=OpenWindow("",10,10,200,200)
TextGadget(1,10,10,150,30,"Измените размер окна.")
function rr() As Integer
  Static As Integer aa,bb
  If aa <> SizeX Or bb<>SizeY then
     ? SizeX & "  " & SizeY
     aa=SizeX
     bb=SizeY
  EndIf
  Return TRUE
End Function
SetTimer(hwnd,1,15,Cast(Any Ptr,@rr))
Do
  Var event=WaitEvent
  Select Case event
     Case EventClose
        End
  End Select
Loop

Created with the Personal Edition of HelpNDoc: Free help authoring environment