Перерисовка RichEdit

[SanekIrk]

Хочу перерисовать RichEdit, на форуме покопался, нашел только через событие onDraw. Расскажите по подробней как оно работает.

[Alex Cones]

Перерисовать RichEdit? Зачем? Можно "обновить" его так: RichEdit1.Refresh; Кажись у него есть еще и Repaint.

[SanekIrk]

Мне надо например углы у него округлить или цвет рамки поменять.

[Alex Cones]

Так бы сразу и сказал. Два выхода - поставить другой компонент или поизвращаться на onPaint или onDraw, как там у него...

[Пепел Феникса]

новый компонент писать скорее всего нужно.

[Alex Cones]

Округлить углы рамки можно например таким способом: Поставить Border в none и поставить рисунок на фон, в котором нарисовать хотя витиевато-колецевато-округленные углы.
Рисунок фона - здесь

[SanekIrk]

Сообщение от Alex Cones

Округлить углы рамки можно например таким способом: Поставить Border в none и поставить рисунок на фон, в котором нарисовать хотя витиевато-колецевато-округленные углы.
Рисунок фона - здесь

Не плохая идея. Спасибо за ответ.

[SanekIrk]

Накопал компонент RichView. Есть описания на него?

[russian-stalker]

Экспериментируйте:

procedure MakeRounded(Control: TWinControl);
 var
   R: TRect;
   Rgn: HRGN;
 begin
   with Control do
   begin
     R := ClientRect;
     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);
     Perform(EM_GETRECT, 0, lParam(@r));
     InflateRect(r, - 5, - 5);
     Perform(EM_SETRECTNP, 0, lParam(@r));
     SetWindowRgn(Handle, rgn, True);
     Invalidate;
   end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin
makerounded(richedit1);
end;

[DomiNick]

Мне надо например углы у него округлить или цвет рамки поменять.

Ну... На крайний случай можно использовать sRichEdit (из набора AlphaSkins) - при некоторых скинах рамка бывает скруглённой или цветной...