Доступность пункта Undo/Redo

[Ser11]

1) На форме есть TRichEdit, TPopupActionBar. Хочу сделать чтобы пункты меню Undo и Redo были доступны только тогда, когда были произведены изменения.
С кнопками "Вставить" и "Копировать" я разобрался сам. Для компонента TPopupActionBar в обработчик события OnPopup я написал вот этот код:

procedure TForm1.PopupActionBar1Popup(Sender: TObject);
begin
Cut.Enabled := RichEdit1.SelLength > 0;
Copy.Enabled := RichEdit1.SelLength > 0;
Paste.Enabled := Clipboard.HasFormat(CF_TEXT);
end;

Возможно ли подобным образом проделать тоже самое и с Undo и Redo?

2) Для кнопки "Выделить все" я написал такой код:

SelectAllPopup.Enabled := RichEdit1.SelStart > 0;
но мне кажется что он немного кривоват

[mutabor]

1) Отчего же нельзя, можно. Но нужно историю хранить. Когда подошли к концу истории - делаем пункт Повторить неактивным, подошли к началу - делаем Отменить не активным.

2) По логике этот пункт должен быть активен когда есть что выделять. Просто проверяйте или документ не пустой, и все. Например так:
if RichEdit1.Lines.Text='' //значит пустой
Правда я не проверял или так можно с RichEdit, оставляю это вам )

[Ser11]

mutabor, благодарю за подсказку. Кое что уже начинает получаться.
Хотел еще спросить как правильно реализуется нажатие кнопки Aplly для компонента FontDialog?
Я сделал так, только не знаю правильно или нет:

procedure TForm1.FontDialog1Apply(Sender: TObject; Wnd: HWND);
begin
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
end;

И еще было бы неплохо разобраться с тем, как выделенный текст переводится в верхний/нижний регистр в компоненте TRichEdit.

[Neeter]

Напишите вот так:

procedure TForm1.FontDialog1Apply(Sender: TObject; Wnd: HWND);
begin
 RichEdit1.SelAttributes.Assign(TTextAttributes(FontDialog1.Font));
end;

А регистр еще легче, вот:

//В верхний
procedure TForm1.bt_3Click(Sender: TObject);
begin
 RichEdit1.SetSelText(UpperCase(RichEdit1.SelText));
 RichEdit1.SetFocus;
end;
//В нижний
procedure TForm1.bt_2Click(Sender: TObject);
begin
 RichEdit1.SetSelText(LowerCase(RichEdit1.SelText));
 RichEdit1.SetFocus;
end;

[Ser11]

Еще раз благодарю всех за помощь, большое спасибо.
Выловил у себя в коде баг. При изменении шрифта например с Arial на Lucida Fax русские буквы заменялись на нечитаемые сиволы. Вот из-за этого кода:

RichEdit1.SelAttributes.Charset := FontDialog1.Font.Charset;

Как только его убрал, все встало на свои места.

[Ser11]

Neeter, а процедуры для верхнего/нижнего регистра надо объявить в private?

[Neeter]

Нет, что вы, это просто обработчики кнопок)

[Ser11]

У меня делфи2009 выводит ошибку:

Incompatible types: 'string' and 'TAction'
Missing operator or semicolon

[Neeter]

Что-то вы не то делаете...
Код приведите...

[Ser11]

Во всплывающем меню обработчик события:

procedure TForm1.UpperCaseClick(Sender: TObject);
begin
RichEdit1.SetSelText(UpperCase(RichEdit1.SelText));
RichEdit1.SetFocus;
end;