Основное меню
Главная
Написать мне
Гостевая
Новости сайта

Статьи
О Языках программирования
Delphi
Visual Basic
JavaScript
VBScript

Мои программы
CLOCK
CD-organizer
Delphi. Пишем прогу просмотра картинок

Delphi. Пишем прогу просмотра картинок


 Ну дарова тебе, глубоко увожаемый ALL !!! У всех наверно на компьютерах стоит такая полезная программа ACDsee... Ну вот, пора вытеснить её с рынка просмоторщиков... :-))))))) (если у тебя получится напиши мне :-) ) Напишем мы сегодня примитивную прогу для просмотра картинок под название ImageView на Delphi причём с ОДНОЙ строчкой кода!!! (правда это тока мы нпишем одну строчку, а дельфи создаст все остальные) ... Ну чего, готов? Поехали!!!

 Создавай новый проэкт, сохраняй его(проэкт) под именем ШьфпуМшуц, ой не, чего-то не то... А-а-а-а я забыл раскладку поменять ;-) !!! Под имене ImageView его сохраняй!!! Затем кидай со вкладки WIN 3.1 на форму TDriveComboBox , TFileListBox , TDirectoryListBox , затем со вкладки Additional кидай на форму компонент TImage .
Посмотри как у меня получилось:



 Ну ещё надо поменять св-ва этих компонентов след образом:

TDriveComboBox
Name: DriveCombo
DirList: выбери DirList(это наш компонент)
TDirectoryListBox
Name: DirList
FileList: выбери FileList(это тоже наш компонент)
TFileListBox
Name: FileList
Mask: *.bmp;*.ico;*.wmf;*.emf
TImage
Name: Image
Proportional: True
Ну думаю всё понятно с этими св-вами, но на всякий случай обьясню! В TDriveComboBox мы к нему привязывали TDirectoryListBox, чтобы из-за изменений в DriveCombo, менялось содержимое в DirList. В св-ве FileList, нашего компонента DirList, тоже самое! Ещё в свойстве MASK компонента TFileListBox будут отображаться тока файлы с указаными разширениями. В TImage, св-во Proportional у нас стоит True, это значит что если у нас большая картинка, и она не помещается в TImage, то тогда картинка ПРОПОРЦИОНАЛЬНО уменьшается.

А вот теперь и настала пора написать эту одну строчку кода. Выдели наш компонент FileList, перейди на вкладку Events в ObjectInspectoe`е, находи поле OnDblClick, (это когда мы двойным щелчком кликаем по компоненту) кликни по этому полю два раза и в созданной дельфи процедурой пиши следующее:

Image.Picture.LoadFromFile(FileList.Filename);

Как показавает эта строчка мы загружаем картинку в Image из файла по которому ты 2 раза шмякнул...

Ну вроде всё. Если чего не понял пиши на vostepan@mail.ru

На всякий случай исходняк(5,09 kb)