Разработка простого приложения Delphi

11. Коды  методов для элементов Center и Right аналогичны предыдущему. 
 

                                       27 
 

     Вариант 2 

1.   На форме расположите две панели , две кнопки и компонент RichEdit.

     Первая панель должна содержать  два поля редактирования, а вторая  два

     чекбокса, как показано на рис. 3.5. 
 
 
 

                       Рис. 3.5. Начальная форма проекта

2.   Создайте меню:

     ♦ File: Open, Save As

     ♦ Buttons: Enable First (программно изменяемый на Disable First и об-

        ратно; как именно – см. ниже)

     ♦ Views: Edit Boxes, Check Boxes

     ♦ Pulldowns: Remove File Menu, Disable Buttons Menu 

3.   Поместите в форму пиктограммы  диалогов OpenDialog, SaveDialog.

     Форма будет выглядеть примерно  так, как показано на рис.3.6. 
 
 
 

                                      28 
 

                    Рис. 3.6. Законченный вид формы  проекта

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

     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

         RichEdit1.Lines.SaveToFile (SaveDialog1.FileName) ;

     end; 

5.   Компоненты внутри панелей в  действительности не используются. Одна-

     ко вам необходимо воспользоваться  двумя кнопками, чтобы скрыть  или

     отобразить каждую из двух  панелей вместе с управляющими  элемента-

     ми, которые в них содержатся. Те же действия можно выполнить  с по-

     мощью двух команд меню : View/ Edit Boxes и View/ Check Boxes. Когда

     вы выбираете одну из этих  команд меню или нажимаете  одну из кнопок,

     происходят три разных действия. Во-первых, отображается или скрыва-

     ется панель. Во-вторых, текст кнопки изменяется с Hide на Show, и на-

     оборот. В-третьих, рядом с соответствующим  элементом меню появляет- 
 

                                      29 
 

     ся или исчезает галочка. Ниже  приведен код одного из двух  методов, ко-

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

     procedure TForm1.ViewEdit1Click (Sender : TObject) ;

     begin

      Panel1.Visible : = not Panel1.Visible ;

       ViewEdit1.Checked : = not ViewEdit1.Checked ;

       if Panel1.Visible then

           Button1.Caption : = ‘Hide’ ;

       else

           Button1.Caption : = ‘Show’ ;

     end; 

6.   Команды меню Buttons применяют другой  подход. Для показа текущего

     состояния они используют не  галочку, а изменение текста. Кроме  того,

     они разрешают или запрещают соответствующую команду View и кноп-

     ку. 

     procedure TForm1.ButtonsFirst1Click (Sender : TObject) ;

     begin

      if Buttons1.Enabled then

      begin

         Buttons1.Enabled : = False;

         ViewEdit1.Enabled : = False ;

          ButtonsFirst1.Caption : = ‘Enable &First’ ;

      end

      else

      begin

         Buttons1.Enabled : = True

         ViewEdit1.Enabled : = True ;

          ButtonsFirst1.Caption : = ‘Disable &First’ ;

      end

     end; 

7. Команды  меню Pulldowns должны скрывать выпадающее меню File и

   Duttons соответственно и показывать  галочку для выбранного элемента.

   Запишите  код для каждого элемента этого  меню самостоятельно. 

     Вариант 3 

     1.   На форме расположите  компонент Image, пиктограмму диалога

          OpenPictureDialog

                                     30 
 

2. Создайте  меню (рис. 3.7):

♦ File: Open, (разделитель), Exit, (разделитель) - невидимый, Most Re-

   cent - невидимый

♦ Options: Center, Stretch, Transparent

♦ About 
 
 
 

                  Рис. 3.7. Форма проекта варианта 3 

3.   Методы меню File: 

procedure TForm1.Open1Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute then

begin

   if Current<>'' then

   begin

     MostRecent1.Caption := Current;

     N2.Visible := true;

     MostRecent1.Visible := true;

   end;

   Current := OpenPictureDialog1.FileName;

   Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

end; 

                                  31 
 

    procedure TForm1.MostRecent1Click(Sender: TObject);

    var

     S : string;

    begin

     S := MostRecent1.Caption;

     Image1.Picture.LoadFromFile(S);

     MostRecent1.Caption := Current;

     Current := S;

    end; 

   4.   Метод меню TForm1.Center1Click: 

    procedure TForm1.Center1Click(Sender: TObject);

    begin

     Center1.Checked := not Center1.Checked;

     Image1.Center := Center1.Checked;

    end; 

   5.   Остальные два метода меню Options аналогичны приведённому вы-

        ше TForm1.Center1Click

   6.   Измените меню File и соответствующие  методы для отображения

        имён и повторного открытия  не одной, а трёх последних  картинок 

   Вариант  4 

   1. На форме расположите компоненты Edit и Button

   2. Поместите в форму компонент  RadioGroup с тремя пунктами: Beep,

      About, Exit

6. Создайте меню:

   ♦  Normal Part: Beep, About, Exit

   ♦ Anomal Part

   Пример  формы представлен на рис. 3.8. 
 
 

                                      12 

Рис. 3.8. Форма  проекта варианта 4 

  4. Коды  методов TForm1.Beep1Click и TForm1.Button1Click: 

   procedure TForm1.Beep1Click(Sender: TObject);

   begin

    MessageBeep($FFFFFFFF);

    if (Sender as TMenuItem).Owner=AnomalPart1          then   Anomal-

Part1.Remove(Sender as TMenuItem);

   end; 

   procedure TForm1.About1Click(Sender: TObject);

   begin

    Application.MessageBox('!!!', '...', 0);

    if (Sender as TMenuItem).Owner=AnomalPart1          then   Anomal-

Part1.Remove(Sender as TMenuItem);

   end; 

  procedure TForm1.Exit1Click(Sender: TObject);

  begin

   Close;

  end; 

  procedure TForm1.Button1Click(Sender: TObject);

  var

   I : TMenuItem;

  begin

   I := TMenuItem.Create(AnomalPart1);

                                  33 
 

    I.Caption := Edit1.Text;

    case RadioGroup1.ItemIndex of

      0: I.OnClick := Beep1Click;

      1: I.OnClick := About1Click;

      2: I.OnClick := Exit1Click;

    end;

    AnomalPart1.Add(I);

   end; 

   5. Коды методов TForm1.About1Click аналогичен коду метода

       TForm1.Beep1Click

   6. Добавьте в форму компонент  ImageList и добавьте в него несколько

       иконок или небольших картинок

   7. Установите свойство меню Images указывающим  на ImageList1

   8. Задайте свойство ImageIndex для некоторых  пунктов меню.

   9. Сделайте так, чтобы любой пункт  из аномальной части меню случай-

       ным образом менял свойства Caption, Checked или ImageIndex како-

       го-либо из оставшихся элементов,  если таковые имеются 

  Вариант  5 

   1.   На форме расположите компоненты Memo и Image, пиктограммы

        диалогов OpenDialog, SaveDialog и OpenPictureDialog.

   2.   Создайте меню:

   ♦    Text: Load, Save, (разделитель), Enabled – с  галочкой

   ♦    Graphics: Load, (разделитель), Center – отключен, Stretch – отключен

   3.   Создайте всплывающее меню с  единственным пунктом Clear. 

Пример  формы представлен на рис. 3.9. 
 
 
 

                                       34 
 

                     Рис. 3.9. Пример формы варианта 5 

4.   Коды методов: 

procedure TForm1.Load1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

   Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

end; 

procedure TForm1.Save1Click(Sender: TObject);

begin

if SaveDialog1.Execute then

   Memo1.Lines.SaveToFile(SaveDialog1.FileName);

end; 

procedure TForm1.PopupMenu1Popup(Sender: TObject);

begin

Clear1.Visible := Memo1.Lines.Count<>0;

end; 

procedure TForm1.Clear1Click(Sender: TObject);