Функция InflateRect

Declare Function InflateRect Lib "user32.dll" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long

Платформа: Win 95/98, Win NT

InflateRect увеличивает или уменьшает размер прямоугольника. Значения для изменений добавлены к обеим его сторонам, так что в действительности ширина и\или высота увеличений прямоугольника двойное. Например, если Вы передаете 20 как x, левые и правые стороны будут оба расширены на 20, так что ширина будет увеличена на 40. Положительные значения увеличивают размер, в то время как отрицательные значения уменьшают это. Функция возвращает 0 в случае ошибка или 1 в успешном случае.

lpRect
Прямоугольник, чтобы изменить размер.
x
Значение для расширения левой и правой сторон. Положительные значения увеличивают ширину; отрицательные значения уменьшают.
y
Значение для изменений верхней и нижней границ. Положительные значения увеличивают высоту; отрицательные значения уменьшают.

Пример:

' Увеличим  ширину окна Form1  на 100, и сократим ее
' высоту на 50 используя ее прямоугольник.
Dim winrect As RECT  ' получим прямоугольник окна
Dim retval As Long  ' возвращаемое значение

retval = GetWindowRect(Form1.hWnd, winrect)  'получаем прямоугольник  Form1
retval = InflateRect(winrect, 50, -25)  ' Эти значения, добавленные к каждой стороне для изменения размеров
' Теперь измените окно на экране, чтобы соответствовать его новому прямоугольнику
retval = SetWindowPos(Form1.hWnd, 0, winrect.Left, winrect.Top, winrect.Right, winrect.Bottom, 0)

Схожие функции: OffsetRect
Категория: Прямоугольники

В начало.