Программирование - это просто
Advertisement
Главная arrow Уроки Delphi arrow Delphi - это просто! arrow Delphi. Урок 6. Пишем просмотрщик картинок и изучаем компоненты Delphi: Image, DriveComboBox
18.04.2024 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Delphi. Урок 6. Пишем просмотрщик картинок и изучаем компоненты Delphi: Image, DriveComboBox Печать E-mail
Автор 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 г. )
 
« След.   Пред. »
 
© 2024 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги