Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#4

AW: Charformat nach CFM_SUPERSCRIPT wieder normal setzten?

  Alt 8. Mai 2011, 13:00
Vielleicht so?
Delphi-Quellcode:
procedure TFormTest.Hochstellen(Sender: TObject);
var
  Formatierung: TCharFormat2;
begin
  //RichEdit1.SelectAll; war nur zum Testen
  Formatierung.cbSize := SizeOf(Formatierung);
  SendMessage(RichEdit1.Handle, EM_GETCHARFORMAT, SCF_SELECTION,
    integer(@Formatierung));
  Formatierung.dwMask := Formatierung.dwMask or CFM_SUPERSCRIPT;
  Formatierung.dwEffects := Formatierung.dwEffects or CFE_SUPERSCRIPT;
  SendMessage(RichEdit1.Handle, EM_SETCHARFORMAT, SCF_SELECTION,
    integer(@Formatierung));
end;

procedure TFormTest.Aufheben(Sender: TObject);
var
  Formatierung: TCharFormat2;
begin
  //RichEdit1.SelectAll; war nur zum Testen
  Formatierung.cbSize := SizeOf(Formatierung);
  SendMessage(RichEdit1.Handle, EM_GETCHARFORMAT, SCF_SELECTION,
    integer(@Formatierung));
  Formatierung.dwMask := Formatierung.dwMask or CFM_SUPERSCRIPT;
  Formatierung.dwEffects := Formatierung.dwEffects and not CFE_SUPERSCRIPT;
  SendMessage(RichEdit1.Handle, EM_SETCHARFORMAT, SCF_SELECTION,
    integer(@Formatierung));
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen

Geändert von DeddyH ( 8. Mai 2011 um 13:16 Uhr) Grund: Das SelectAll auskommentiert
  Mit Zitat antworten Zitat