Высокоуровневые методы информатики и программирования. Сивохин А.В - 65 стр.

UptoLike

42
Align= alClient
Name= OrlovImage
з) Загрузить картинку с помощью свойства Picture.
и) Добавить компонент TOpenDialog. Свойства:
Name= opndlgLoad
Options=
ofPathMustExit= True
ofFileMustExit= True
Filter= Bitmap(*.bmp)|*.bmp
Для каждой инструментальной кнопки создать обработчики событий, выполнив
действия.
к) Выделить кнопку, 2 раза щелкнув по ней
Для SpbtnLoad
If opndlgLoad.Execute then
OrlovImage.Picture.LoadFromFile(opndlgLoad.FileName);
Для SpbtnStretch
OrlovImage.Stretch:=spbtnStretch.Down;
Для SpbtnCenter
OrlovImage.Center:=spbtnCenter.Down;
3.8 Реализация модуля для работы с таблицами
3.8.1 Создание структуры таблиц с помощью утилиты
DataBase Desktop
Создание структуры таблиц с помощью утилиты DataBase Desktop
осуществляется следующим образом:
1. Запустить утилиту Database Desktop
2. Для создания таблицы выбрать в меню File/New/Table…
          Align= alClient
          Name= OrlovImage
     з) Загрузить картинку с помощью свойства Picture.
     и) Добавить компонент TOpenDialog. Свойства:
          Name= opndlgLoad
          Options=
                     ofPathMustExit= True
                     ofFileMustExit= True
          Filter= Bitmap(*.bmp)|*.bmp
     Для каждой инструментальной кнопки создать обработчики событий, выполнив
действия.
     к) Выделить кнопку, 2 раза щелкнув по ней
          Для SpbtnLoad
     If                               opndlgLoad.Execute                           then
OrlovImage.Picture.LoadFromFile(opndlgLoad.FileName);
           Для SpbtnStretch
     OrlovImage.Stretch:=spbtnStretch.Down;
           Для SpbtnCenter
     OrlovImage.Center:=spbtnCenter.Down;

                        3.8 Реализация модуля для работы с таблицами

          3.8.1 Создание структуры таблиц с помощью утилиты DataBase Desktop

     Создание структуры таблиц с              помощью      утилиты   DataBase   Desktop
осуществляется следующим образом:

      1. Запустить утилиту Database Desktop
      2. Для создания таблицы выбрать в меню File/New/Table…




42