Пример SDI-приложения
Для демонстрации SDI создадим простую программу просмотра изображения.
Построение интерфейса
Обычно первым шагом построения программы является создание интерфейса. Не будем отступать от традиций, и выполним следующие действия.
Выберите команду File/New Application, и появится пустое приложение.
Совет: Delphi по умолчанию создает именно SDI-приложение. Однако хранилище объектов предоставляет возможность назначить новый шаблон проекта по умолчанию.
Установите следующие свойства форм.
| Свойство | Значение | Caption
Name
ShowHint | Image Viewer
frmMain
True |
Поместите компонент TPanel в форму. Установите следующие его свойства.
| Свойство | Значение | Align
Caption | alTop
- |
Поместите три компонента TSpeedButton в TPanel и назовите их spbtnLoad, spbtnStretch и spbtnCenter. Установите следующие их свойства.
| Свойство | Значение | spbtnLoad.Hint
spbtnLoad.Left
spbtnLoad.Top
spbtnStretch.AllowAlIUp
spbtnStretch.Grouplndex
spbtnStretch.Hint
spbtnStretch.Left
spbtnStretch.Top
spbtnCenter.AllowAlIUp
spbtnCenter.Grouplndex
spbtnCenter.Hint
spbtnCenter.Left
spbtnCenter.Top | Load
8
8
True
1
Stretch
48
8
True
2
Center
80
8 |
Поместите еще одну TPanel в форму и установите следующие ее свойства.
| Свойство | Значение | Align
Caption
| alClient
- |
Поместите компонент ТImage во вновь созданную ТPanel и установите следующие его свойства.
| Свойство | Значение | Align
Name | alClient
imgMain |
Добавьте в форму TOpenDialog со следующими свойствами.
| Свойство | Значение | Filter
Name
Options
| Bitmaps (*.bmp)|*.bmp
opndlgLoad
ofPathMustExist,ofFileMustExist] |
Delphi предоставляет вам множество значков для компонента TSpeedButton; они находятся в каталоге IMAGES\BUTTONS. Для нас вполне подойдут следующие установки свойств Glyph.
| Свойство | Значение | spbtnLoad.Glyph
spbtnStretch.Glyph
spbtnCenter.Glyph | FLDROPEN.BMP
FONTSIZE.BMP
PICTURE.BMP |
Теперь самое время сохранить проект, выбрав в меню команду File/Save Project As. Сохраните Unit1 как Main, а проект - как EgSDIApp.
Написание кода
Теперь, после создания интерфейса, перейдем к написанию исходного текста вашего приложения. Сначала загрузите изображение следующим образом.
Дважды щелкните на компоненте spbtnLoad, и Delphi выведет окно редактора и автоматически создаст обработчик события OnClick.
Введите код.
if opndlgLoad.Execute then
imgMain.Picture.LoadFromFile(opndlgLoad.FileName);
Метод opndlgLoad.Execute вызывает стандартное диалоговое окно открытия файла. Если вы выбрали файл и щелкнули на ОК, метод возвращает True и загружает в свойство FileName полный путь к имени файла. При щелчке на Cancel или нажатии клавиши метод вернет False.
Компонент TImage предоставляет свойство Picture, которое является экземпляром класса TPicture. Этот класс обеспечивает работу с растровыми изображениями, пиктограммами и метафайлами. Один из его методов, LoadFromFile, служит для загрузки изображения по имени файла.
Выберите команду Run/Run для компиляции и запуска приложения и попытайтесь открыть картинку.
Теперь добавьте возможность растягивания изображения.
Дважды щелкните на компоненте spbtnStretch, и Delphi выведет окно редактора и автоматически создаст обработчик события OnClick.
Введите код.
imgMain.Stretch:= spbtnStretch.Down;
Компонент TSpeedButton имеет свойство Down, которое равно True при нажатой кнопке. Свойство Stretch класса TImage позволяет растянуть картинку.
Для выравнивания картинки по центру воспользуйтесь приведенной выше инструкцией (только используйте компонент spbtnCenter) и введите следующий код:
imgMain.Center:= spbtnCenter.Down;
1 2
8 8 8
| |
*
Обратная связь