Меню

[Аlex]

Прошу прощения за очень тупые вопросы, но просто больше негде черпать инфу.
Как присвоить RichEdit стандартное Меню? В инспекторе и программно.
Как сделать какой-нить пункт Жирным шрифтом?

[Roof]

Кидаешь на форму PopupMenu из вкладки Standart. Кидаешь сам RichEdit. В PopupMenu создаешь нужные Items также в инспекторе. А у RichEdit в инспекторе есть такое свойство PopupMenu - там и выбираешь то, которое кинул на форму.

Ну а если программно, то вот

procedure TForm1.FormCreate(Sender: TObject);
var
it: TMenuItem;
begin
it:=TMenuItem.Create(PopupMenu1);
it.Caption:='0';
PopupMenu1.Items.Add(it);

it:=TMenuItem.Create(PopupMenu1);
it.Caption:='1';
PopupMenu1.Items.Add(it);

it:=TMenuItem.Create(PopupMenu1);
it.Caption:='Жирный пункт';
it.Default:= true;            //Для жирного пункта
PopupMenu1.Items.Add(it);

RichEdit1.PopupMenu:= PopupMenu1;

end;

Если пунктов меню немного, то можно так и оставить, а если их 10-20, то я советую в цикл засунуть и case в нем организовать.

[BOBAH13]

Знакомимся с Win Api GDI32. Он же TCanvas. И ставим для попапа OwnerDraw кажется так, и в событиях каждого пункта рисуем все что душе угодно.