Richedit Farbe ?

[turboPASCAL]

Auch das geht:

Delphi-Quellcode:

procedure ...
begin
  cp := RE.CaretPos;

  RE.Selstart  := 0;
  RE.Sellength :=   //...

  RE.SelAttributes.color := clRed;
  RE.SelAttributes.Size := 12; // <---<<<

  RE.Selstart := 0;
  RE.CaretPos := cp;
  RE.SelAttributes.Size  := RE.Font.Size;  // Zurücksetzen der Schriftgrösse
  RE.SelAttributes.Color := RE.Font.Color; // Zurücksetzen der Schriftfarbe
end;

RE = Richedit