X, y: Integer);
begin
StatusBar1.Panels.Items[0].Text:=GetShortHint((Sender as TControl).Hint);
StatusBar1.Panels.Items[1].Text:=GetLongHint((Sender as TControl).Hint);
end;
Напишите процедуру для выбора в меню Файл – команды Открыть (для формы FDoc).
procedure TFDoc.OpenClick(Sender: TObject);
begin
If OpenDialog1.Execute then
begin
RichEdit1.Clear;
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;
Напишите процедуру для выбора в меню Файл – команды Сохранить как (для формы FDoc).
Напишите процедуру для выбора в меню Правка – команды Вырезать (в окне документа);
procedure TFDoc.N5Click(Sender: TObject);
begin
RichEdit1.CutToClipboard;
end;
Напишите процедуру для выбора в меню Правка – команды Копировать (в окне документа);
Напишите процедуру для выбора в меню Правка – команды Вставить (в окне документа);
Добавьте на панель инструментов на форме FDoc кнопки для выполнения операции вырезки, копирования и вставки текста из буфера обмена. Для добавленных кнопок измените свойство Hint.
Добавьте на форму FDoc компонент FontDialog1. На панель инструментов добавьте кнопку для изменения шрифта. Для добавленной кнопки опишите свойство Hint.
Напишите процедуру для выбора в меню Формат – команды Шрифт (в окне документа);
procedure TFDoc.N11Click(Sender: TObject);
begin
If FontDialog1.Execute
then RichEdit1.Font:=FontDialog1.Font;
end;
Напишите процедуру для выбора в меню Формат – команды По центру (в окне документа);
procedure TFDoc.CenterClick(Sender: TObject);
begin
Left.Checked := False;
Right.Checked := False;
Center.Checked := False;
with Sender as TMenuItem do Checked := True;
with RichEdit1.Paragraph do
If Left.Checked then
Alignment := taLeftJustify
else if Right.Checked then
Alignment := taRightJustify
else if Center.Checked then
Alignment := taCenter;
end;
Свяжите процедуру для выбора в меню Формат – команды Слева (с написанной процедурой выше);
Свяжите процедуру для выбора в меню Формат – команды Справа (с написанной процедурой выше);
На панель инструментов формы FDoc добавьте три кнопки
.
Для добавленных кнопок опишите свойство
Hint.Добавьте на форму FDoc статусную строку с двумя панелями для отображения подсказок. Напишите процедуру на событие OnMouseMove для кнопки Открыть для отображения ярлычков и подсказок в статусной строке. Аналогичные процедуры для остальных кнопок свяжите с описанной процедурой для кнопки Открыть.
Добавьте проект следующими возможностями:
Добавьте на форму компонент StatusBar1 для отображения в статусной строке выполяемой операции.
Добавьте отображение в статусной строке текущей даты;
Добавьте в меню Формат команду Цвет фона. Реализуйте изменение цвета фона при выборе данной команды в меню. На панель инструментов добавьте кнопку для выбора цвета фона.
ВОПРОСЫ:
Свойства и методы компонента класса TRichEdit.
Свойства и методы компонента класса TStatusBar
Завершите работу с программой. Сдайте работу преподавателю.