Delphi 5. Учебник



         

Написание кода



    Теперь, после создания интерфейса, перейдем к написанию исходного текста вашего приложения. Сначала загрузите изображение следующим образом.
        1. Дважды щелкните на компоненте spbtnLoad, и Delphi выведет окно редактора и автоматически создаст обработчик события OnClick.
        2. Введите код.
 
                if opndlgLoad.Execute then
                        imgMain.Picture.LoadFromFile(opndlgLoad.FileName);
 
    Метод opndlgLoad.Execute вызывает стандартное диалоговое окно открытия файла. Если вы выбрали файл и щелкнули на ОК, метод возвращает True и загружает в свойство FileName полный путь к имени файла. При щелчке на Cancel или нажатии клавиши <Esc> метод вернет False.
    Компонент TImage предоставляет свойство Picture, которое является экземпляром класса TPicture. Этот класс обеспечивает работу с растровыми изображениями, пиктограммами и метафайлами. Один из его методов, LoadFromFile, служит для загрузки изображения по имени файла.
    Выберите команду Run/Run для компиляции и запуска приложения и попытайтесь открыть картинку.
    Теперь добавьте возможность растягивания изображения.
        1. Дважды щелкните на компоненте spbtnStretch, и Delphi выведет окно редактора и автоматически создаст обработчик события OnClick.
        2. Введите код.

imgMain.Stretch:= spbtnStretch.Down;

    Компонент TSpeedButton имеет свойство Down, которое равно True при нажатой кнопке. Свойство Stretch класса TImage позволяет растянуть картинку.
    Для выравнивания картинки по центру воспользуйтесь приведенной выше инструкцией (только используйте компонент spbtnCenter) и введите следующий код:

imgMain.Center:= spbtnCenter.Down;




Содержание  Назад  Вперед