Hallo,
warum ConsistentAttributes? Aus der
OH:
Zitat:
property ConsistentAttributes: TConsistentAttributes read GetConsistentAttributes;
Zeigt an, welche der Eigenschaften des TTextAttributes-Objekts innerhalb der aktuellen Auswahl im RTF-Steuerlement konsistent sind.
Bei nur einem selektiert Zeichen kann nicht viel konsistent/inkonsitent sein.
Mit Deinem Ansatz:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s :
string;
i : Integer;
c : TColor;
begin
RichEdit1.SelStart := i;
c := RichEdit1.SelAttributes.Color;
if c < $7FFFFFFF
then
Inc (c)
else
Dec (c);
s := '
';
for i := 1
to Length (RichEdit1.Text)
do
begin
RichEdit1.SelStart := i;
if c <> RichEdit1.SelAttributes.Color
then
begin
c := RichEdit1.SelAttributes.Color;
s := s + '
_' + ColorToString (c) + '
_'
end;
s := s + RichEdit1.Text [i]
end
end;
Sollte dann
Hallowelt! -> _gelb_Hallo_rot_welt! als Ergebnis kommen.
Gruß