Great but for TRichEdit

[limelect]

How to change for richedit?

  Form1.Rich1.SelAttributes.Color := clRed;
  Form1.Rich1.SelAttributes.Style := [fsBold];

I tried

TRichEdit= Class (Vcl.ComCtrls.TRichEdit);

TRichEditStyleHookColor = class(TRichEditStyleHook) private procedure UpdateColors; protected procedure WndProc(var Message: TMessage); override; public constructor Create(AControl: TWinControl); override; end;

if Control.Enabled then begin Brush.Color := TWinControlH(Control).Color; SelAttributes.Color:=TWinControlH(Control).Color;<<< dose not work FontColor := TWinControlH(Control).Font.Color;

[wantedxnn]

@limelect Instead using ... TRichEditStyleHookColor = class(TRichEditStyleHook) ...

use: ... TRichEditStyleHookColor = class(TScrollingStyleHook) ...