Задачи по Python с решениями

   
На этом шаге мы рассмотрим компонент, используемый для настройки параметров печатаемой страницы.

   
Компонент TPageSetupDialog создает и обслуживает окно настройки параметров печатаемой страницы (рисунок 1).

Рис.1. Стандартное окно компонента TPageSetupDialog

   
Свойства и методы компонента предоставляют пользователю гибкие средства управления параметрами печатаемой страницы (ее
ориентацией, размерами полей и т. п.). С помощью обработчиков событий программист может предоставить пользователю
возможность изменения указанных параметров в различных ситуациях - перед началом печати, перед печатью очередной
страницы и т. д.

   
Перечислим основные свойства этого компонента.

• MarginBottom, MarginLeft, MarginRight и MarginTop - соответственно определяют размеры
  нижнего, левого, правого и верхнего поля страницы;
• MinMarginBottom, MinMarginLeft, MinMarginRight и MinMarginTop - соответственно определяют
  минимальные размеры нижнего, левого, правого и верхнего поля страницы;
• PageHeihgt и PageWidth - определяют высоту и ширину страницы;
• Units - служит для выбора единиц измерения размеров полей, задаваемых пользователем (в миллиметрах или в дюймах);
• Options: TPageSetupDialogOptions - используется для настройки ряда параметров диалогового окна (по умолчанию
  параметр psoDefaultMinMargins имеет значение True, остальные параметры имеют значение False); содержит
  такие параметры, как:
  • psoDefaultMinMargins - запрещает пользователю изменять минимальные поля страницы;
  • psoDefaultDisableMargins - запрещает пользователю изменять поля страницы;
  • psoDefaultDisableOrientation - запрещает пользователю изменять ориентацию страницы;
  • psoDefaultDisablePagePainting - запрещает отображение образца страницы по умолчанию;
  • psoDefaultDisablePaper - запрещает пользователю изменять размеры страницы и источник бумаги;
  • psoDefaultDisablePrinter - делает неактивной кнопку вызова диалога настройки дополнительных параметров принтера;
  • psoMargins - разрешает устанавливать (учитывать) размер полей в свойствах MarginLeft, MarginRight,
    MarginBottom и MarginTop. В противном случае размер полей равен по одному дюйму каждый;
  • psoMinMargins - разрешает устанавливать (учитывать) минимальный размер полей в свойствах MinMarginLeft, MinMarginRight,
    MinMarginBottom и MinMarginTop. В противном случае, минимальный размер полей определяются драйвером принтера;
  • psoShowHelp - вставляет в окно кнопку Справка;
  • psoWarning - предотвращает отображение предупреждения, когда нет принтера по умолчанию;
  • psoNoNetworkButton - скрывает и отключает кнопку Сеть.

   
Перечислим основные события этого компонента.

• BeforePaint - возникает перед печатью. Используется для инициализации переменных, используемых в других обработчиков.
• OnDrawFullPage - возникает перед печатью очередной страницы.
• OnDrawMinMargin - возникает перед изменением минимальных значений полей.
• OnDrawMargin - возникает перед изменением значений полей.
• OnDrawGreekText - возникает перед печатью "греческого" текста.
• OnDrawEnvStamp - возникает перед печатью логотипа (только при печати конвертов).
• OnDrawRetAddress - возникает перед печатью обратного адреса (только при печати конвертов).

   
Для активизации этого окна используется метод Execute, который является процедурой, а не функцией, поэтому она не возвращает значения.

   
Мы закончили рассмотрение компонентов вкладки Dialogs.

   
На этом шаге мы рассмотрим компонет, используемый для замены текста.

   
Компонент TReplaceDialog создает и обслуживает окно поиска и замены текстового фрагмента (рисунок 1).

Рис.1. Стандартное окно компонента TReplaceDialog

   
Класс TReplaceDialog является прямым потомком класса TFindDialog и наследует от него большую часть свойств.
Дополнительно в компоненте определено свойство ReplaceText: String, в котором содержится текст замены, и событие
OnReplace, которое возникает при щелчке на кнопке Заменить или Заменить все.

   
Приведем простой пример использования этого компонента.

   
На форме разместим компонент TReplaceDialog, а также кнопку TButton и компонент TMemo, содержащий текст,
в котором будет осуществляться поиск с последующей заменой.

Рис.2. Внешнинй вид проекта

   
Кнопка TButton используется для активизации окна поиска и замены:

procedure TForm1.Button1Click(Sender: TObject);
begin
  p:=1; // Первоначальное значение позиции: поиск сначала текста
  ReplaceDialog1.Execute;
end;

   
Кроме того, здесь определяется глобальная переменная, которая будет содержать значение позиции текста, с которого осуществляется поиск
очередного заменяемого фрагмента. Реализация обработчика события OnFind ничем не отличается от аналогичной реализации
обработчика для компонента TFindDialog:

procedure TForm1.ReplaceDialog1Find(Sender: TObject);
var
  SelPos: Integer;
begin
  // Ищем очередной фрагмент в тексте
  SelPos := Pos(ReplaceDialog1.FindText,
                Copy(Memo1.Lines.Text,p,Length(Memo1.Lines.Text)-p+1));
  if SelPos > 0 then
  begin
    // Фрагмент найден - выделяем его
    Memo1.SelStart := SelPos + p - 2;
    Memo1.SelLength := Length(ReplaceDialog1.FindText);
    // Обязательно передаем фокус, чтобы увидеть изменения!!!
    Memo1.SetFocus;
    p:=p + SelPos; //Вычисляем позицию для нового поиска
  end
    else
      ShowMessage('Текст "' + ReplaceDialog1.FindText + '" не найден!');
end;

   
В реализации обработчика события OnReplace нужно учесть тот момент, что он возникает, когда нужно сделать замену во
всем тексте или только очередного найденного фрагмента. Определение того, что нужно выполнить в данный момент,
выполним по наличию или отсутствию значения frReplaceAll в свойстве ReplaceDialog1.Options:

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
var
  SelPos: Integer;
begin
  // Проверяем, нажата ли кнопка "Заменить все"
  if frReplaceAll in ReplaceDialog1.Options then
  begin // Нажата - производим замену во всем тексте
    SelPos := Pos(ReplaceDialog1.FindText,Memo1.Lines.Text);
    while SelPos>0 do
    begin
      Memo1.Lines.Text:=
          // Берем текст до начала искомого фрагмента,
          Copy(Memo1.Lines.Text,1,SelPos-1)+
          // прибавляем заменяющий текст и
          ReplaceDialog1.ReplaceText +
          // добавляем текст после искомого фрагмента.
          Copy(Memo1.Lines.Text,
               SelPos + Length(ReplaceDialog1.FindText),
               Length(Memo1.Lines.Text)-SelPos + Length(ReplaceDialog1.FindText));
      SelPos := Pos(ReplaceDialog1.FindText,Memo1.Lines.Text);
    end
  end
  else // Нажата кнопка "Заменить"
    if Memo1.SelText <> '' then  // Если есть выделенный фрагмент - меняем его 
        Memo1.SelText := ReplaceDialog1.ReplaceText;
end;

Текст этого примера можно взять здесь.

   
Внешний вид работающего приложения приведен на рисунке 3.

Рис.3. Замена требуемого фрагмента

   
На следующем шаге мы рассмотрим компонент TPageSetupDialog.

   
На этом шаге мы рассмотрим компонент, используемый для поиска фрагмента текста.

   
Стандартное диалоговое окно компонента TFindDialog используется для поиска фрагмента текста (рисунок 1).

Рис.1. Стандартное окно компонента TFindDialog

   
Свойства компонента TFindDialog перечислены в таблице 1.

Таблица 1. Свойства компонента TFindDialog

   
Для компонента определен следующий тип, использующийся в свойстве Options:

type TFindOption = (frDown, frFindNext, frHideMatchCase,
        frHideWholeWord, frHideUpDown, frMatchCase, 
        frDisableMatchCase, frDisableUpDown, frDisableWholeWord, 
        frReplace, frReplaceAll, frWholeWord, frShowHelp);
TFindOptions = set of TFindOption;

Его значения имеют следующий смысл:

• frDown - устанавливает поиск вперед по тексту;
• frFindNext - сообщает программе, что пользователь щелкнул на кнопке Найти далее;
• frHideMatchCase - снимает флажок С учетом регистра;
• frHideWholeWord - снимает флажок Только слово целиком;
• frHideUpDown - скрывает переключатели выбора направления поиска;
• frMatchCase - устанавливает флажок С учетом регистра;
• frDisableMatchCase - делает недоступным флажок С учетом регистра;
• frDisableUpDown - запрещает выбор направления поиска;
• frDisableWholeWord - делает недоступным флажок Только слово целиком;
• frReplace - используется в компоненте TReplaceDialog и указывает на необходимость замены найденного фрагмента;
• frReplaceAll - используется в компоненте TReplaceDialog и указывает на необходимость замены всех вхождений образца поиска;
• frWholeWord - устанавливает флажок Только слово целиком;
• frShowHelp - включает в окно кнопку Справка.

   
Специфичной для диалогового окна является реализуемая им возможность просмотра найденного фрагмента и при необходимости
продолжение поиска. С этой целью для компонента определено событие OnFind: TNotifyEvent, которое возникает всякий раз,
когда пользователь щелкает на кнопке Найти далее. Обработчик события должен найти образец в тексте и показать его пользователю.

   
Приведем простой пример использования этого компонента.

   
На форме разместим компонент TFindDialog, а также кнопку TButton и компонент TMemo, содержащий текст,
в котором будет осуществляться поиск.

Рис.2. Внешнинй вид проекта

   
Кнопка TButton используется для активизации окна поиска:

{$R *.dfm}
var
  p: Integer; // Позиция, с которой начнется очередной поиск

procedure TForm1.Button1Click(Sender: TObject);
begin
  p:=1; // Первоначальное значение позиции: поиск сначала текста
  FindDialog1.Execute;
end;

   
Кроме того, здесь определяется глобальная переменная, которая будет содержать значение позиции текста, с которого осуществляется поиск
очередного фрагмента.

   
В целом реализация алгоритма поиска выглядит так: по щелчку на кнопке Найти далее осуществляем поиск необходимого
фрагмента в тексте с позиции, определяемой значением переменной p. Если фрагмент найден, то выделяем его, изменяя значение
переменной p так, чтобы последующий поиск осуществлялся со следующего, идущего за найденным, символа. Если искомый фрагмент
не найден, то выдаем соответствующее сообщение:

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  SelPos: Integer;
begin
  // Ищем очередной фрагмент в тексте
  SelPos := Pos(FindDialog1.FindText,
                Copy(Memo1.Lines.Text,p,Length(Memo1.Lines.Text)-p+1));
  if SelPos > 0 then
  begin
    // Фрагмент найден - выделяем его
    Memo1.SelStart := SelPos + p - 2;
    Memo1.SelLength := Length(FindDialog1.FindText);
    // Обязательно передаем фокус, чтобы увидеть изменения!!!
    Memo1.SetFocus;
    p:=p + SelPos; //Вычисляем позицию для нового поиска
  end
    else
      ShowMessage('Текст "' + FindDialog1.FindText + '" не найден!');
end;

Текст этого примера можно взять здесь.

   
Внешний вид работающего приложения приведен на рисунке 3.

Рис.3. Поиск требуемого фрагмента

   
На следующем шаге мы рассмотрим компонент TReplaceDialog.

   
На этом шаге мы рассмотрим компонент, используемый для настройки парамеров принтера.

   
Компонент TPrinterSetupDialog создает диалоговое окно настройки параметров принтера,
вид которого зависит от типа принтера.

Рис.1. Пример диалогового окна TPrinterSetupDialog

   
Это окно взаимодействует с драйвером принтера и не возвращает в программу никакой информации, поэтому его метод
Execute - процедура, а не функция.

   
На следующем шаге мы рассмотрим компонент TFindDialog.