GetRectEditor

Синтаксис

Function GetRectEditor(ByVal gadget As Long, ByVal rect As RECT Ptr) As integer

Описание

Получает действительные размеры редактируемой части EditorGadget. Они могут меняться в зависимости от изменения размера гаджета, его стиля(например при появлении\изчезании Scroll )

Параметры

gadget - номер гаджета

rect - адрес структуры RECT

Платформы

Windows

Пример

#Include "window9.bi"
Dim As integer event
Dim As Hwnd hwnd
hwnd=OpenWindow("1",300,10,500,500)
EditorGadget(1,10,10,300,300, "")
ButtonGadget(2,350,20,100,20,"GetRect")
#Define a & "," &
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=EventGadget Then
     If EventNumber = 2 Then
        Dim As RECT re
        GetRectEditor(1,@re)
        SetGadgetText(1, "Size=" & re.left a re.top a re.right a re.bottom)
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easy CHM and documentation editor