Вверх ↑
Этот топик читают: Гость
Этот топик был перемещен из раздела "Помощь по среде"
Ответов: 19
Рейтинг: 1
#1: 2017-05-15 21:07:53 ЛС | профиль | цитата
В общем я в языках программирования полный ноль. Мне нужно из одного здешнего топика код вставить в hiasm.
Топик старый, наверное раньше таким кодом обменивались. Сейчас гораздо проще, скопировать в проект и все.
Тот, что меня интересует не вставляется так в проект, та и внешне видно что он отличается от тех которые сейчас используются здесь.
И если не затруднит, немного общей информации по этим кодам.
Помогите. Вот код:
Add(MainForm,12122222,336,119) {
Left=20
Top=105
Width=361
}
Add(RichEdit,7202476,476,203)
{
Left=10
Top=40
Width=330
Height=190
ScrollBars=3
Point(doSetSelStart)
Point(doSetSelLength)
}
Add(Button,10967170,336,287)
{
Left=15
Top=10
Caption="Искать"
link(onClick,14696419:doEvent1,[])
}
Add(ODialog,12811954,343,224)
{
link(onExecute,7202476:doLoad,[])
}
Add(Position,13450275,532,287)
{
link(onSearch,1279234:doEvent1,[])
link(Target,4808613:Data1,[])
}
Add(Edit,12569155,539,175)
{
Left=95
Top=10
Width=245
}
Add(GetData,4808613,539,217)
{
link(Data,12569155:Text,[])
}
Add(Length,11953250,623,294)
{
link(onLength,7202476:doSetSelLength,[(658,300)(658,273)(466,273)(466,251)])
link(Str,4808613:Data2,[(629,268)(552,268)])
}
Add(Button,8015160,294,224)
{
Left=10
Top=245
Caption="Файл"
link(onClick,12811954:doExecute,[])
}
Add(Hub,1279234,574,287)
{
link(onEvent1,607685:doOperation,[(615,293)(615,279)(410,279)(410,244)])
link(onEvent2,11953250:doLength,[])
}
Add(Button,14253776,287,140)
{
Left=285
Top=245
Caption="Выход"
link(onClick,12122222:doClose,[])
}
Add(Math,607685,420,238)
{
OpType=1
Op2=1
ResultType=0
link(onResult,7202476:doSetSelStart,[])
}
Add(Hub,14696419,378,287)
{
link(onEvent1,10719860:doReplace,[])
}
Add(Replace,10719860,476,287)
{
SubStr="10"
link(onReplace,13450275:doSearch,[(516,293)(516,293)])
link(Str,7202476:Text,[])
}
Add(InfoTip,10403626,406,203)
{
Info=#30:Уменшаем на 1, т.к. отсчёт с 0|
Width=57
Height=67
}
Add(InfoTip,7328462,455,322)
{
Info=#87:Удаляем символ "/10", который считается в длине, но не считается при установке позиции.|
Width=71
Height=130
}
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 9906
Рейтинг: 351
#2: 2017-05-15 21:39:49 ЛС | профиль | цитата
Ничего не рихтовал (хотя, выкладывать такое - не в моих правилах)

Add(MainForm,12122222,336,119) {
Left=20
Top=105
Width=361
}
Add(RichEdit,7202476,476,203)
{
Left=10
Top=40
Width=330
Height=190
ScrollBars=3
Point(doSetSelStart)
Point(doSetSelLength)
}
Add(Button,10967170,336,287)
{
Left=15
Top=10
Caption="Искать"
link(onClick,14696419:doEvent1,[])
}
Add(ODialog,12811954,343,224)
{
link(onExecute,7202476:doLoad,[])
}
Add(Position,13450275,532,287)
{
link(onSearch,1279234:doEvent1,[])
link(Target,4808613:Data1,[])
}
Add(Edit,12569155,539,175)
{
Left=95
Top=10
Width=245
}
Add(GetData,4808613,539,217)
{
link(Data,12569155:Text,[])
}
Add(Length,11953250,623,294)
{
link(onLength,7202476:doSetSelLength,[(658,300)(658,273)(466,273)(466,251)])
link(Str,4808613:Data2,[(629,268)(552,268)])
}
Add(Button,8015160,294,224)
{
Left=10
Top=245
Caption="Файл"
link(onClick,12811954:doExecute,[])
}
Add(Hub,1279234,574,287)
{
link(onEvent1,607685:doOperation,[(615,293)(615,279)(410,279)(410,244)])
link(onEvent2,11953250:doLength,[])
}
Add(Button,14253776,287,140)
{
Left=285
Top=245
Caption="Выход"
link(onClick,12122222:doClose,[])
}
Add(Math,607685,420,238)
{
OpType=1
Op2=1
ResultType=0
link(onResult,7202476:doSetSelStart,[])
}
Add(Hub,14696419,378,287)
{
link(onEvent1,10719860:doReplace,[])
}
Add(Replace,10719860,476,287)
{
SubStr="10"
link(onReplace,13450275:doSearch,[(516,293)(516,293)])
link(Str,7202476:Text,[])
}
Add(InfoTip,10403626,406,203)
{
Info=#30:Уменшаем на 1, т.к. отсчёт с 0|
Width=57
Height=67
}
Add(InfoTip,7328462,455,322)
{
Info=#87:Удаляем символ "/10", который считается в длине, но не считается при установке позиции.|
Width=71
Height=130
}
карма: 9

0
Ответов: 19
Рейтинг: 1
#3: 2017-05-16 02:40:40 ЛС | профиль | цитата
Ух, спасибище, человек вы дорогой.
Я столько времени потерял пытаясь с тем кодом что-то сделать.
Сейчас гляну наконец то ли это что я ищу.

Я вообще искал альтернативу компоненту searchingFile, так как либо он у меня не работает, либо я не правильно пытаюсь его использовать.
Из хэлпа пример работает.
На точку полного пути к файлу, не пойму что надо. Мне нужно с компонента ListBox брать список строк и в отдельном поле ввода вводить какой либо текст,
И что бы в графическом поле ListBox при частичном совпадении текста высвечивались все строки, где это есть.

Вроде заработало, наверное вчера сильно уставим был.

Add(SearchInFile,9767605,427,448){
Point(String)
Point(onEnd)
link(onSearch,1363450:doSelectString,[(492,461)(492,265)])
link(FileName,14999310:Text,[(433,401)(370,401)])
link(Text,1527755:Text,[])
}
Add(Edit,1527755,434,329)
{
Left=40
Top=230
Width=110
Height=30
Text=""
}
Add(ODialog,16526015,301,238)
{
Filter=".txt"
Point(StartDir)
Point(FileName)
link(onExecute,3076236:doEvent1,[])
}
Add(BitBtn,13215389,238,238)
{
Left=190
Top=60
Width=165
Caption="вставить"
link(onClick,16526015:doExecute,[])
}
Add(ListBox,1363450,525,210)
{
Left=195
Top=95
Width=155
Height=300
SelectAdd=0
MultiSelect=0
Point(doEnsureVisible)
Point(doSelectString)
Point(doSelectAll)
}
Add(BitBtn,12980689,308,448)
{
Left=60
Top=195
Width=70
Caption="поиск"
link(onClick,9767605:doSearch,[])
}
Add(Hub,3076236,350,238)
{
link(onEvent1,1363450:doLoad,[])
link(onEvent2,14999310:doText,[(395,251)(395,282)(332,282)(332,335)])
}
Add(InfoTip,10403626,483,140)
{
Info=#30: в сойствах multiselect=true|
Width=120
Height=165
}
Add(Edit,14999310,364,329)
{
Left=120
Top=400
Width=295
Height=30
Text=""
}



Редактировалось 10 раз(а), последний 2017-05-16 04:52:20
карма: 0

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