EditorGadget - Bug oder Userproblem?

[ts-soft]

Hmm, jetzt habe ich den ganzen Tag ohne Erfolg rumgebastelt

Hier mal in 3 Min. hingekratzt

Code: Alles auswählen

Global action.i

Procedure action()
  Static i

  i + 1
  If i = 21
    i      = 0
    action = #False
  EndIf

  If action
    AddGadgetItem(0, -1, "Zeile " + Str(i))
    Debug i
    SendMessage_(GadgetID(0), #EM_SCROLL, #SB_BOTTOM, 0)
  EndIf



EndProcedure


If OpenWindow(0, 0, 0, 200, 250, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  SetTimer_(WindowID(0), 0, 500, 0)
  EditorGadget(0, 10, 10, 180, 190)
  ButtonGadget(1, 10, 210, 50, 20, "Action!", #PB_Button_MultiLine)

  Repeat
    EventID = WaitWindowEvent()



    If EventID = #WM_TIMER
      If action
         action()
      EndIf
    EndIf
    
    If EventID = #PB_Event_Gadget

      Select EventGadget()
        Case 1
           action = #True

      EndSelect

    EndIf

  Until EventID = #PB_Event_CloseWindow

EndIf

Die restlichen Feinheiten kannste ja noch selbst einbauen, ist hier fixiert
auf 20, das schaffste aber

Gruß

Thomas

// edit
mix aus HeXORs code und meinem sollte dem gewünschtem entsprechen

[netzer]

Hmm... also, das ist ja nun wirklich ein triviales Problem, was machst du denn, wenn es wirklich mal komplex wird?

Hmm, dann bemühe ich das Forum...

Nee, im Ernst: arbeite nicht so oft mit PB, obwohl es eigentlich Spaß macht. Nutze im ersten Schritt immer F1 (Hilfe ). Leider ist die bei solchen "trivialen Problemen" nicht so hilfreich. Und mit der Suchfunktion im Forum habe ich auch nicht das Richtige gefunden.

Somit bin ich hier gelandet...

Trotzdem vielen Dank (auch an ts-soft)

Gruß vom Netzer