Отображение картинок

Шаг 28. Ну вот, диалоговые компоненты настроены. Теперь нужен компонент, обеспечивающий отображение картинок различных форматов. Такой компонент в Delphi есть, он называется Image и находится в Палитре Компонентов на странице Additional. Выберите его из палитры и опустите в левый верхний угол формы. Назовите новый компонент Image (рис. 28).

Характерные свойства компонента Image кратко описаны в таблице:

Компонент Image позволяет выводить картинки трех основных форматов: точечный рисунок (bitmap), метафайл (metafile) и значок (icon). Отображаемая картинка хранится в свойстве Picture, доступном и на этапе разработки, и на этапе выполнения приложения.

Шаг 29. Размеры установленной картинки могут не совпадать с текущими размерами управляющего элемента. В этом случае неуместившаяся часть изображения отрезается. Чтобы подогнать размеры управляющего элемента под размеры картинки, установите свойство AutoSize в True. После этого при каждой установке свойства Picture размеры управляющего элемента будут изменяться автоматически.

Бывает и обратная ситуация, когда нужно смасштабировать картинку, подогнав её размеры под заданные размеры управляющего элемента. Для этого свойство Stretcl устанавливается в True, a AutoSize — в False. Масштабирование целесообразно применять только для метафайлов; для точечных рисунков оно не всегда дает приемлимыйрезультат — начинает сказываться точечная природа изображения.

Сейчас компонент Image находится на своем месте и подготовлен к работе (свойств AutoSize имеет значение True). Рассмотрим, как осуществляется загрузка и сохранение картинки по командам меню Open... и Save As....

Шаг 30. В исходном тексте уже имеется недописанный обработчик команды Open.. В нем нужно выполнить стандартное диалоговое окно Open и загрузить картинку в том случае, если пользователь ввел в окне имя файла:

procedure TPictureForm. OpenItemClick (Sender: TObject);

Begin