SetRectEditor

Синтаксис

Function SetRectEditor(ByVal gadget As Long, ByVal r As RECT Ptr) As integer

Описание

Устанавливает действительные размеры редактируемой части EditorGadget

Параметры

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

r - адрес структуры RECT, куда устанавливаются координаты

Платформы

Windows

Пример

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,500,500)
EditorGadget(1,10,10,300,300, "")
ButtonGadget(2,350,20,100,20,"SetRect")
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=EventGadget Then
     If EventNumber = 2 Then
        Dim As RECT re
        re.right=50
        re.bottom=50
        SetRectEditor(1,@re)
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free Web Help generator