• Иллюстрированный самоучитель по Delphi 7 для профессионалов

    Компонент TImage

    Этот компонент служит надстройкой над классом TPicture и замыкает всю иерархию графических объектов VCL. Именно на его поверхности и будут отображаться графические объекты, содержащиеся в свойстве:

    property Picture: TPicture;
    

    В качестве канвы компонента (свойство canvas) используется канва объекта из свойства Picture.Graphic, но только если поле Graphic ссылается на объект класса TBitmap. Если это не так, то попытка обращения к свойству вызовет исключительную ситуацию EinvalidOperation, т. к. рисовать на метафайле или значке нельзя.

    Следующие три свойства определяют, как именно графический объект располагается в клиентской области компонента:

    property AutoSize: Boolean;
    

    Означает, что размеры компонента настраиваются по размерам содержащегося в нем графического объекта. Устанавливать его в значение True нужно перед загрузкой изображения из файла или буфера обмена.

    property Stretch: Boolean;
    

    Если это свойство установлено в значение True, то изображение "натягивается" на клиентскую область, при необходимости уменьшая или увеличивая свои размеры. Если оно установлено в False, то играет роль следующее свойство Center.

    property Center: Boolean;
    

    Если это свойство установлено в значение True, изображение центрируется в пределах клиентской области. В противном случае оно располагается в ее верхнем левом углу.

    Несмотря на то, что описанию свойств и методов графических объектов здесь отведено уже довольно много места, работа с ними проста и удобна. Программу для просмотра изображений в среде Delphi можно создать буквально "в три счета":

    1. Поместите на форму следующие компоненты: область прокрутки TScrollBox, на нее – компонент Timage (их верхние левые углы должны совпадать), любую кнопку (например, TButton) и диалог открытия файлов TOpenPictureDialog.
    2. Подключите к главному модулю создаваемого приложения модуль JPEG (в предложении uses); свойство AutoSize компонента Timage установите в значение True.
    3. Дважды щелкните мышью на кнопке. В появившемся обработчике события onclick напишите такой код:
    procedure TForml.BitBtnlClick(Sender: TObject);
    begin
    OpenPictureDialogl.Filter: = GraphicFilter(TGraphic);
    if OpenPictureDialogl.Execute
    then Imagel.Picture.LoadFromFile
    (OpenPictureDialogl.FileName);
    end;
    

    Приложение готово. Обратите внимание на роль полиморфизма в методе LoadFromFile – по расширению файла определяется его формат и в зависимости от этого создается нужный графический объект.

    Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.