.
Delphi. Урок 6. Пишем просмотрщик картинок и изучаем компоненты Delphi: Image, DriveComboBox
Автор megabax   
02.07.2009 г.
<strong>Продолжим изучать поиск и замену. Функция Delphi StringReplace</strong>

Пишем просмотрщик картинок и изучаем компоненты Delphi: Image, DriveComboBox, DirectoryListBox, FileListBox.

 

Сегодня мы перейдем к закладке Additional и рассмотрим компонент Image (картинка)*.

 

Delphi 7 компоненты: Image, DriveComboBox,DirectoryListBox, FileListBox

 

Положим его на форму, присвоим идентификатор imTest. Самой форме назначим имя frmTestImage.

Так же положим на форму компонент DriveComboBox, назвал его dcbTest*:

 

Delphi 7 компоненты: Image, DriveComboBox,DirectoryListBox, FileListBox

 

Нам еще понадобиться DirectoryListBox (свойство Name поставим drbTest)*.

 

Delphi 7 компоненты: Image, DriveComboBox,DirectoryListBox, FileListBox

 

И FileListBox (назовем его flbTest)*.

 

Delphi 7 компоненты: Image, DriveComboBox,DirectoryListBox, FileListBox

 

Примерно так у нас должна выглядеть форма, после того, как мы разместим на ней вышеназванные компоненты*

 

Delphi 7 компоненты: Image, DriveComboBox,DirectoryListBox, FileListBox

 

 

«Встанем» на компонент DriveComboBox и установим свойство DirList. У нас должно дать выбрать из списка только drbTest*

 

Delphi 7 компоненты: Image, DriveComboBox,DirectoryListBox, FileListBox

 

Теперь встанем на 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 7 компоненты: Image, DriveComboBox,DirectoryListBox, FileListBox

 

 


Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями   программного продукта "Delphi", авторское право на который принадлежит "Borland Software Corporation".


 

Последнее обновление ( 23.06.2012 г. )