Text am Ende einfügen

[Josef Sniatecki]

Hallo,

melde mich wieder nach einer langen Zeit (mein PC war geschrottet) und
komme dann auch gleich wieder mit einer Frage:

Ich besitze in einem Programm ein StringGadget mit den Flags
#WS_MULTILINE | #WS_READONLY | #VS_VSCROLL | #VS_HSCROLL
Es ist also fast so ähnlich wie ein EditorGadget.

Nun wie der Titel schon besagt, möchte ich einen Text an das Ende des
Gadgets einfügen. Natürlich könnte ich jetzt mit
"SetGadgetText(Gadget, GetGadgetText(Gadget) + Text)" kommen, doch
die Perfektionisten werden schon wissen, wiso ich diese Methode vermeide.

Ich habe schon im Code-Achiv nach einer Lösung gesucht, jedoch
erfolglos. Wüsste jemand einen Lösungsweg mittels WinAPI oder
Sonstiges?

Danke im Voraus
Gruß Josef

[X360 Andy]

length = Lof(0)
FileSeek(0, length)

Ich hoffe ich hab dich richtig verstanden ?

[TomS]

length = Lof(0)
FileSeek(0, length)

Ich hoffe ich hab dich richtig verstanden ?

File <> StringGadget

[Kiffi]

Es ist also fast so ähnlich wie ein EditorGadget.

wieso dann nicht gleich ein EditorGadget verwenden? Dann könntest Du
Dein Problem mit einem simplen AddGadgetItem() lösen.

Grüße ... Kiffi

[Josef Sniatecki]

AddGadgetItem ist aber nicht das Gleiche. Mit diesem Befehl erzeuge ich
eine ganz neue Zeile. Ich möchte aber einfach nur einen Text an das
Ende anhängen, ohne eine neue Zeile zu beginnen.

[Kiffi]

... aber EditorGadget wäre eine Option für Dich? Dann würde ich Dir was
zusammenbasteln (was mit dem StringGadget nicht funktionieren würde).

Grüße ... Kiffi

[X360 Andy]

Sowas ?

Code: Alles auswählen

 OpenWindow(0, 220, 0, 372, 140, "Add....", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar)

      EditorGadget(0, 10, 50, 330, 70)
      ButtonGadget(1, 260, 10, 80, 20, "Push")
      StringGadget(2, 10, 10, 230, 20,"")
      

Repeat
  event = WaitWindowEvent(50)
    If event = #PB_Event_Gadget
    If EventGadget() = 1
      new$ = GetGadgetText(2)
      gesamt$ +" " +new$
      AddGadgetItem(0, -1,gesamt$)
      ClearGadgetItems(0)
      AddGadgetItem(0, -1,gesamt$)
    EndIf
  EndIf
  
Until event = #PB_Event_CloseWindow

[Kiffi]

Sowas ?

Natürlich könnte ich jetzt mit
"SetGadgetText(Gadget, GetGadgetText(Gadget) + Text)" kommen, doch
die Perfektionisten werden schon wissen, wiso ich diese Methode vermeide.Sowas ?

@X360 Andy: einen Versuch hast Du noch

Grüße ... Kiffi

[X360 Andy]

Ich gebs auf

[Josef Sniatecki]

EditorGadget ist auch eine Option, ist schon richtig. Nur dann müsste ich mir
die Arbeit machen, ein "Copy, Patse und Cut"-Popup zu programmieren