Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как вставит картинки TImage [D7, WinXP]

Shik0 © (2008-08-02 18:45:00)
провет всеем ,помагите пожалуста ,
дело так,в папке есть картинки несколько, как узнат сколько там их и после этого все картинки показат на форме (TImage).каждому картинку будит вставлено компонент TImage заранее.

Dennis I. Komarov (2008-08-04 12:40:00) [1]
> Я же не знаю, на что у автора "заточена" программа.

А телепатор тебе на что? :)

Ega23 (2008-08-04 11:30:00) [2]

> Вообще-то ACDSee создаёт базу превьюшек, поэтому первый
> раз грузит папку долго, зато после достаточно быстро.

Я же не знаю, на что у автора "заточена" программа. Я бы вообще не так делал : вывел бы файлы с поддиректориями в дерево, а на текущий установил бы превью.

Плохиш (2008-08-04 11:27:00) [3]

> ACDSee же грузит.

Вообще-то ACDSee создаёт базу превьюшек, поэтому первый раз грузит папку долго, зато после достаточно быстро.

Dennis I. Komarov (2008-08-04 11:23:00) [4]
Ну не все же сразу "по полной". Чего сравниваешь продукт с "TForm и много TImage" :)

(2008-08-04 11:08:00) [5]
Удалено модератором

(2008-08-04 11:06:00) [6]
Удалено модератором

Ega23 (2008-08-04 11:02:00) [7]

> в папке есть картинки несколько, как узнат сколько там их
> и после этого все картинки показат на форме (TImage).каждому
> картинку будит вставлено компонент TImage заранее.

1. Определить, сколько нужных файлов в директории. Для этого пройтись по директории через FindFirst - FindNext, получить имена файлов.
2. Далее, каждый из файлов проверить на то, что это файл-картинка. Либо посмотреть расширение, либо (что более правильно) прочитать сигнатуру файла.
3. Создать на форме нужное количество экземпляров TImage
4. Загрузить в каждый изображение.

(2008-08-04 10:48:00) [8]
Удалено модератором

Сергей М. (2008-08-02 22:22:00) [9]
Примерно так:

for КаждыйКартинок in СколькоИхТам do
ВставитьОтдельныйTImageЗаранее(КаждыйКартинок, Top, Left)

(2008-08-02 19:02:00) [10]
Удалено модератором

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »