Продолжим изучать поиск и замену. Функция Delphi StringReplace
Пишем просмотрщик картинок и изучаем
компоненты Delphi: Image,
DriveComboBox, DirectoryListBox, FileListBox.
Сегодня мы
перейдем к закладке Additional и рассмотрим компонент
Image (картинка)*.
Положим его
на форму, присвоим идентификатор imTest. Самой форме
назначим имя frmTestImage.
Так же
положим на форму компонент DriveComboBox, назвал его
dcbTest*:
Нам еще
понадобиться DirectoryListBox (свойство
Name поставим drbTest)*.
И
FileListBox (назовем его flbTest)*.
Примерно так
у нас должна выглядеть форма, после того, как мы разместим на ней вышеназванные
компоненты*
«Встанем» на
компонент DriveComboBox и установим свойство
DirList. У нас должно дать выбрать из списка только
drbTest*
Теперь
встанем на drbTest и установим у него свойство
FileList равным flbTest. У
flbTest свойство Mask
поставим *.bmp.
У объекта
imTest (картинка) свойство
Proportional установим равным true (это для
того, что бы картинки автоматически смаштабировались и влезли в экран, но при
этом пропроции по ширине и высоте сохранялись.
Теперь у
flbTest напишем обработчик событий
OnChange.
procedure
TfrmTestImage.flbTestChange(Sender: TObject);
begin
if flbTest.FileName<>'' then
imTest.Picture.LoadFromFile(flbTest.FileName);
end;
|
В данном
обработчике мы загружаем вы картинку выбранный файл.
Запустим
программу. У нас получился простенький просмотрщик картинок в формате
bmp.
Скриншоты, помеченные знаком * ,
являются цитатами и иллюстрациями
программного продукта "Delphi", авторское
право на который принадлежит "Borland Software
Corporation".
|