PasteEditor

Синтаксис

sub PasteEditor(ByVal gadget As Long, ByRef text As String, ByVal param As Integer=1)

Описание

Вставляет текст в место где находится курсор

Параметры

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

text - текст для вставки

param - (только для windows) параметр, может быть:
TRUE - разрешает возможную операцию отмены после вставки
FALSE - запрещает возможную операцию отмены после вставки

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim shared As integer event,ToolBar
Dim As HWND hwnd
hwnd=OpenWindow("1",300,10,240,290)
EditorGadget(1,10,10,200,200)
ButtonGadget(2,10,220,100,30,"Вставить текст")
Do
  event= WaitEvent()
  If event=EventClose Then End
  If event=EventGadget Then
     Select Case EventNumber
        Case 2
           PasteEditor(1,GetClipBoardText)' Paste
     End Select
  EndIf
Loop

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