Automatischer Zeilenumbruch bei Editor- oder StringGadget?

[Borstensohn]

Hallo erst mal,

ich bin total neu hier und auch ganz neu in PureBasic, und da ist auch schon gleich ein Problem aufgetaucht.

Wenn ich in anderen Programmiersprachen in Edit- oder Memofelder, oder wie sie auch immer sonst genannt werden, Text eingebe, bricht dieser an der Stelle, wo halt der rechte Rand des Feldes ist, automatisch um. Warum nicht bei PureBasic?

Wenn das nicht standardmäßig möglich ist, wie kann ich es selber programmieren? Also, der Benutzer tippt, sagen wir, 80 Zeichen ein, und danach wird auf den Anfang der nächsten Zeile gesprungen.

Ich hab wie verrückt in diesem und im englischen Forum gesucht, aber ich fand keine richtige Antwort. Falls ich was übersehen habe, bitte bedenkt, dass ich Neuling bin.

Bin gespannt auf Antworten, danke schon mal im Voraus.

Gruß
Borstensohn

[Christi]

Servus

Code: Alles auswählen

OpenWindow(0, 0, 0, 300, 300, #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Test")

CreateGadgetList(WindowID())
x = EditorGadget(0, 0, 0, 300, 300)
SendMessage_(x, #EM_SETTARGETDEVICE, 0, 0)

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

cu

[Borstensohn]

Danke für die schnelle Antwort, Christi!
In meiner Demo-Version funktioniert es zwar nicht, aber die Vollversion ist schon bestellt.

[Thorsten1867]

Man kann auch genauer festlegen, wann umgebrochen werden soll:

Code: Alles auswählen

Procedure.l Twip(mm.l)
  ProcedureReturn mm / (25.4/1440)
EndProcedure

OpenWindow(0, 0, 0, 300, 300, #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Test")

CreateGadgetList(WindowID())
x = EditorGadget(0, 0, 0, 300, 300)
; Umbruch nach 80mm
SendMessage_(x, #EM_SETTARGETDEVICE, GetWindowDC_(x), Twip(80))

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

[ts-soft]

@Thorsten1867
Nutzt Du immer noch PB3.xx?

[Kai]

Was mich viel mehr interessieren würde,
ob es auch beim StringGadget möglich ist,
hab vergeblich inner MSDN gesucht und nix gefunden.

[ts-soft]

Mit StringGadget gehts auf jeden fall nicht. (Bitte richtig interpretieren)
Bei Edit-Control mit MultiLine style bin ich mir nicht sicher, aber es geht wohl
nicht.

[Dark Skillu]

http://www.purebasic.fr/german/viewtopic.php?t=13250&

[Thorsten1867]

@Thorsten1867
Nutzt Du immer noch PB3.xx?

Sorry, habe den obigen Code kopiert und geändert. Hier in PB 4.10:

Code: Alles auswählen

Procedure.l Twip(mm.f)
  ProcedureReturn Int(mm * (1440/25.4))
EndProcedure

OpenWindow(0, 0, 0, 300, 300, "Test", #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)

CreateGadgetList(WindowID(0))
x = EditorGadget(0, 0, 0, 300, 300)
; Umbruch nach 80mm
SendMessage_(x, #EM_SETTARGETDEVICE, GetWindowDC_(x), Twip(80))

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

[Berti27]

Hallo!
Dieses Problem interessiert mich auch sehr. Habe es mal wohl sehr umständlich gelöst mit Font int fester Breite (Schreibmaschinenschrift) und Abfrage der Zeilenlänge sowie Leerzeichen. Also eine nicht wirklich gute Lösung!
Die angegebenen Codes funktionieren bei mir nicht. Verwende PB 4.10 in Windows und Linux.Compiler kennt den "SendMessage"-Befehl nicht.
Mit freundlichen Grüßen
Berti27