GetLineCountEditor

Синтаксис

Function GetLineCountEditor(ByVal gadget As Long) As Integer

Описание

Возвращает кол-во строк в EditorGadget

Параметры

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer event
dim as HWND hwnd
Dim As String drawst
hwnd=OpenWindow("1",300,10,460,400)
EditorGadget(1,10,10,300,300,"EditorGadget")
ButtonGadget(2,320,10,100,30,"GetCountLine")
Var font=loadfont("Arial",36)
Do
event=WaitEvent()
If event=EventClose Then End
If event=EventGadget  Then
 If EventNumber=2 Then
  WindowStartDraw(hwnd,320,50,100,60)
   FillRectDraw(10,10,&hf0f0f0)
   RoundDraw(0,0,100,55,,&hfff000)
   FontDraw(font)
   Var tt=GetLineCountEditor(1)
   If tt < 10 Then
    drawst="00"&tt
   ElseIf tt < 100 Then
    drawst= "0"&tt
   Else
    drawst= ""&tt
   EndIf
   TextDraw(10,0,drawst ,-1,&hff)
  StopDraw
 EndIf
EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator