Нашел вот такой код закраски фона выбранного текста
| Код |
procedure RE_SetSelBgColor( RichEdit: TRichEdit; AColor: TColor );
var
Format: CHARFORMAT2;
begin
FillChar( Format, SizeOf( Format ), 0 );
with Format do
begin
cbSize := SizeOf( Format );
dwMask := CFM_BACKCOLOR;
crBackColor := AColor;
Richedit.Perform( EM_SETCHARFORMAT, SCF_SELECTION, Longint( @Format ) );
end;
end;
|
Все работает замечательно, но если после выполнения этой процедуры попытаться изменить размер или цвет шрифта в RichEdit
| Код |
REdit.Font.Size:= 20;
REdit.Font.Color:= clRed;
|
ни чего не происходит, шриф не меняется. Помогите разрулить эту проблему. |