 |
Добавим в свою программу диалог выбора цвета.
|
|
|
|
1. Поместите на новую форму диалог выбора цвета (компонент ColorDialog) и присвойте его свойству Color значение clWhite.
2. Установите свойство Ctl3D формы в False, а в качестве константы цвета также выберите clWhite.
3. Поместите на форму новую кнопку, назовите её Color.
В обработчик события OnClick формы поместите следующие строки:
IF ColorDialog1.Execute THEN
Form1.Color:= ColorDialog1.Color;
4. Запустите программу.
Диалог выбора принтера.
Загрузите опять проект MyEdit и поместите на него диалог настройки принтера компонент PrinterSetupDialog). Компонент Bevel расположите таким образом, чтобы осталось место для второго ряда кнопок, где разместите две новые кнопки, оза-аавленные &Print... и P&rint Setup.... Создайте обработчик события OnClick кнопки Print Setup с единственной строкой кода:
PrinterSetupDialog1.Execute;
Запустите программу и щелкните на кнопке Print Setup (кнопка Print пока еще делать ничего не может). Появится диалог.
Подготовка к печати.
Диалог Print Setup (Настройка принтера) используется для выбора и конфигурации принтера. Когда дело дойдет до печати, в действие вступит диалог Print (Печать).
В проект MyEdit добавьте компонент PrintDialog, оставив все его свойства со значениями, установленными по умолчанию. Дважды щелкните на кнопке Print, и замените пару begin-end следующим кодом:
VAR
POutput: TextFile;
N: LongInt;
BEGIN
IF PrintDialog1.Execute THEN
BEGIN
AssingPrn (POutput);
Rewrite (POutput);
Printer.Canvas.Font: = Memo1.Font;
FOR N: = 0 to Memo1.Lines.Count – 1 DO
Writeln(POutput, Memo1.Lines [N]);
CloseFile (POutput);
END;
END;
Перейдите в верхнюю часть модуля и добавьте Printers в оператор uses. (Найдите строку в начале файла, начинающуюся со слова uses. После этого слова добавьте имя модуля и запятую.) Выберите на форме компонент FontDialog и присвойте его свойству Device значение fdBoth, чтобы ограничить выбор шрифтами, которые годятся и для экрана, и для принтера.
|
|
|
Мы только что добавили в ваш редактор возможность печати. Этот редактор не позволяет печатать несколько копий или направлять их в подбор, но вы сможете распечатать содержимое редактора любым шрифтом. А с помощью диалога Print Setup (Выбор принтера) вы сможете выбрать принтер, ориентацию бумаги и параметры конфигурации, соответствующие вашему принтеру.
Диалог поиска и замены текста.
Загрузите проект MyEdit и установите свойство HideSelection компонента Memo в False. На форме разместите компоненты FindDialog и ReplaceDialog и выберите их оба. Дважды щелкните на свойстве Options и установите frHideMatchCase, frHideWholeWord и frHideUpDown в True. Добавьте во второй ряд кнопки с заголовками Fi&nd... и &Replace... Для события OnClick кнопки Find используйте следующую строку:
FindDialogl.Execute;
а для кнопки Replace следующую строку:
ReplaceDialogl.Execute;
Выберите компонент FindDialog, перейдите на страницу Events и дважды щелкните на событии OnFind. Вставленную Delphi пару begin-end замените следующим блоком кода:
VAR
Buff, P, FT: Pchar;
BuffLen: Word;
begin
WITH Sender AS TFindDialog DO
BEGIN
GetMem (FT, Length (FindText) + 1);
StrPCopy (FT, FindText);
BuffLen:= Memo1.GetTextLen + 1;
GetMem (Buff, BuffLen);
Memo1.GetTextBuff (Buff, BuffLen);
P: = Buff + Memo1.SelStart + Memo1.SelLength;
P: = StrPos (P, FT);
IF P = NIL THEN MessageBeep (0)
ELSE
BEGIN
Memo1.SelStart: = P-Buff;
Memo1.SelLength: = Length (FindText);
END;
FreeMem (FT, Length (FindText) + 1;
FreeMem (Buff, BuffLen);
END;
end;
Когда закончите, щелкните на компоненте ReplaceDialog, перейдите на страницу Events в окне Object Inspector и щелкните на кнопке раскрытия списка обработчика события OnFind. Из появившегося списка выберите только что созданный обработчик события для FindDialog. Теперь создайте обработчик события OnReplace со следующими строками:
WITH Sender AS TReplaceDialog DO
WHILE True DO
BEGIN
IF Memo1.SelText <> FindText THEN
FindDialodFind (Sender);
IF Memo1.SelLength = 0 THEN Break;
Memo1.SelText: = ReplaceText;
IF NOT (frReplaceAll IN Options) THEN Break;
END;
Сохраните программу, запустите ее и загрузите текстовый файл. Замените в нем все точки на восклицательные знаки и сохраните его.
|
|
|
Задание. Создайте форму для открытия графических файлов.
Лабораторная по Delphi. Работа с базами данных.
Работа с Database Form Expert.
Delphi имеет мощное средство создания таблиц путем внесения или ре дактирования полеи на форме. Рассмотрим простой пример того, как построить приложение, используя эксперт форм базы данных. В этом примере использован один из образцов баз данных, включенных в Delphi.
Использование эксперта форм базы данных.
1. Запустите Delphi.
2. Выберите Database/Database Form Expert из главного меню.
3. В первом диалоговом окне выберите Create a simple form и Great a form using TTable objects; нажмите Next.
4. В следующем диалоговом окне выберите DBDEMOS в секции Drive or Alias. Выделение DBDEMOS выводит список таблиц, составляющих базу данных, в панели списка слева.
5. Выберите EMPLOYEE.DB; щелкните мышью на Next.
6. Нажмите кнопку >>, чтобы указать, что вы хотели бы построить форму с отображением всех полей.
7.Продолжайте выбирать Next, принимая все по умолчанию до окончания процесса создания формы.
8.Выберите из меню Run/Run.
Это простейшее приложение дает пользователю полный контроль над таблицей, содержащей информацию о служащих. Чтобы манипулировать записями, вверху формы размещена панель управления базой данных. Каждая кнопка панели выполняет определенную функцию базы данных.
Поработав с этим простым пользовательским интерфейсом, выберите Close, чтобы завершить приложение.
|
|
|
12 |
