Собственно я вот чего хотел сказать, но был не в состоянии:
http://forum.hiasm.com/getfile/38335
В компоненте StrListEx многострочные тексты добавляются, как одна строка оканчивающаяся нулём.
Надо обратить внимание на StoreFormat. Это способ хранения строк в файле (для методов сохранения/загрузки из файла/потока). Text - строки в файле разделяются байтами перевода строки 0D0Ah. Эти символы не могут содержаться в самих строках. Binary - строки разделяются байтом 00h.
Многострочные тексты добавляются в список из потока или поля str, как одна строка через doAdd.
Это было сделано специально для многострочных подсказок.
Раньше я делал так:
Add(ChildForm,11836615,805,126)
{
}
BEGIN_SDK
Add(EditMulti,15003133,21,21)
{
EventCount=1
WorkCount=4
VarCount=2
Width=503
Height=340
link(doWork1,7849133:doEvent1,[(45,27)(45,62)])
link(doWork2,1564723:doVisible,[(35,34)(35,139)])
link(doWork3,1564723:doCaption,[(35,41)(35,111)])
link(doWork4,4841449:doLoad,[(182,48)(182,258)])
}
Add(MainForm,1564723,49,105)
{
Left=35
Top=105
Width=508
Height=229
Visible=1
Caption="комментарий"
BorderStyle=4
Point(doVisible)
link(onDeactivate,4841449:doSave,[(205,118)(205,265)])
}
Add(Button,9887133,91,175)
{
Top=185
Caption="OK"
link(onClick,11421190:doEvent1,[])
}
Add(Memo,5902294,238,49)
{
Width=506
Height=180
ScrollBars=2
}
Add(Memory,10872048,259,126)
{
}
Add(DoData,10419727,259,182)
{
link(onEventData,4841449:doReplace,[(317,188)(317,279)])
link(Data,10872048:Value,[])
}
Add(Hub,11421190,175,175)
{
OutCount=3
link(onEvent1,54857:doReplace,[(201,181)(201,163)(121,163)(121,139)])
link(onEvent2,10419727:doData,[])
link(onEvent3,1564723:doClose,[(201,195)(201,163)(23,163)(23,132)])
}
Add(Replace,54857,126,133)
{
SubStr="\r\n"
DestStr=""
link(onReplace,2221787:doValue,[(184,139)(184,160)(30,160)(30,174)])
link(Str,5902294:Text,[(132,124)(244,124)])
}
Add(Memory,2221787,42,168)
{
}
Add(StrList,4841449,343,224)
{
FileName="hhhh"
Point(doGetString)
Point(onGetString)
Point(doReplace)
link(Str,2221787:Value,[(349,212)(48,212)])
link(onGetString,15846449:doReplace,[(383,237)(383,251)])
}
Add(Hub,7849133,70,56)
{
link(onEvent1,4841449:doGetString,[(214,62)(214,272)])
link(onEvent2,10872048:doValue,[(172,69)(172,132)])
}
Add(Hub,14923393,182,28)
{
OutCount=3
link(onEvent1,15003133:onEvent1,[(360,34)(360,27)])
link(onEvent2,5902294:doClear,[(217,41)(217,62)])
link(onEvent3,5902294:doAdd,[(217,48)(217,55)])
}
Add(Replace,15846449,392,245)
{
SubStr=""
DestStr="\r\n"
link(onReplace,14923393:doEvent1,[(436,251)(436,143)(170,143)(170,34)])
}
END_SDK
Будем надеется, что понятно.
Башка трещит...
3,5 пузыря вчера на грудь принял, не считая пива, а здоровье уже не то.
Надо обороты сбавлять!
Понимаю, что неправильное похмелье приводит к длительному запою.
Поиск
Друзья
Администрация