RichEdit , RTF und Großbuchstaben

[himitsu]

Codegear hatte es mal geschafft Delphi von RichEdit 1.0 auf RichEdit 2.0 umzustellen, aber dann hatte sich da nichts mehr getan.
Bis RichEdit 1.0 oder ab RichEdit 3.0+ hättest du das Problem nicht. (Aus Sicht der Datenverwaltung sind diese Eigenschaften auch eher unnütz hinderlich)

Zitat:

CFE_ALLCAPS
Characters are all capital letters. The value does not affect the way the control displays the text. This value applies only to versions earlier than Microsoft Rich Edit 3.0.

CFE_SMALLCAPS
Characters are in small capital letters. The value does not affect how the control displays the text.

RichEdit.SelAttributes.ConsistentAttributes unterstützt kein CFM_ALLCAPS, aber du kannst das ja auch selber abfragen.
https://msdn.microsoft.com/de-de/lib.../bb787883.aspx

Delphi-Quellcode:

var Format: TCharFormat2;
Format.cbSize := SizeOf(TCharFormat2);
SendGetStructMessage(RichEdit.Handle, EM_GETCHARFORMAT, 1, Format, True);

Texte mit dieser Eigenschaft suchen und dann SelText := AnsiUpperCase(SelText);