Изменение элементов меню

Для модификации элемента меню чаще всего используются три свойства. Свойство Checked используется, чтобы добавить или удалить галочку рядом с элементом меню. С помощью свойства Enabled элемент меню можно сделать неактивным, после чего пользователь не сможет его выбрать. Последнее свойство этой группы Caption представляет текст элемента меню. Изменяя текст элемента меню, вы указываете пользователю, что программа перешла в другое состояние.

Задание № 2

1. На форме расположить две панели, две кнопки и компонент RichEdit. Первая панель содержит два поля редактирования, а вторая два чекбокса. Также необходимо построить выпадающее меню File, Buttons, View, Pulldowns. Команды меню File – Open, SaveAs. Команды меню Buttons содержат изменяемый текст (с ‘Enable First’ на ‘Disable First’). Команды меню View – Edit Boxes, Check Boxes. Команды Pulldowns – Remove File, Disable Buttons, Disable View. Поместите в форму пиктограммы необходимых диалогов.

2. Код методов, которые загружают и сохраняют файлы:

procedure TForm1.Open1Click(Sender:TObject);

Begin

If OpenDialog1.Execute

Then RichEdit1.Lines.LoadFromFile

OpenDialog1.FileName);

End;

procedure TForm1.SaveAs1Click(Sender:TObject);

Begin

If SaveDialog1.Execute

Then ichEdit1.Lines.SaveToFile(SaveDialog1.FileName);

End;

3. Компоненты внутри панелей в действительности не используются. Однако вам необходимо воспользоваться двумя кнопками, чтобы скрыть или отобразить каждую из двух панелей вместе с управляющими элементами, которые в них содержатся. Те же действия можно выполнить с помощью двух команд меню: View - Edit Boxes и View - Check Boxes. Когда вы выбираете одну из этих команд меню или нажимаете одну из кнопок, происходит три разных действия. Во-первых, отображается или скрывается панель. Во-вторых, текст кнопки изменяется с Hide на Show и наоборот. В-третьих, рядом с соответствующим элементом меню появляется или исчезает галочка. Ниже приведен код одного из двух методов, который связан с событиями щелчка как команды меню, так и кнопки:

procedure TForm1.ViewEdit1Click(Sender:TObject);

Begin

Panel1.Visible:= not Panel1.Visible;

ViewEdit1.Checked:= not ViewEdit1.Checked;