PureBoard

Verfasst: **06.07.2009 20:51**

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

Verfasst: **06.07.2009 20:55**

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

Ich hoffe ich hab dich richtig verstanden ?

Verfasst: **06.07.2009 20:56**

X360 Andy hat geschrieben:length = Lof(0)
FileSeek(0, length)

Ich hoffe ich hab dich richtig verstanden ?

File <> StringGadget

Verfasst: **06.07.2009 21:02**

Josef Sniatecki hat geschrieben: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

Verfasst: **06.07.2009 21:06**

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.

Verfasst: **06.07.2009 21:09**

... 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

Verfasst: **06.07.2009 21:20**

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

Verfasst: **06.07.2009 21:22**

X360 Andy hat geschrieben:Sowas ?

Josef Sniatecki hat geschrieben: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

Verfasst: **06.07.2009 21:24**

Ich gebs auf

Verfasst: **06.07.2009 21:31**

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

PureBoard

Text am Ende einfügen

Text am Ende einfügen

Re: Text am Ende einfügen