Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by bcvs,
12. Dez 2019
Hallo, ich hole dieses Thema noch mal hervor, weil jetzt eine andere Lösung habe. Vielleicht interessiert es ja jemanden.
Meine oben genannte Lösung mit den geschützten Absatzmarken-Zeichen im Richedit lief unter Delphi 10.2 nicht mehr korrekt. Hier wurden teilweise die falschen Zeichen geschützt und beim Tippen kam alles durcheinander. Habe erst lange nach der Ursache gesucht und verfolge...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by bcvs,
21. Jan 2014
Nachtrag: Ich habe zum Test eine Edit-Komponente gemacht, die WM_Copy abfangen soll. Leite ich diese Komponemte von TCustomMemo ab, funktioniert alles, wie gewünscht. Wird von TCustomRichEdit abgeleitet, kommt die wm_copy-Message anscheinend nicht bei der Komponente an.
TCustomRichEdit ist selbst auch von TCustomMemo abgeleitet, also passiert anscheined irgendetwas in TCustomRichEdit, was mich...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by bcvs,
21. Jan 2014
So, jetzt habe ich eine Komponente daraus gemacht. Funktioniert soweit ganz gut, allerdings will ich noch das Copy/Paste abfangen, um nur den Text ohne die Absatzmarken in die Zwischenablage zu kopieren.
Also habe ich mir sowas gedacht:
type
TMyRichEdit = class(TCustomRichEdit)
private
{ Private-Deklarationen }
procedure WMCopy(var Message: TMessage); message WM_Copy;
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by bcvs,
20. Jan 2014
Danke, aber Tabulatoren sind momentan noch nicht gefragt, evtl. später.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by bcvs,
20. Jan 2014
Vielen Dank für den Hinweis mit dem geschützten Bereich im TRichedit.
Damit habe ich das jetzt implementiert. Für die Entfernung des Schutzes muss man einfach in OnProtectChange das AllowChange entsprechend setzen.
Im OnChange werden die Absatzmarken eingefügt und gleich geschützt. Dann musste ich noch in OnSelectionChange einige Cursorbewegungen abfangen und abändern, damit der Cursor sich...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by bcvs,
17. Jan 2014
Hallo zusammen,
Ich habe ein einfaches TMemo, in dass ein bischen Text eingegeben wird. Jetzt will ein Kunde seine Zeilenumbrüche besser im Griff haben und wünscht sich Absatzmarken, wie man sie sich z.B. in Word anzeigen lassen kann. Ich könnte natürlich alle #10#13 im Memo.text durch #10#13#183 ersetzen, aber dann habe ich das Absatzzeichen als editierbares Zeichen im Memo drin, was ja auch...