Font-Einstellung wirkt nicht /Wie prüft man besser ob in einem Stück markierten Text ein Feld enthalten ist, ohne den Cursor zu verschieben?

CurrAttr ändert den aktuellen Schreibmodus. Der kann sich aber jederzeit wieder ändern, je nach geladenem text.

Wenn man text markiert zeigt die toolbar den font(attribute di im markierten text gleich gesetzt sind.

Evtl. wollen Sie ja den Default font setzen?

// Default - for text which does not use any attributes

WPRichText1.DefaultAttr.SetFontName('Courier New');

WPRichText1.DefaultAttr.SetFontSize(16);

// Writing mode - the current mode

WPRichText1.WritingAttr.SetFontName('Courier New');

WPRichText1.WritingAttr.SetFontSize(16);

Sobald Sie klicken werden die Attribute an der Cursorposition ausgelesen. Es sollte so wie erwartet funktionieren, wenn Sie erst klicken und dann die Attribute ändern.

Wenn Sie etwas in der Toolbar ändern sollte die Cursor Position dort bleiben wo sie ist.

Intern passiert nicht anderes als CurrAttr.FontSize := ...

Wenn der Cursor springt, passiert vermutlich ein neu laden des Textes. Ist das ein DB control oder sind events am Werk?

Das ist so nicht gewollt und passiert in meinen Tests auch nicht.

Evtl. wird ein SetFocusValues ausgeführt in einem anderen event oder der Cursor platziert.

Beim Verstellen in der Toolbar darf dieser code in WPRTEDefs nicht ausgeführt werden:

procedure TWPRTFDataCursor.GetCharAttr(Lock : TThreeState = tsIgnore);

Ich würde zum Finden des Problems dort einen breakpoint platzieren (erfordert compiler symbol WPDEBUG) und dann in der Toolbar etwas verstellen.

Wenn dann der Break kommt, weiss man durch den Aufrufstack, wieso das passiert.

Den cursor in KeyPress o.ä. zu verändern ist immer problematisch. Wenn man es aber doch tun muss, dann nicht SelStart oder CPPosition verwenden, da diese properties an das user interface gebunden sind. Man kann direkt TextCursor.postion verändern, das ist eine low level funktion.

Man kann aber auch auf ActiveParagraph zugreifen um dort den Text zu prüfen. All die LowLevel routinen sind immer ok.

Grundsätzlich kann man Felder ja schützen:

ProtectedProp := [ppIsInsertpoint,ppProtectSelectedTextToo]

oder

[ppIsInsertpoint,ppIsMergedText,ppProtectSelectedTextToo]

was dann auch den Feldinhalt, nicht nur die Marken schützt.

Wenn Sie aber die Objekte in einer Selektion prüfen wollen geht das so:

WPRichText1.TextCursor.CallForSelectedText(nil, [], nil, nil, TextObjCallback);

mit den folgenden event handler

procedure TForm1.TextObjectCallback(Sender: TObject; txtobj: TWPTextObj;

Par: TParagraph; posinpar: Integer; var Abort: Boolean);

begin

...

end;

Übrigens - FieldAtCP ist eine sehr komplexe funktion, die auch prüft ob sich der Cursor innerhalb eines Feldes befindet. Da dafür auch in vorangegangen Absätzen gesucht wird, kann dies sehr lange dauern, vor allem wenn kein Feld gefunden wird.

In einer Schleife könnte man ObjAtCP verwenden, das schaut wirklich nur an einer Position nach.

Statt SelStart und SelLength ist es effektiver gleich GetSelPosLen zu verwenden, oder noch besser, gleich mit absatz zeigern arbeiten:

TextCursor.GetBlockStart, TextCursor.GetBlockEnd.

Beispiel:

var spar, epar : TParagraph;
 spos, epos, e : Integer;
begin
   spar := WPRichText1.TextCursor.GetBlockStart(spos);
   epar := WPRichText1.TextCursor.GetBlockEnd(epos);
   while spar<>nil do
   begin
      if spar=epar then e := epos else e := spar.CharCount;
      while spos<e do
      begin
        while spos<epos do
        begin
          if (spar.ObjectRef[spos]<>nil) and (spar.ObjectRef[spos].ObjType=wpobjMergeField) then
          begin
             ShowMessage('We found a field');
             exit;
          end;
          inc(spos);
        end;
      end;
      if spar=epar then break else spar := spar.Next;
      spos := 0;
   end;