Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26303
Рейтинг: 2146
#16: 2012-09-20 17:38:26 ЛС | профиль | цитата
Tad писал(а):
Редактором массива

Но это же загрузка в ресурсы приложения, черт его знает, как она там работает Очень может быть, что не через KOL-ский метод Icon.LoadFromFile, а сделано на уровне ядра HiAsm-a
карма: 22

0
Ответов: 301
Рейтинг: 11
#17: 2012-09-20 17:38:43 ЛС | профиль | цитата
вот здесь видео урок по теме: http://www.youtube.com/watch?NR=1&v=xd8nd6J-GUk&feature=endscreen
карма: 0

0
Разработчик
Ответов: 26303
Рейтинг: 2146
#18: 2012-09-20 17:41:41 ЛС | профиль | цитата
Ну причем здесь загрузка в ресурсы и чтение внешних файлов. Откуда вы знаете, что надо TC Я не думаю, что ТС не знает о такой возможности менеджера иконок, как заполнение свойства Icons вручную
карма: 22

0
Ответов: 5446
Рейтинг: 323
#19: 2012-09-20 19:48:24 ЛС | профиль | цитата
ТС очень даже знает. Но перспектива запихивания 380 иконок его, мягко говоря, не вдохновляет.
карма: 1

0
Разработчик
Ответов: 26303
Рейтинг: 2146
#20: 2012-09-20 20:21:06 ЛС | профиль | цитата
iarspider писал(а):
Но перспектива запихивания 380 иконок его, мягко говоря, не вдохновляет

А кто мешает их сделать квадратными одного размера
карма: 22

0
Ответов: 5446
Рейтинг: 323
#21: 2012-09-20 21:06:10 ЛС | профиль | цитата
nesco, так и сделал...
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#22: 2012-09-20 22:22:30 ЛС | профиль | цитата
nesco писал(а):
Ну причем здесь загрузка в ресурсы и чтение внешних файлов.
Значит в WorkIconsManager надо делать свой LoadFromFile или добавлять дефолтную иконку и
#pas
Icon.Clear;
Icon.LoadFromFile(fn);
If Icon.empty then Icon.LoadFromFile('default.ico');
dtIcon(dt,Icon);
Тогда как на этой картинке
problem2.png
------------ Дoбавленo в 22.21:
опять проблемы с картинками а размер правильный
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1problem2.png [18.8KB] [413]
Ответов: 1536
Рейтинг: 176
#23: 2012-09-20 22:38:20 ЛС | профиль | цитата
Действительно, не все иконки грузяться. Размер сторон, похоже, не является причиной.
Add(MainForm,11479515,203,245)
{
Width=920
Height=279
link(onCreate,3794899:doString,[])
}
Add(Browse,15620208,329,105)
{
link(onBrowse,6365191:doSearch,[])
}
Add(Button,12134254,196,105)
{
Left=15
Top=15
Caption="Поиск"
link(onClick,4794569:doWork2,[])
}
Add(ListBox,351526,448,105)
{
Left=85
Top=15
Width=705
Height=200
DataType=1
link(onClick,10499543:doWork1,[(546,118)])
}
Add(FileSearch,6365191,385,105)
{
Ext="*.ico"
link(onSearch,351526:doAdd,[])
}
Add(Thread,16408594,273,105)
{
Delay=100
FastStop=0
link(onExec,15620208:doBrowse,[])
}
Add(ArrayEnum,5678814,462,168)
{
link(onItem,16232132:doEvent1,[])
link(Array,351526:Array,[])
}
Add(Button,4990035,196,147)
{
Left=15
Top=45
Caption="Стоп"
link(onClick,6365191:doStop,[(371,153)(371,118)])
}
Add(Button,6132113,406,168)
{
Left=160
Top=220
Width=110
Caption="Конвертировать"
link(onClick,5678814:doEnum,[])
}
Add(Hub,16232132,504,168)
{
link(onEvent1,10499543:doWork3,[(546,174)])
link(onEvent2,9871802:doEvent1,[(542,181)(542,223)])
}
Add(Dir,1770410,294,203)
{
link(onEnd,4794569:doWork3,[(338,209)(338,161)(263,161)])
}
Add(FormatStr,3794899,294,259)
{
DataCount=1
Mask="%1images_"
Point(FString)
link(onFString,1770410:doDir,[(338,265)(338,253)(282,253)(282,209)])
link(Str1,1770410:CurrentDir,[])
}
Add(PictureStream,12201292,560,154)
{
Quality=100
link(onLoad,14905486:doResize,[])
}
Add(Image,11342484,665,154)
{
Left=800
Top=55
Width=100
Height=100
ViewStyle=1
}
Add(DoData,15280968,665,217)
{
link(onEventData,14365900:doLoadFromBitmap,[])
link(Data,11342484:ImageBitmap,[])
}
Add(Hub,9871802,567,217)
{
link(onEvent1,15280968:doData,[])
link(onEvent2,5868446:doPart,[(599,230)(599,300)])
}
Add(Icon,14365900,721,203)
{
Transparent=-16777201
Point(doLoadFromBitmap)
}
Add(FilePartElm,5868446,616,294)
{
Point(Part)
link(onPart,5749677:doString,[])
}
Add(FormatStr,5749677,665,294)
{
Mask="%1images_\%2"
Point(FString)
link(onFString,14365900:doSave,[(712,300)(712,216)])
link(Str1,3611341:CurrentDir,[])
}
Add(Dir,3611341,665,252)
{
}
Add(Resize,14905486,609,154)
{
Width=64
Height=64
link(onResult,11342484:doLoad,[])
link(Width,1161961:Var1,[(622,138)])
link(Height,1161961:Var2,[])
}
Add(ComboBox,15273991,616,77)
{
Left=285
Top=220
Width=95
Height=21
Strings=#2:32|2:64|3:128|
Text="64"
ReadOnly=0
}
Add(GetDataEx,1161961,623,133)
{
link(Data,15273991:String,[])
}
Add(HubEx,4794569,259,105)
{
link(onEvent,16408594:doStart,[])
}
Add(Button,10569121,406,217)
{
Left=390
Top=220
Caption="Стоп"
link(onClick,5678814:doStop,[(451,223)(451,181)])
}
Add(HubEx,10499543,542,154)
{
link(onEvent,12201292:doLoad,[])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Разработчик
Ответов: 26303
Рейтинг: 2146
#24: 2012-09-20 22:57:12 ЛС | профиль | цитата
ser_davkin писал(а):
Размер сторон, похоже, не является причиной

При загрузке иконок компонентом PictureStream работает тот же метод Icon.LoadFromFile
карма: 22

0
Ответов: 5446
Рейтинг: 323
#25: 2012-09-22 21:11:33 ЛС | профиль | цитата
Если кому интересно - при закрытии схема стабильно выдаёт Runtime error 216 at 000XXXXX. Использовав "Секретную технику HiAsm-кунг-фу" /тм/, определил виновника:
#pas
hiComboBox.pas(122) Target address found.
_prop_IndexManager.removeControl(Control);
Схему прилагаю.
карма: 1

0
файлы: 1z.sha [4KB] [416]
Ответов: 16884
Рейтинг: 1239
#26: 2012-09-22 21:45:59 ЛС | профиль | цитата
Не подтверждается
У меня всё тихо и мирно.
W7 32
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Гость
Ответов: 17029
Рейтинг: 0
#27: 2012-09-22 22:31:10 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2021-05-21 08:11:43
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#28: 2012-09-22 22:32:17 ЛС | профиль | цитата
iarspider, а упростить ?
code_29137.txt
А нижнюю ветвь, помоему, вообще можно решить одним (первым) запросом.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1code_29137.txt [3.6KB] [209]
Голосовали:iarspider
Ответов: 5446
Рейтинг: 323
#29: 2012-09-22 22:54:12 ЛС | профиль | цитата
Tad, можно и упростить...
карма: 1

0
Ответов: 1536
Рейтинг: 176
#30: 2012-09-23 03:20:45 ЛС | профиль | цитата
iarspider писал(а):
при закрытии схема стабильно выдаёт Runtime error 216 at 000XXXXX.
Подтверждаю (winXP_sp3_32).
Tad, и с твоей упрощённой схемой тоже подтверждаю ошибку при закрытии.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)