Создание "иконок" для отображения графических файлов

[Губин Игорь]

Порождено темой "Стоит ли использовать кларион".

Сам я этим не сталкивался, да и непосредственно сейчас не требуется, т.ч. просто из любопытства и на будущее:

Не занимался ли кто-нибудь из уважаемого сообщества следующей задачей:

Есть некие графические файлы стандартных форматов (большие). Требуется из них автоматически, используя только средства кларион и windows api, создать "иконки" стандартного размера для показа в списке.

[Yufil]

Обрати взор на Clarion FreeImage

[Губин Игорь]

Спасибо

[kreator]

Игорь! Полгода назад случайно обнаружил, что Image влёгкую подсовывается в Browse вместо иконки без FreeImage. Если надо, напишу, что надо сделать. Есть пока начальный этап (без развития), просто оказалось, что этого достаточно, что получилось.

[Губин Игорь]

Буду благодарен.

[Admin]

Игорь! Полгода назад случайно обнаружил, что Image влёгкую подсовывается в Browse вместо иконки без FreeImage. Если надо, напишу, что надо сделать. Есть пока начальный этап (без развития), просто оказалось, что этого достаточно, что получилось.

Будет всем интересно. Так что просьба отвечать в тред.
Спасибо.

[Yufil]

Ну так есть Grid Template в ABC и пример с цветочками в Example'ах.
Но просили-то именно иконки...

[kreator]

Делаем Browse.

LOC:Image - переменная типа BYTE, она всегда равна 0. На этот столбец ставим transparent icon. Зеленый фон нужен только лично мне, потому что я подсовываю жёлтые transparent gif'ы.
В Actions броуза на закладке Icons ставим какую-нибудь иконку. При этом шаблоны генерят вот такой текст:

?List{PROP:IconList,1} = '~pics\stop.ico'

Далее. В точку вставки ResetQueue до Parent Call пишем:

LOC:ImageNumber = 0

Далее. В точку вставки SetQueueRecord до Parent Call пишем:

LOC:ImageNumber += 1
?List{PROP:IconList,LOC:ImageNumber} = clip(GLO:PathResource)&SPRAV.S_NAME

где GLO:PathResource - папка хранения картинок, SPRAV.S_NAME - название файла в базе.
Ну и в точку вставки SetQueueRecord после Parent Call пишем:

SELF.Q.LOC:Image_Icon = LOC:ImageNumber

Всё работает. Единственное, надо задать List line height соответствующий и ширину столбца тоже.

[gopstop2007]

Ну и в точку вставки SetQueueRecord после Parent Call пишем:

SELF.Q.LOC:Image_Icon = LOC:ImageNumber

Всё работает. Единственное, надо задать List line height соответствующий и ширину столбца тоже.

Попробовал сделать, работает, поставлял BMP для пробы, единственное надо еще найти строку в SetQueueRecord после Parent Call типа
SELF.Q.LOC:Image_Icon = 1 , которая создается app автоматически при создании иконки и

Код: Выделить всё

  IF LOC:ImageNumber = 0 ! нет изображения ставим иконку по умолчанию        
	  SELF.Q.l_Images_Icon = 1                                 ! Set icon from icon list
  END

А в С10 аналогичного готового нет?

[kreator]

А в С10 аналогичного готового нет?

Не понял, при чём здесь C10? Всё аналогично. Кстати, если вопрос стоит об отображении иконок графических файлов в списке, то есть решение через реестр.

[gopstop2007]

Не понял, при чём здесь C10?

Я имел ввиду кроме BrowseGrid, что то еще появилось?

Кстати, если вопрос стоит об отображении иконок графических файлов в списке, то есть решение через реестр.

Реестр, а он каким боком? Можно поподробнее?

[kreator]

Реестр, а он каким боком? Можно поподробнее?

Я чего-то тормознул. Прочитал первый пост не внимательно, думал речь идёт об иконках соответствия графическим файлам.

Я имел ввиду кроме BrowseGrid, что то еще появилось?

List сейчас у SV без развития, наверно, считают, что все возможности уже реализованы .

[Admin]

наверно, считают, что все возможности уже реализованы

Скорее просто нихрена не умеют сделать его более навороченным. Или им не нужно.
Лист один из главных контролов, но у нас он а ля Window 3.1
Вот вытащили бы исходники листа наружу. Было бы прелестно. Хотя бы ownerdraw метод какой нибудь, для строки.

[Admin]

Или Clarion внутри такая солянка, что встраивать в него что то новое нереально.

[kreator]

Скорее просто нихрена не умеют сделать его более навороченным. Или им не нужно.

Банально нет запроса на разработку. А так они всегда выполняют, естественно при критической массе требований . Помню как некоторое время назад здесь удивлялся "а кто это потребовал подкраски хэдеров листбокса"? Ведь сделали чертяки!!!