Charformat nach CFM_SUPERSCRIPT wieder normal setzten?

[DeddyH]

Ich habe nun eine allgemeinere Lösung erstellt. Ich hoffe, die Kommentare sind verständlich.

Delphi-Quellcode:

function ToggleSuperscript(RE: TRichEdit): Boolean;
var
  Formatierung: TCharFormat2;
begin
  if not Assigned(RE) then
    raise Exception.Create('Given RichEdit is not Assigned.');
  (* cbSize-Feld von TCharFormat2 muss vor Abfragen/Setzen befüllt werden *)  
  Formatierung.cbSize := SizeOf(Formatierung);
  (* Aktuelle Formatierung ermitteln *)
  SendMessage(RE.Handle, EM_GETCHARFORMAT, SCF_SELECTION,
    integer(@Formatierung));
  (* Falls der selektierte Text nur teilweise hochgestellt ist, enthält
     das dwMask-Feld das CFM_SUPERSCRIPT-Flag NICHT, daher setzen wir es 
     vorsichtshalber. *)
  Formatierung.dwMask := Formatierung.dwMask or CFM_SUPERSCRIPT;
  (* Nun negieren wir den ermittelten Wert... *)
  Formatierung.dwEffects := Formatierung.dwEffects xor CFE_SUPERSCRIPT;
  (* ...und setzen die neue Formatierung. Kommt 0 zurück, hat das nicht 
     funktioniert. Man kann die Funktion auch noch dahingehend ausbauen,
     dass sie den Fehlercode zurückgibt, dann eben DWORD statt Boolean. *)
  Result := SendMessage(RE.Handle, EM_SETCHARFORMAT, SCF_SELECTION,
    integer(@Formatierung)) <> 0;
end;