Вверх ↑
Этот топик читают: Гость
Ответов: 327
Рейтинг: 5
#1: 2013-08-27 11:50:52 ЛС | профиль | цитата
Предположим имеется файл save.program, в нем следующие данные :
server1;set1;http://1
server2;set2;http://2

Способ вывода :
Add(MainForm,2953706,140,301)
{
}
Add(ListBox,2035056,504,252)
{
Left=5
Top=85
Width=85
}
Add(ListBox,7037747,504,308)
{
Left=120
Top=85
Width=95
}
Add(ListBox,1977828,504,364)
{
Left=240
Top=85
Width=105
}
Add(Str_Enum,13812591,371,294)
{
link(onEnum,2019843:doEvent,[])
}
Add(StrList,9772938,315,238)
{
@Hint=#25:Замена файлу save.program|
Strings=#21:server1;set1;http://1|21:server2;set2;http://2|
AddHint(-57,-50,155,13,@Hint)
}
Add(IndexToChanel,2019843,420,294)
{
Count=4
Point(Index)
link(onEvent2,2035056:doAdd,[(478,307)(478,258)])
link(onEvent3,7037747:doAdd,[])
link(Index,13812591:NumSubStr,[(426,282)(402,282)(402,338)(377,338)])
link(onEvent4,1977828:doAdd,[(478,321)(478,370)])
}
Add(ArrayEnum,6679430,329,294)
{
link(onItem,13812591:doEnum,[])
link(Array,9772938:Array,[])
}
Add(Button,11573609,280,294)
{
Left=105
Top=35
Caption="Load"
link(onClick,6679430:doEnum,[])
}


Вопрос такой...
Если в примере загрузка происходит после нажатия на кнопку, то как сделать чтобы это происходило при запуске программы(имеется ввиду запуск с помощью файла save.program , а не program.exe)?

Для лишней уверенности что меня поняли...
При запуске Project.sha происходит запуск программы HiAsm и загрузка данных из этого файла.
карма: 0

0
файлы: 1code_31677.txt [893B] [181]
Ответов: 4630
Рейтинг: 749
#2: 2013-08-27 11:59:06 ЛС | профиль | цитата
А как файл save.program может сам запускаться?
карма: 26

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2013-08-27 11:59:06 правка | ЛС | профиль | цитата


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

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#4: 2013-08-27 12:13:41 ЛС | профиль | цитата
knoot0279 писал(а):
При запуске Project.sha происходит запуск программы HiAsm и загрузка данных из этого файла.

См реализацию такого принципа в RegTools вот здесь -- http://www.hiasm.com/sha/shatools.php?q=5&id=173
карма: 22

0
Ответов: 327
Рейтинг: 5
#5: 2013-08-27 12:43:42 ЛС | профиль | цитата
nesco писал(а):
См реализацию такого принципа в RegTools вот здесь

Add(MainForm,2953706,21,105)
{
link(onCreate,14838499:doRead,[])
}
Add(Application,14838053,63,77)
{
}
Add(ListBox,9132345,112,119)
{
Width=320
Height=260
}
Add(ArrayRW,14838499,70,119)
{
Index=Integer(0)
link(onRead,9132345:doAdd,[])
link(Array,14838053:Params,[])
}


Благодарю.
------------ Дoбавленo в 12.43:
А как иконку нормальную присвоить?

карма: 0

0
файлы: 1code_31679.txt [275B] [153]
Разработчик
Ответов: 26151
Рейтинг: 2127
#6: 2013-08-27 12:51:09 ЛС | профиль | цитата
knoot0279 писал(а):
А как иконку нормальную присвоить?

ЕМНИП, то только 32х32 понимается
карма: 22

0
Ответов: 327
Рейтинг: 5
#7: 2013-08-27 14:28:57 ЛС | профиль | цитата
Да нет... Я имел ввиду где прописать путь для загрузки иконки к файлу, нашел уже.
------------ Дoбавленo в 14.28:
И все же нет, не разобрался...
Add(Registry,16565181,217,238)
{
HKey=0
Key=".helpershellopencommand"
link(Value,6271179:Var2,[])
}
Add(Memory,7410982,231,175)
{
}
Add(Application,1466908,168,161)
{
}
Add(FormatStr,14053207,168,245)
{
Mask=""%1" "%%1""
link(onFString,16565181:doWrite,[])
link(Str1,1466908:AppFileName,[])
}
Add(Registry,11802035,217,308)
{
HKey=0
Key=".helper"
Data="helper"
link(Value,6271179:Var3,[(237,277)(257,277)(257,229)])
}
Add(GetDataEx,6271179,231,224)
{
link(Data,7410982:Value,[])
}
Add(Hub,3572619,119,245)
{
link(onEvent1,14053207:doString,[])
link(onEvent2,11802035:doWrite,[(150,258)(150,321)])
}


Это для ассоциации файла.

А как иконку присвоить так и не понял, выручайте...
карма: 0

0
Ответов: 4630
Рейтинг: 749
#8: 2013-08-27 14:50:44 ЛС | профиль | цитата
code_31681.txt
карма: 26

0
файлы: 1code_31681.txt [847B] [334]
Ответов: 327
Рейтинг: 5
#9: 2013-08-27 15:05:01 ЛС | профиль | цитата

Это не круто...
------------ Дoбавленo в 15.05:

Вот иконка самой программы
карма: 0

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#10: 2013-08-27 15:07:41 ЛС | профиль | цитата
knoot0279 писал(а):
Вот иконка самой программы

Так найди ее индекс в ресурсах и подставь
карма: 22

0
Ответов: 327
Рейтинг: 5
#11: 2013-08-27 15:11:23 ЛС | профиль | цитата
nesco писал(а):
ее индекс

не понял...
карма: 0

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#12: 2013-08-27 15:15:02 ЛС | профиль | цитата
knoot0279 писал(а):
не понял...

Вот здесь, после запятой, указан индекс иконки из ресурсов твоего ПО

Add(FormatStr,819237,371,315)
{
Mask=""%1",0"
}

Сейчас там ноль, замени его на нужный тебе индекс
карма: 22

0
Ответов: 327
Рейтинг: 5
#13: 2013-08-27 15:18:28 ЛС | профиль | цитата
Пардон, а откуда я узнаю индекс?
карма: 0

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#14: 2013-08-27 15:55:46 ЛС | профиль | цитата
Смотри, сколько иконок в ZSStorage Manager-е, там указан индекс 4

icons_zx_001.png
------------ Дoбавленo в 15.21:
knoot0279 писал(а):
Пардон, а откуда я узнаю индекс?

Или прогами, типа приведенной, или сам напиши на HiAsm-e. Можно тупо индексы подобрать. Че, трудно подставить разные цифры
------------ Дoбавленo в 15.55:
knoot0279, на тебе прожку на HiAsm-e, которая читает индексы иконок в ресурсах. Может еще кому пригодится

Add(MainForm,2953706,168,210)
{
Width=453
Height=341
Position=1
}
Add(MTStrTbl,13812633,448,210)
{
Width=437
Height=265
Align=2
Name="tab"
Columns=#4:Name|
Style=0
SmallIconsManager="icon"
LargIconsManager="icon"
}
Add(Button,780773,168,252)
{
Left=190
Top=275
TabOrder=-1
Caption="Load"
link(onClick,6229911:doExecute,[])
}
Add(IconsManager,7057778,399,210)
{
Name="icon"
ImgSize=24
Icons=[]
}
Add(ODialog,6229911,224,252)
{
Filter="exe, dll, ocx, icl|*.exe;*.dll;*.ocx;*.icl"
link(onExecute,12776804:doEvent1,[])
}
Add(WorkIconsManager,12177475,343,252)
{
IconsManager="icon"
Point(doLoadPakIcons)
Point(EndIdxIcons)
}
Add(Hub,12776804,287,252)
{
OutCount=3
link(onEvent1,13281248:doClear,[(312,258)(312,216)])
link(onEvent2,12177475:doLoadPakIcons,[])
link(onEvent3,7914671:doFor,[(333,272)(333,321)])
}
Add(MST_Clear,13281248,343,210)
{
MSTControl="tab"
link(onChange,7057778:doClearIcons,[])
}
Add(MST_RowAction,11898110,448,315)
{
MSTControl="tab"
}
Add(MT_Add,15833562,399,315)
{
link(onAdd,11898110:doRowAction,[])
link(Data,7914671:Position,[(405,306)(489,306)(489,355)(356,355)])
}
Add(For,7914671,350,315)
{
link(onEvent,15833562:doAdd,[])
link(End,12177475:EndIdxIcons,[])
}
карма: 22

0
файлы: 1icons_zx_001.png [69.7KB] [548]
Ответов: 327
Рейтинг: 5
#15: 2013-08-27 16:16:20 ЛС | профиль | цитата
Спасибо
карма: 0

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