SetModifyEditor

Синтаксис

sub SetModifyEditor(ByVal gadget As Long, ByVal Flag As long=0)

Описание

Устанавливает нужный флаг в буфер, который отлавливает изменения в редакторе

Параметры

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

Flag - флаг, может быть:
    0 - поставить как будто не было изменений
    1 - поставить как будто были изменения

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer hwnd,event
hwnd=OpenWindow("1",300,10,500,500)
EditorGadget(1,10,10,300,300, "Editor")
ButtonGadget(2,350,20,100,20,"Test")
ButtonGadget(3,350,50,100,20,"SetModify")
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
     ElseIf EventNumber=3 Then
        SetModifyEditor(1)
     EndIf
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Easily create Help documents