Dokumentiertes Beispiel für ein Editor (Tutorial - Editor)

[Falko]

Sorry, das ich da zwischen laber.
Ich finde, MK-Soft hat es gut gemeint und mit seinem Beispiels-Editor
gute Arbeit für ein Tut geleistet.

Zum einen ist der Aufbau wichtig. Danach eine kurze Beschreibung. Bei Fragen von Anfängern, kann man nach und nach Verbesserungen und
Erweiterungen hinzufügen.

Die API-Hilfe, die in PB leider unumgänglich ist, sollte sich jeder Anfänger zu Gemüte nehmen. Vorraussetzung ist Englisch!

Anstelle nur Kritiken hier reinzustellen, wäre eine Unterstützung zur Beschreibung eines Tuts hierzu sehr hilfreich.

Ich hoffe es fühlt sich jetzt keiner angegriffen.

Grüße ...Falko

[mk-soft]

Update v1.04 (Seite 1)
Programm optimierung. Erweitere Kommentare kommen noch

FF

[Scarabol]

Hallo Leute,

habe mich kürzlich auch mit nem eigenen Editor befasst und wollte vorschlagen doch links den Rand zu erweitern um das markieren von ganzen Zeilen dem Benutzer zu erleichtern.

Dazu der Code:

Code: Alles auswählen

SendMessage_(Editor,#EM_SETMARGINS,#EC_LEFTMARGIN,MAKELONG(10,100))

Denke der Code erklärt sich von selbst.

Gruß
Scarabol

[mk-soft]

@Scarabol,

nur bei EditorGadget (RichEdit)

Probier noch mal den den Code aus mit umstellung auf EditorGadget.
Nimmt aus irgendein grund die Einstellung von linken Rand nicht an ???

FF

[edel]

em_setmargins funktioniert sowohl im Stringgadget als auch im Editorgadget.

[Falko]

@edel

>>em_setmargins funktioniert sowohl im Stringgadget als auch im Editorgadget.

Beispiel zum Stringgadget in PB4?

[mk-soft]

???

Code: Alles auswählen

Procedure.l MAKELONG(LowWord.l, HighWord.l)

  result.l = HighWord << 16 | LowWord
  ProcedureReturn result

EndProcedure

; *****************************************************************************

; Linken Rand einstellen
    SendMessage_(#Edit,#EM_SETMARGINS,#EC_LEFTMARGIN,MAKELONG(10,0))

geht bei mir nicht

[edel]

@edel

>>em_setmargins funktioniert sowohl im Stringgadget als auch im Editorgadget.

Beispiel zum Stringgadget in PB4?

Code: Alles auswählen

  Define.l hwnd = OpenWindow(0,0,0,500,500,"")
  
  CreateGadgetList(hwnd)
  
  Define.l hEdit = StringGadget(0,0,0,500,500,"",#ES_MULTILINE|#WS_HSCROLL|#WS_VSCROLL)
  
  SendMessage_(hEdit,#EM_SETMARGINS,#EC_LEFTMARGIN,100)
  
  Repeat
  Until WaitWindowEvent() = #WM_CLOSE

@mk-soft
Sendmessage_ ist ein API-Befehl und , der kann nichts mit der PBID anfangen.

Code: Alles auswählen

SendMessage_(Gadgetid(#Edit)[...]

[mk-soft]

GUTEN MORGEN ALLE MIT EINANDER. HABEN AUCH ALLE AUSGESCHLAFEN?

ich wohl nicht

FF

[Falko]

....
@mk-soft
Sendmessage_ ist ein API-Befehl und , der kann nichts mit der PBID anfangen.

Code: Alles auswählen

SendMessage_(Gadgetid(#Edit)[...]

Danke für das Beispiel, und warum soll das nicht mit PBID laufen?

Code: Alles auswählen

  OpenWindow(0,0,0,500,500,"")
 
  CreateGadgetList(WindowID(0))
 
  StringGadget(0,0,0,500,500,"",#ES_MULTILINE|#WS_HSCROLL|#WS_VSCROLL)
 
  SendMessage_(GadgetID(0),#EM_SETMARGINS,#EC_LEFTMARGIN,100)
 
  Repeat
  Until WaitWindowEvent() = #WM_CLOSE

Gruß Falko