GetModifyEditor

Синтаксис

Function GetModifyEditor(ByVal gadget As Long) As Integer

Описание

Возвращает, изменялся ли текст в редакторе с момента установки функцией SetModifyEditor флага 0

Параметры

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Hwnd hwnd
Dim As integer event
hwnd=OpenWindow("1",300,10,500,500)
EditorGadget(1,10,10,300,300, "Editor")
SetModifyEditor(1,0)
ButtonGadget(2,350,20,100,20,"Test")
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=EventGadget Then
     If EventNumber = 2 Then
        If GetModifyEditor(1)=0 Then
           MessBox("","No Changed")
        Else
           MessBox("","Changed")
        EndIf
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create EPub books