КАТЕГОРИИ:
АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
|
Компонент Delphi OpenPictureDialog
Компонент DelphiOpenPictureDialog располагается на странице Dialogs Палитры компонентов. Он также как и компонент OpenDialog вызывает диалог открытия файла, но только он имеет более узкое направление работы, а именно с графическими файлами. По внешнему виду он отличается наличием в правой стороне зоны предварительного просмотра картинок и наличием предустановленного значения свойства Filter. Рисунок 37 – Пример использования компонента OpenPictureDialog
Свойство Filter, по умолчанию, установлено для показа графических файлов следующих форматов: − JPEG файлы расширение - *.jpg; − JPEG файлы расширение - *.jpeg; − Растровое изображение расширение - *.bmp; − Значок расширение - *.ico; − Метафайл расширенного формата расширение - *.emf; − Метафайл расширение - *.wmf;
Важное замечание: для того чтобы в фильтре была возможность выбора JPEG формата необходимо добавить модуль JPEG в разделе uses, как показано на рисунке.
Рисунок 38 – Добавления модуля JPEG в раздел uses
Если нам необходимо с помощью кнопки открывать картинку в компоненте Image, то для кнопки следует написать такой обработчик события: procedure TForm1.Button1Click(Sender: TObject);begin if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);end;
|