Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#9

Re: einzelne Zeichen FETT/kursiv etc machen

  Alt 29. Mai 2009, 14:47
Zitat von bomber901:
Delphi-Quellcode:
seltext1:=richedit1.seltext;
a:=POS(richedit1.seltext,richedit1.text);
b:=length(seltext1);
RichEdit1.SelStart := a-1; // Startposition der Markierung
RichEdit1.SelLength := b; // Ende der Markierung
RichEdit1.SelAttributes.Style := [fsbold]; // Markierung fett drucken
RichEdit1.SelLength := 0; // Markierung beenden
nun hab ich halt noch das Problem, dass die 1. reihenfolge des Markieten textes fett macht, Beispiel : wenn vom Wort: " HAHAHA"
die letzten 2 Buchstaben Markiert werden und der Button gedrückt wird, werden die ersten beiden Buchstaben Fett.

jemand eine idee wie man das umgehen kann oder wie ich halt wirklich immer genau die Stelle ermitteln kann an dem der text markiert ist, unabhängig vom vorherigen Text ?
Wie war das?
Zitat:
Programme gehorchen nicht deinen Intentionen sondern Deinen Befehlen?!
Wenn Du die "selectmarkierung " neu setzt ist das auch kein Wunder.
Delphi-Quellcode:
a:=POS(richedit1.seltext,richedit1.text);
...
RichEdit1.SelStart := a-1;
Gruß
K-H
  Mit Zitat antworten Zitat