Szeretnék richedit szerkesztőben a kijelölt szövegnek hátterét átállítani.
pl inverz hatáselérés,szürkitetett háttér.

És még esetleg bekeretezni...

Globális háttér állítás is érdekel.
TTextattributummal sok mindent lehet csinálni,de a háteret nem lehet módosítani.
Canvas-sal probáltam, de valami nem engedi, vissza áll alaphelyzetbe.

Delphi mintám volt:

uses ...,richedit;

procedure valami...
var X : TCharFormat2;
...
begin
X.cbSize := sizeof(tcharformat2);
sendmessage(richedit1.handle,EM_GETCHARFORMAT,1,longint(@x));
x.crbackColor := clyellow;
x.dwEffects := x.dwEffects and not($04000000);
x.dwMask := x.dwMask or $04000000;
sendmessage(richedit1.Handle,EM_SETCHARFORMAT,SCF_SELECTION,longint(@x));
...
end;


Ez a program részlet sárgára szinezi a kijelölt szöveget a Richedit-ben.

De Builder alatt csak ilyet találtam, hiányzik a háttér:

The CHARFORMAT structure contains information about character formatting in a rich edit control.

typedef struct _charformat {
UINT cbSize;
_WPAD _wPad1;
DWORD dwMask;
DWORD dwEffects;
LONG yHeight;
LONG yOffset;
COLORREF crTextColor;
BYTE bCharSet;
BYTE bPitchAndFamily;
CHAR szFaceName[LF_FACESIZE];
_WPAD _wPad2;
} CHARFORMAT;