del-str

OpenWindow(0,100,100,520,280,"Удалялка строк",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
Enumeration
  #pole1
  #pole2
  #button
  #str
EndEnumeration
EditorGadget(#pole1, 10, 40, 190, 230)
For k=1 To 20
  txt$ = Str(k)
  AddGadgetItem(#pole1,-1,txt$)
Next
EditorGadget(#pole2, 330, 40, 190, 230)
ButtonGadget(#button, 210, 190, 100, 25, "Тыдыщ")
TextGadget(#PB_Any, 210, 40, 120, 20, "Удалить каждую")
StringGadget(#str, 210, 70, 100, 25, "3")
TextGadget(#PB_Any, 210, 100, 120, 20, "строку из поля 1")
TextGadget(#PB_Any, 10, 10, 100, 25, "Поле 1")
TextGadget(#PB_Any, 320, 10, 100, 25, "Поле 2")

Repeat
  ev = WaitWindowEvent()

  Select ev
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #button
          Select EventType()
            Case #PB_EventType_LeftClick
              ClearGadgetItems(#pole2)
              ;Str()
              i = Val(GetGadgetText(#str));  берем из поля номер строки которую надо удалить
              m = CountGadgetItems(#pole1)
              For k=0 To m ;Step -1
                If (k+1)%i = 0
                Else
                  Text$ = GetGadgetItemText(#pole1,k) ; почему-то теряется первый элемент???
                  AddGadgetItem(#pole2,k,text$)
                EndIf
              Next
          EndSelect
      EndSelect
  EndSelect
  ; если ивент вот такой, то значит юзер нажал на крестик и можно завершить цикл
Until ev = #PB_Event_CloseWindow