Readonlyeditor

Синтаксис

Sub Readonlyeditor(Byval gadget As Long, Byval ReadOnlyflag As Integer=0)

Описание

Устанавливает режим ввода для пользователя в редакторе

Параметры

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

ReadOnlyflag - флаг, может быть:
0 - нормальный режим
1 - только для чтения

Платформы

Windows , Linux

Пример

#include "window9.bi"
Dim As Integer Event
Openwindow("1",300,10,500,400)
Editorgadget(1,10,10,300,300, "")
Buttongadget(2,350,20,100,20,"Нормальный")
Buttongadget(3,350,50,100,20,"Для чтения")
Do
  Event=Waitevent()
  If Event=Eventclose Then End
  If Event=Eventgadget Then
     If Eventnumber=2 Then
        Readonlyeditor(1,0)
     Elseif Eventnumber=3 Then
        Readonlyeditor(1,1)
     Endif
  Endif
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free Kindle producer