TRichEdit-ben lévő szöveg háttérszínének megadása

Az egyszerű használat kedvéért most is létrehozunk egy eljárást, mellyel könnyedén elvégezhetjük a kívánt beállítást. A SetBackgroundColor eljárás első paraméterében adjuk meg a kezelendő TRichEdit-et, majd másodikként egy TColor színt. Az eljárás az aktuálisan kijelölt szövegre állítja be a kívánt háttérszínt.

Ehhez egy EM_SETCHARFORMAT üzenetet kell küldenünk az alkalmazásnak, melyben egy CHARFORMAT2 típusú, megfelelően feltöltött struktúrát adunk át.

E struktúra dwMask mezője a CFM_BACKCOLOR konstanst kell tartalmazza, mert ettől kezdve kerül értelmezésre a crBackColor mező, amiben a kívánt háttérszín adható meg.

procedure SetBackgroundColor(re: TRichEdit; color: TColor);
var
  pf: CHARFORMAT2;
begin
  FillChar(pf, SizeOf(CHARFORMAT2), 0);
  pf.cbSize:=SizeOf(CHARFORMAT2);
  pf.dwMask:=CFM_BACKCOLOR;
  pf.crBackColor:=color;
  SendMessage(re.Handle, EM_SETCHARFORMAT, SCF_SELECTION, Longint(@pf));
end;

Az eljárás felhasználása előtt ne feledkezzünk meg arról, hogy a TRichEdit-ben legyen kijelölt szöveg terület. Ehhez a SelStart és a SelLength property-ket használhatjuk.

procedure TForm1.FormCreate(Sender: TObject);
begin
  RichEdit1.SelStart:=0;
  RichEdit1.SelLength:=24;
  SetBackgroundColor(RichEdit1, clYellow);
end;