Image предпросмотр как "крупные значки" в explorer

gopstop2007

kreator писал(а): 23 Апрель 2017, 14:49 gopstop2007, а Вам нужно прямо дерево каталогов? Или достаточно отобразить только файлы из каталога с подкаталогами (без перемещения по каталогам)?

Вначале выбрать каталог и отобразить файлы в виде картинок-фоток

kreator

Вот у меня есть такой вариант:

Правда, у меня фотографии собираются сами из определённых каталогов в зависимости от выбора в левом броузе. Вопрос всё же мне не понятен - нужно ли отображение деревянного списка каталогов? Может достаточно кнопки выбора нужного каталога (на кнопке висит вызов FileDialog'а банально)? Самому нарисовать проводник как в Винде, по-моему, слишком затратно, если не сказать нереально.
Есть ещё сумасшедшая мысль. Программно вызывать проводник Windows, как-то узнать хэндл окна проводника, и через SetParent сделать проводник дочерним к Вашему окну. Другое дело - что дальше? Как, например, указать местоположение и размеры этого дочернего окна? Может гуру подскажут.

gopstop2007

kreator писал(а): 23 Апрель 2017, 17:54 Вот у меня есть такой вариант:

Такое мне и надо, не подскажете как реализовали? Премного Вам буду благодарен.

kreator писал(а): 23 Апрель 2017, 17:54 Правда, у меня фотографии собираются сами из определённых каталогов в зависимости от выбора в левом броузе.

Собираются куда, в БД, в очередь и т.п.?

kreator писал(а): 23 Апрель 2017, 17:54Может достаточно кнопки выбора нужного каталога (на кнопке висит вызов FileDialog'а банально)?

Именно мне это и нужно, клиент выбрал каталог перед присвоением фоток и все.

kreator писал(а): 23 Апрель 2017, 17:54Самому нарисовать проводник как в Винде, по-моему, слишком затратно, если не сказать нереально.Есть ещё сумасшедшая мысль. Программно вызывать проводник Windows, как-то узнать хэндл окна проводника, и через SetParent сделать проводник дочерним к Вашему окну. Другое дело - что дальше? Как, например, указать местоположение и размеры этого дочернего окна? Может гуру подскажут.

Аналогичное у меня работает через Drag and drop, но занимает много места

kreator

gopstop2007 писал(а): 23 Апрель 2017, 18:27 Собираются куда, в БД, в очередь и т.п.?

Ссылки на фото лежат в БД (фото в разных каталогах). Запросом вытаскиваю ссылки на фото и создаю контролы. Создаётся при этом очередь регионов, где хранится специфическая информация. Вам может она не нужна.

gopstop2007 писал(а): 23 Апрель 2017, 18:27 Такое мне и надо, не подскажете как реализовали? Премного Вам буду благодарен.

Принцип такой. В родительском окне есть вызов дочернего окна (открывается новый тред, чтобы можно было управлять событиями). Потом SetParent'ом окна склеиваются. В дочернем создаются имиджи. И т.д.
Могу попробовать как-то вырезать из своего проекта процедуру для рисования дочернего окна. Или ещё и родительское окно. Не знаю как лучше сделать. И чтобы проблем не было со словарём, с глобальными данными. Какой вариант Вас устроит?

gopstop2007

kreator писал(а): 23 Апрель 2017, 18:56 Какой вариант Вас устроит?

Смотрите в личку

Yufil · Сообщение **Yufil** » 24 Апрель 2017, 9:34

Совсем не по делу:
В clarion6\examples\How-to-ABC\Brgrid - как раз оно, даже пользовался когда-то...
И ещё были бесплатные шаблоны ClarionFreeImage, там можно, например, смасштабировать картинку для thumbnail...

kreator

Yufil писал(а): 24 Апрель 2017, 9:34 В clarion6\examples\How-to-ABC\Brgrid - как раз оно, даже пользовался когда-то...

На самом деле УГ. Для конца прошлого века сойдёт...

Yufil · Сообщение **Yufil** » 24 Апрель 2017, 11:01

Ну так в конце прошлого века и пользовал. Но изучение текста оказалось полезным...

kreator

Смотрите вариант. На всякий случай вложил equates.clw, там мои цвета.

PhotoViewer.rar: (34.06 КБ) 114 скачиваний

gopstop2007

Огромное спасибо kreator, то что мне надо было.

Запустил, в целом все работает, из сразу замеченных недостатков, при потере фокуса окна с миниатюрами, миниатюры пропадают.
Но это не умаляет возможностей приложения!

Сообщение **Admin** » 28 Апрель 2017, 10:21

Ага, и при ресайзе. Это заготовка для доработки.
И еще бы подгрузку картинок на таймер повесить.
Что бы окно не умирало при загрузке большого каталога.

kreator

Пока пользователи не слишком пока пользуются, поэтому не вылизано. Плюс есть неразрешимые проблемы, хотелось бы вылизать и решить, может и совместно.

gopstop2007 писал(а): 28 Апрель 2017, 8:17 при потере фокуса окна с миниатюрами, миниатюры пропадают.

А можно поподробнее, я что-то не замечал.

Admin писал(а): 28 Апрель 2017, 10:21 Ага, и при ресайзе. Это заготовка для доработки.

При ресайзе я явно хайдю окно, если по тексту посмотреть. Потому что приходится дочернее окно делать сиротой и заново искать ему родителя.
Вообще достаточно хорошо дочернее окно работает, если мышкой явно его выбрать (кликнуть на какую-нибудь миниатюру, или подёргать за полосу прокрутки). Не смог решить проблему программного позиционирования курсора в дочернем окне (Select отказывается работать).

kreator писал(а): 28 Апрель 2017, 10:44Не смог решить проблему программного позиционирования курсора в дочернем окне (Select отказывается работать).

Можно попробовать например SendMessage(ctrl_hwnd, WM_SETFOCUS), если стандартные средства не работают.

gopstop2007

kreator писал(а): 28 Апрель 2017, 10:44 А можно поподробнее, я что-то не замечал.

Переключаюсь на любое другое окно винды, возвращаюсь картинок нет

надо время, чтобы вникнуть в код

gopstop2007

Все выше указанные проблемы были в win7 x32, запустил в win8 x64 - смотрим ниже