Вверх ↑
Этот топик читают: Гость
Ответов: 1416
Рейтинг: 97
#106: 2018-01-29 13:40:17 ЛС | профиль | цитата
Чтобы не было перенаселения точек, выведены самые очевидные и некоторые объединяют несколько функций, логически вытекающих друг из друга.
Все функции имеют 2-3 параметра, по этому пришлось-бы вывести ещё порядка полусотни точек.
Для экзотических вариантов применения функций и их сочетаний есть возможность вызова фукций посылкой сообщения к Handle.
Пример:

Add(MultiElement,3468732,630,455)
{
@Hint=#28:Пример управления Scintilla |17:через SendMessage|
AddHint(-121,-35,159,26,@Hint)
}
BEGIN_SDK
Add(EditMulti,6438509,21,21)
{
WorkCount=1
DataCount=1
Width=692
Height=263
link(doWork1,955114:doSendMessage,[(35,27)(35,132)])
}
Add(SendMessage,955114,105,126)
{
WParam=1
Point(Message)
link(Handle,6438509:Data1,[(111,74)(27,74)])
link(Message,12491316:Value,[])
AddHint(-28,-29,21,13,WParam)
AddHint(31,-26,21,13,LParam)
}
Add(Memory,12491316,126,63)
{
Default=Integer(2356)
AddHint(-6,-20,39,13,Default)
}
Add(InfoTip,5522243,266,56)
{
Info=#102:Для функционала не реализованного в элементе можно воспользовать отправкой сообщений через SendMessage|
Font=[MS Sans Serif,8,1,8388608,1]
Width=295
Height=53
}
Add(InfoTip,1738348,35,175)
{
Info=#7:Пример:|42:Отобразим условные символы перевода сроки.|101:В документации находим раздел "Line endings" в нём нужная нам функция "SCI_SETVIEWEOL(bool visible)".|100:В scisupport.pas смотрим адрес функции SCI_SETVIEWEOL = 2356;, это и есть Message(номер сообщения).|116:bool visible - это wParam и соответственно равен =1 для состояния visible, lParam для данной функции отсутствует =0.|0:|0:|
Font=[MS Sans Serif,8,1,0,1]
HAlign=0
Width=666
Height=88
}
END_SDK

А как правильно поля задать в стилях?

Размер поля нумерации устанавливается автоматически в соответствии с длиной номера и размером шрифта, что-то другое - шлём сообщение.
Размер поля маркеров и фолдинга можно задать в соответствующих свойствах компонента.
И все точки облазил, не могу найти как прокрутить текст до нужной строки.

doEnsureVisible=Делает скроллинг текста для видимости каретки ввода
То что с расстоянием между абзацами эт хреново, читабельность текста падает.

Во всём мире для этих целей пользуются "пустой" строкой, это считается хорошим тоном у корректоров!
Назови мне код абзаца? Например перевод строки - #13#10.

Редактировалось 3 раз(а), последний 2018-01-29 14:04:46
карма: 3

0
Ответов: 88
Рейтинг: 0
#107: 2018-01-29 14:06:00 ЛС | профиль | цитата
flint2 писал(а):
doSetSelStart=Устанавливает позицию каретки

Если честно хз до чего он прокручивает. К тому же если каретка стоит посреди строки происходит выделение.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=697
Height=703
}
Add(DoData,11398336,490,308)
{
link(onEventData,13351448:doSetSelStart,[(594,314)(594,384)])
link(Data,11894960:Text,[])
}
Add(Button,12641363,329,322)
{
Left=240
link(onClick,11398336:doData,[(425,328)(425,314)])
}
Add(Edit,11894960,490,231)
{
Left=10
Top=5
Width=225
Text="30"
}
Add(Scintilla,13351448,665,245)
{
Left=12
Top=50
Width=665
Height=601
Font=[Calibri,12,0,0,204]
Ctl3D=1
Layout=""
Strings=#26:Брюс Стерлинг. Схизматрица|1: |6:ПРОЛОГ|1: |106:Яркие самолетики миновали продольную ось мира. Линдсей, любуясь, следил за ними, утопая по колено в траве.|226:Хрупкие, словно воздушные змеи, педальные самолетики то ныряли, то взмывали высоко вверх в зоне невесомости. За ними, на другом конце мира, искривленный ландшафт сверкал желтизной пшеничных и пятнистой зеленью хлопковых полей.|480:Линдсей прикрыл ладонью глаза — сквозь стеклянные панели в мир хлестали потоки яркого солнечного света. Самолет с синими крыльями из материи, разрисованными под птичьи, пересек один из таких световых столбов и теперь парил, постепенно снижаясь. Линдсей различил вьющиеся по ветру русые волосы авиаторши, крутившей педали, чтобы набрать высоту, и понял, что она тоже его заметила. Захотелось крикнуть, помахать ей рукой, но при свидетелях этого ни в коем случае делать было нельзя.|192:Тюремщики уже были рядом — собственные его супруга и дядюшка. Пожилые аристократы с натугой переставляли ноги. Дядюшкино лицо побагровело так, что старику пришлось даже усилить сердечный ритм.|51:— Ты… бежал! — выдохнул наконец старик. — Ты бежал!|113:— Я просто решил размяться, — вызывающе вежливо отвечал Линдсей. — Мышцы здорово застоялись под домашним арестом.|217:Прикрыв глаза сложенной козырьком ладонью, испещренной старческими веснушками, дядюшка проследил направление его взгляда. Пестрый аппаратик парил над Хлябями — пораженным гниением участком сельскохозяйственной панели.|106:— Хляби разглядываешь? Где работает твой дружок Константин? Говорят, он как-то связывается с тобой оттуда.|57:— Он специализируется по насекомым, а не по криптографии.|85:Линдсей лгал. Тайные сообщения Константина были единственным его источником новостей.|204:После раскрытия заговора Линдсея заточили под домашний арест в стенах фамильной усадьбы, а Филипу Константину как инженеру по экологии не нашлось подходящей замены, и его решили оставить на рабочем месте.|420:Нервы домашнего арестанта, пока он томился в усадьбе, здорово сдали. Линдсей чувствовал себя человеком лишь там, где мог найти применение своим навыкам дипломата. Он сильно похудел; над резко выделившимися скулами мрачно блестели глаза. Темные, по моде завитые волосы растрепались от бега. Высокий рост, благородный лоб, волевой подбородок, само его безупречное сложение были характерными фамильными признаками Линдсеев.|276:Супруга его, Александрина Линдсей, взяла мужа под руку. Одета она была в модную плиссированную юбку и белоснежную медицинскую куртку. Здоровый вид ее не выказывал, однако же, настоящей жизненной силы — лицо словно из вощеной бумаги, уложенные с помощью лака завитки на висках.|124:— Джеймс, — обратилась она к старику, — вы же обещали! Зачем опять — о политике? Абеляр, ты такой бледный. Чем-то расстроен?|158:— Я? Расстроен? — Навыки дипломатии, усвоенные у шейперов, заработали: кожа порозовела, зрачки слегка расширились, губы сложились в открытую белозубую улыбку.|42:Дядюшка, недовольно насупившись, отступил.|35:Александрина оперлась на руку мужа.|39:— Не делай так больше. Ты меня пугаешь.|169:Она была старше Линдсея на пятьдесят лет и недавно прошла операцию, заменив коленные чашечки на тефлоновые механистские протезы, но колени явно беспокоили ее до сих пор.|221:Линдсей переложил книгу из руки в руку. Под домашним арестом он коротал время, переводя на современный солярноорбитальный английский пьесы Шекспира. Родственники одобряли — чем бы дитя ни тешилось, только бы не политикой.|125:Даже позволили лично передать рукопись в Музей. И такая поблажка на несколько часов вывела его из заточения в четырех стенах.|107:Музей был рассадником оппозиции. Там были друзья, презервационисты, как называли они свою небольшую группу.|0:|115:Реакционная молодежь, вдохновленная романтикой искусства и культуры прошлого. Они превратили Музей в свою цитадель.|231:Мир их назывался Корпоративной орбитальной республикой Моря Ясности. Заселенная почти двести лет назад, эта лунная орбитальная станция была одним из старейших космических поселений с устоявшимися традициями и собственной культурой.|420:Однако ж ветры перемен, дующие с молодых, энергичных миров Пояса астероидов и Колец Сатурна, проникли и сюда. Не миновали этого тихого города-государства и отзвуки Бессистемной великой войны между двумя сверхдержавами шейперов и механистов. В результате население Республики раскололось на презервационистов, к которым принадлежал Линдсей, и радикальных старцев. Плебеи поднялись на борьбу с процветающими аристократами.|377:Власти Республики держали сторону механистов. Радикальные старцы, каждому — далеко за сто, правили прямо из клиник, будучи неразрывно связаны с медицинской аппаратурой механистов. Лишь импортируемые технологии протезирования еще позволяли им жить. Республика погрязла в долгах, но расходы на медицину росли год от года. Мир все больше и больше зависел от механистских картелей.|330:Шейперы тоже не обходили Республику своим вниманием и своим арсеналом соблазнов. Несколько лет назад Линдсей с Константином прошли у них курс обучения, и именно это сделало друзей первыми в своем поколении. Молодежь, не в силах смириться с принесением в жертву механистским выгодам своих законных прав, встала на сторону шейперов.|94:Социальная напряженность достигла той стадии, когда взрыв может вызвать самая крохотная искра.|75:Предметом спора была сама жизнь. Аргументом же в этом споре служила смерть.|78:Запыхавшийся дядюшка тронул свой пульт-браслет, уменьшая частоту сердцебиения.|142:— Постарайся обойтись без этих выходок, — сказал он. — Нас ждут, и воздержись там, в Музее, от риторики. Ничего, кроме заранее согласованного.|77:Линдсей поднял взгляд. Птицеподобный самолет в стремительном пике несся вниз.|14:— Не-е-е-ет!!!|28:Отшвырнув книгу, он побежал.|135:Аппарат рухнул в траву близ открытого амфитеатра с каменными скамьями. Крылья его, конвульсивно дрожа, возвышались над грудой обломков.|13:— Ве-е-ера!!!|335:Когда он вытащил ее из путаницы стоек и растяжек, она еще дышала, но была без сознания. Изо рта и носа шла кровь. Ребра явно были сломаны. Рванув ворот ее костюма, Линдсей сильно поранил руку проволокой — костюм, по моде презервационистов, имитировал старинный космический скафандр. Его гофрированные рукава были смяты и залиты кровью.|116:Облачко белых крохотных мотыльков поднялось над травой. Они суетились в воздухе, словно притягиваемые запахом крови.|116:Смахнув с Вериного лица мотылька, Линдсей прижался губами к ее губам. Пульсирующая жилка на шее замерла. Все. Конец.|51:— Вера, любимая моя, — прошептал он. — Ты все-таки…|99:Обхватив голову руками, он рухнул в траву. Боль утраты смешалась в нем с восхищением силой ее духа.|176:Вера решилась на то, о чем они часто беседовали — в Музее, ночами, в постели, после воровской близости. Самоубийство как средство борьбы. Последнее средство выражения протеста.|136:Черная бездна распахнулась перед внутренним взором Линдсея. Путь к свободе… Но неожиданно в душе взметнулась бурная волна любви к жизни.|45:— Что ж, любовь моя… Сейчас, подожди немного…|65:Он поднялся на колени. К нему, побелев лицом, уже спешил дядюшка.|56:— Этот твой поступок… Отвратительно! — выкрикнул старик.|38:Линдсей одним прыжком вскочил на нога:|20:— Отойди! Не трогай!|67:— Старик застыл над телом покойной, не сводя с нее выпученных глаз.|62:— Проклятый дурак!.. Она умерла! Ей было всего двадцать шесть!|125:Линдсей выдернул из рукава, собранного в тугие складки на локте и у запястья, грубо выкованный нож и приставил к своей груди.|96:— Во имя вечных человеческих ценностей… Во имя гуманизма… Выбираю по собственной свободной воле…|148:Старик схватил его за запястье. После короткой схватки нож выпал из руки Линдсея. Дядюшка поднял нож и положил в карман лабораторной рабочей куртки.|100:— А это, — прохрипел он, — нарушение закона. И за незаконное хранение оружия тебе придется отвечать.|140:— Хоть я и в ваших руках, — ухмыльнулся Линдсей, — вы не сможете помешать мне умереть. А сейчас или чуть позже — какая, собственно, разница…|162:— Ф-фанатик, — с отвращением выплюнул дядюшка. — Выучили шейперы, нечего сказать… Республика оплатила твое обучение, а ты с его помощью сеешь разрушение и смерть!|98:— Она умерла человеком! Лучше вот так, в полете, чем — двести лет проволочной механистской куклой!|72:Линдсей-старший отрешенно рассматривал мотыльков, усеявших тело мертвой.|83:— Вы обязательно ответите за это. И ты, и этот твой плебейский выскочка Константин.|28:Линдсей не верил своим ушам.|109:— Вы… Тупой механистский… Вы что, не видите, что и так уже нас убили?! Она была лучшей… Она была нашей Музой…|48:— Что это за насекомые? — спросил вдруг дядюшка.|173:Он разогнал мотыльков взмахом руки. Только тут Линдсей заметил на шее Веры золотой медальон. Он рванулся к мертвой, чтобы схватить украшение, но дядюшка перехватил его руку.|39:— Это мое, не тронь! — крикнул Линдсей.|126:Старик, вывернув руку Линдсея, пнул его два раза в живот. Линдсей рухнул на колени. Задыхаясь, дядюшка нагнулся за медальоном.|75:— Ты напал на меня, — потрясение произнес он. — Это… насилие над личностью…|71:Он раскрыл медальон, и на пальцы его вытекла тягучая маслянистая капля.|54:— Нет записки? — удивился старик. — Что же это — духи?|97:Он понюхал пальцы. Линдсей, задохнувшись от тошнотворного запаха, упал наземь. Дядюшка вскрикнул.|91:Белые мотыльки тысячами накинулись на него, впиваясь в кожу, испачканную пахучей жидкостью.|58:Они облепили кричащего, размазывающего их по лицу старика.|171:Линдсей перекатился на живот и, поднявшись на четвереньки, отполз подальше. Дядюшка уже не кричал, он бился в траве, точно в припадке эпилепсии. Линдсей задрожал от ужаса.|175:Монитор на дядюшкином запястье засветился красным; старик замер. Мотыльки еще несколько минут продолжали терзать мертвое тело, затем поднялись в воздух и растворились в траве.|92:Линдсей, встав во весь рост, оглядел окрестности. По высокой траве к нему медленно шла жена.|1: |12:ЧАСТЬ ПЕРВАЯ|13:БРОДЯЖЬЯ ЗОНА|1: |7:Глава 1|1: |46:Народный Орбитальный Дзайбацу Моря Спокойствия|8:27.12.15|158:Линдсея отправили в ссылку. Самым дешевым способом. Двое суток провел он слепым и глухим, накачанный наркотиками и залитый густой противоперегрузочной массой.|411:Автоматический катер, запущенный с грузовой направляющей, кибернетически точно лег на полярную орбиту вокруг другой орбитальной станции. Таких миров, названных по кратерам и морям, из которых брали сырье, вращалось вокруг Луны ровно десять. То были первые миры, вчистую порвавшие с истощенной Землей. Целый век их лунный союз был основой цивилизации, и коммерческих рейсов внутри этой Цепи миров было множество.|262:Но миновали дни славы; прогресс глубокого космоса отодвинул Цепь на задворки. Цепь разорвалась, тихий застой обернулся настороженной замкнутостью и техническим регрессом. Орбитальные миры деградировали, и пуще всех — тот, что был определен местом ссылки Линдсея.|178:Прибытие его зафиксировали камеры. Выброшенный из стыковочного узла катера-автомата, Линдсей повис обнаженным в невесомости таможенной камеры Народного Дзайбацу Моря Спокойствия.|
FileName="Livadnyiy_Temnaya_storona_Zemli.33391.txt"
Codepage=16
Styles=#21:@2 BackColor=16777215|0:|32:// Цвет подсветки текущей строки|25:@3 CaretLineBack=15592940|0:|39:// Цвет шрифта и фон выделенного текста|42:@4 SelBack=14461039, SelFontColor=16777215|0:|64:// Цвет и стиль шрифта для парных и непарных операторских скобок|76:@5 (парн.)Bold=True, (парн.)Color=255, (непарн.)Bold=False, (непарн.)Color=0|0:|41:SCI_SETMARGINTYPEN (int margin, int type)|0:|0:|73:// Настройка стиля синтаксиса подсветки в соответствии с выбранным языком|98:// 1-синтаксическая инструкция, стили шрифта 2-полужирный, 3-курсив, 4-подчёркнутый, 5-цвет шрифта|84:# DEFAULT=0, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|84:# IDENTIFIER=1, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|88:# COMMENT=2, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENT2=3, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENTLINE=4, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# PREPROCESSOR=5, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|88:# PREPROCESSOR2=6,FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|86:# NUMBER=7, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|86:# HEXNUMBER=8, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|84:# WORD=9, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|91:# STRING=10, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=11633048|84:# STRINGEOL=11, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|90:# CHARACTER=12, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=8421504|91:# OPERATOR=13, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=11534336|84:# ASM=14, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|
WordsKey1=#568:and array asm begin case cdecl class const constructor default destructor div do downto else end end. except exit exports external far file finalization finally for function goto if implementation in index inherited initialization inline interface label library message mod near nil not object of on or out overload override packed pascal private procedure program property protected public published raise read record register repeat resourcestring safecall set shl shr stdcall stored string then threadvar to try type unit until uses var virtual while with write xor|
CaretLineBack=15131875
BraceHighlight=0
BraceBadFore=65535
IndentationGuides=0
VLines=0
ColorOfFlags=16777215
Numbering=0
NumSizeCorrect=-1
MarginNumFore=8421504
MarginNumBack=16777215
Markers=1
MarkMarginWidth=20
FoldMarginWidth=14
FoldMarginColor1=14012872
FoldIcon=1
FoldIconFore=65535
FoldIconBack=16711680
AutoComplete=1
AutoCompStrings=#568:and array asm begin case cdecl class const constructor default destructor div do downto else end end. except exit exports external far file finalization finally for function goto if implementation in index inherited initialization inline interface label library message mod near nil not object of on or out overload override packed pascal private procedure program property protected public published raise read record register repeat resourcestring safecall set shl shr stdcall stored string then threadvar to try type unit until uses var virtual while with write xor|0:|
MinWordLen=2
WrapVisualFlags=0
UserPoupMenu=0
Point(LinePosition)
Point(StrPosition)
Point(TextLength)
Point(Position)
Point(TextTarget)
Point(GetModify)
Point(onMouseUp)
Point(ArrayFold)
Point(onGetLineFold)
Point(onGetLineMarker)
Point(doSearch)
Point(doUndoRedo)
Point(doSetZoom)
Point(doEditingSelected)
Point(doSetLineFold)
Point(doGetLineFold)
Point(doMarkerAdd)
Point(doGetLineMarker)
Point(doFoldAll)
Point(onSearch)
Point(onMouseDown)
Point(onSave)
Point(onLoad)
Point(doSetEmptyUndoBuffer)
Point(doCodepage)
Point(doStyles)
Point(Handle)
Point(doColor)
Point(doSetSelStart)
}


flint2 писал(а):
Во всём мире для этих целей пользуются "пустой" строкой, это считается хорошим тоном у корректоров!


Сложно судить за весь мир, но word с этим не согласится.
карма: 0

0
Ответов: 1416
Рейтинг: 97
#108: 2018-01-29 14:07:37 ЛС | профиль | цитата
doEnsureVisible=Делает скроллинг текста для видимости каретки ввода.


Add(MainForm,2436131,343,77)
{
Width=697
Height=703
}
Add(DoData,11398336,434,182)
{
link(onEventData,11849985:doEvent1,[(488,188)(488,181)])
link(Data,11894960:Text,[])
}
Add(Button,12641363,273,196)
{
Left=240
link(onClick,11398336:doData,[(369,202)(369,188)])
}
Add(Edit,11894960,434,105)
{
Left=10
Top=5
Width=225
Text="4300"
}
Add(Scintilla,13351448,609,119)
{
Left=12
Top=50
Width=665
Height=601
Font=[Calibri,12,0,0,204]
Ctl3D=1
Layout=""
Strings=#26:Брюс Стерлинг. Схизматрица|1: |6:ПРОЛОГ|1: |106:Яркие самолетики миновали продольную ось мира. Линдсей, любуясь, следил за ними, утопая по колено в траве.|226:Хрупкие, словно воздушные змеи, педальные самолетики то ныряли, то взмывали высоко вверх в зоне невесомости. За ними, на другом конце мира, искривленный ландшафт сверкал желтизной пшеничных и пятнистой зеленью хлопковых полей.|480:Линдсей прикрыл ладонью глаза — сквозь стеклянные панели в мир хлестали потоки яркого солнечного света. Самолет с синими крыльями из материи, разрисованными под птичьи, пересек один из таких световых столбов и теперь парил, постепенно снижаясь. Линдсей различил вьющиеся по ветру русые волосы авиаторши, крутившей педали, чтобы набрать высоту, и понял, что она тоже его заметила. Захотелось крикнуть, помахать ей рукой, но при свидетелях этого ни в коем случае делать было нельзя.|192:Тюремщики уже были рядом — собственные его супруга и дядюшка. Пожилые аристократы с натугой переставляли ноги. Дядюшкино лицо побагровело так, что старику пришлось даже усилить сердечный ритм.|51:— Ты… бежал! — выдохнул наконец старик. — Ты бежал!|113:— Я просто решил размяться, — вызывающе вежливо отвечал Линдсей. — Мышцы здорово застоялись под домашним арестом.|217:Прикрыв глаза сложенной козырьком ладонью, испещренной старческими веснушками, дядюшка проследил направление его взгляда. Пестрый аппаратик парил над Хлябями — пораженным гниением участком сельскохозяйственной панели.|106:— Хляби разглядываешь? Где работает твой дружок Константин? Говорят, он как-то связывается с тобой оттуда.|57:— Он специализируется по насекомым, а не по криптографии.|85:Линдсей лгал. Тайные сообщения Константина были единственным его источником новостей.|204:После раскрытия заговора Линдсея заточили под домашний арест в стенах фамильной усадьбы, а Филипу Константину как инженеру по экологии не нашлось подходящей замены, и его решили оставить на рабочем месте.|420:Нервы домашнего арестанта, пока он томился в усадьбе, здорово сдали. Линдсей чувствовал себя человеком лишь там, где мог найти применение своим навыкам дипломата. Он сильно похудел; над резко выделившимися скулами мрачно блестели глаза. Темные, по моде завитые волосы растрепались от бега. Высокий рост, благородный лоб, волевой подбородок, само его безупречное сложение были характерными фамильными признаками Линдсеев.|276:Супруга его, Александрина Линдсей, взяла мужа под руку. Одета она была в модную плиссированную юбку и белоснежную медицинскую куртку. Здоровый вид ее не выказывал, однако же, настоящей жизненной силы — лицо словно из вощеной бумаги, уложенные с помощью лака завитки на висках.|124:— Джеймс, — обратилась она к старику, — вы же обещали! Зачем опять — о политике? Абеляр, ты такой бледный. Чем-то расстроен?|158:— Я? Расстроен? — Навыки дипломатии, усвоенные у шейперов, заработали: кожа порозовела, зрачки слегка расширились, губы сложились в открытую белозубую улыбку.|42:Дядюшка, недовольно насупившись, отступил.|35:Александрина оперлась на руку мужа.|39:— Не делай так больше. Ты меня пугаешь.|169:Она была старше Линдсея на пятьдесят лет и недавно прошла операцию, заменив коленные чашечки на тефлоновые механистские протезы, но колени явно беспокоили ее до сих пор.|221:Линдсей переложил книгу из руки в руку. Под домашним арестом он коротал время, переводя на современный солярноорбитальный английский пьесы Шекспира. Родственники одобряли — чем бы дитя ни тешилось, только бы не политикой.|125:Даже позволили лично передать рукопись в Музей. И такая поблажка на несколько часов вывела его из заточения в четырех стенах.|107:Музей был рассадником оппозиции. Там были друзья, презервационисты, как называли они свою небольшую группу.|0:|115:Реакционная молодежь, вдохновленная романтикой искусства и культуры прошлого. Они превратили Музей в свою цитадель.|231:Мир их назывался Корпоративной орбитальной республикой Моря Ясности. Заселенная почти двести лет назад, эта лунная орбитальная станция была одним из старейших космических поселений с устоявшимися традициями и собственной культурой.|420:Однако ж ветры перемен, дующие с молодых, энергичных миров Пояса астероидов и Колец Сатурна, проникли и сюда. Не миновали этого тихого города-государства и отзвуки Бессистемной великой войны между двумя сверхдержавами шейперов и механистов. В результате население Республики раскололось на презервационистов, к которым принадлежал Линдсей, и радикальных старцев. Плебеи поднялись на борьбу с процветающими аристократами.|377:Власти Республики держали сторону механистов. Радикальные старцы, каждому — далеко за сто, правили прямо из клиник, будучи неразрывно связаны с медицинской аппаратурой механистов. Лишь импортируемые технологии протезирования еще позволяли им жить. Республика погрязла в долгах, но расходы на медицину росли год от года. Мир все больше и больше зависел от механистских картелей.|330:Шейперы тоже не обходили Республику своим вниманием и своим арсеналом соблазнов. Несколько лет назад Линдсей с Константином прошли у них курс обучения, и именно это сделало друзей первыми в своем поколении. Молодежь, не в силах смириться с принесением в жертву механистским выгодам своих законных прав, встала на сторону шейперов.|94:Социальная напряженность достигла той стадии, когда взрыв может вызвать самая крохотная искра.|75:Предметом спора была сама жизнь. Аргументом же в этом споре служила смерть.|78:Запыхавшийся дядюшка тронул свой пульт-браслет, уменьшая частоту сердцебиения.|142:— Постарайся обойтись без этих выходок, — сказал он. — Нас ждут, и воздержись там, в Музее, от риторики. Ничего, кроме заранее согласованного.|77:Линдсей поднял взгляд. Птицеподобный самолет в стремительном пике несся вниз.|14:— Не-е-е-ет!!!|28:Отшвырнув книгу, он побежал.|135:Аппарат рухнул в траву близ открытого амфитеатра с каменными скамьями. Крылья его, конвульсивно дрожа, возвышались над грудой обломков.|13:— Ве-е-ера!!!|335:Когда он вытащил ее из путаницы стоек и растяжек, она еще дышала, но была без сознания. Изо рта и носа шла кровь. Ребра явно были сломаны. Рванув ворот ее костюма, Линдсей сильно поранил руку проволокой — костюм, по моде презервационистов, имитировал старинный космический скафандр. Его гофрированные рукава были смяты и залиты кровью.|116:Облачко белых крохотных мотыльков поднялось над травой. Они суетились в воздухе, словно притягиваемые запахом крови.|116:Смахнув с Вериного лица мотылька, Линдсей прижался губами к ее губам. Пульсирующая жилка на шее замерла. Все. Конец.|51:— Вера, любимая моя, — прошептал он. — Ты все-таки…|99:Обхватив голову руками, он рухнул в траву. Боль утраты смешалась в нем с восхищением силой ее духа.|176:Вера решилась на то, о чем они часто беседовали — в Музее, ночами, в постели, после воровской близости. Самоубийство как средство борьбы. Последнее средство выражения протеста.|136:Черная бездна распахнулась перед внутренним взором Линдсея. Путь к свободе… Но неожиданно в душе взметнулась бурная волна любви к жизни.|45:— Что ж, любовь моя… Сейчас, подожди немного…|65:Он поднялся на колени. К нему, побелев лицом, уже спешил дядюшка.|56:— Этот твой поступок… Отвратительно! — выкрикнул старик.|38:Линдсей одним прыжком вскочил на нога:|20:— Отойди! Не трогай!|67:— Старик застыл над телом покойной, не сводя с нее выпученных глаз.|62:— Проклятый дурак!.. Она умерла! Ей было всего двадцать шесть!|125:Линдсей выдернул из рукава, собранного в тугие складки на локте и у запястья, грубо выкованный нож и приставил к своей груди.|96:— Во имя вечных человеческих ценностей… Во имя гуманизма… Выбираю по собственной свободной воле…|148:Старик схватил его за запястье. После короткой схватки нож выпал из руки Линдсея. Дядюшка поднял нож и положил в карман лабораторной рабочей куртки.|100:— А это, — прохрипел он, — нарушение закона. И за незаконное хранение оружия тебе придется отвечать.|140:— Хоть я и в ваших руках, — ухмыльнулся Линдсей, — вы не сможете помешать мне умереть. А сейчас или чуть позже — какая, собственно, разница…|162:— Ф-фанатик, — с отвращением выплюнул дядюшка. — Выучили шейперы, нечего сказать… Республика оплатила твое обучение, а ты с его помощью сеешь разрушение и смерть!|98:— Она умерла человеком! Лучше вот так, в полете, чем — двести лет проволочной механистской куклой!|72:Линдсей-старший отрешенно рассматривал мотыльков, усеявших тело мертвой.|83:— Вы обязательно ответите за это. И ты, и этот твой плебейский выскочка Константин.|28:Линдсей не верил своим ушам.|109:— Вы… Тупой механистский… Вы что, не видите, что и так уже нас убили?! Она была лучшей… Она была нашей Музой…|48:— Что это за насекомые? — спросил вдруг дядюшка.|173:Он разогнал мотыльков взмахом руки. Только тут Линдсей заметил на шее Веры золотой медальон. Он рванулся к мертвой, чтобы схватить украшение, но дядюшка перехватил его руку.|39:— Это мое, не тронь! — крикнул Линдсей.|126:Старик, вывернув руку Линдсея, пнул его два раза в живот. Линдсей рухнул на колени. Задыхаясь, дядюшка нагнулся за медальоном.|75:— Ты напал на меня, — потрясение произнес он. — Это… насилие над личностью…|71:Он раскрыл медальон, и на пальцы его вытекла тягучая маслянистая капля.|54:— Нет записки? — удивился старик. — Что же это — духи?|97:Он понюхал пальцы. Линдсей, задохнувшись от тошнотворного запаха, упал наземь. Дядюшка вскрикнул.|91:Белые мотыльки тысячами накинулись на него, впиваясь в кожу, испачканную пахучей жидкостью.|58:Они облепили кричащего, размазывающего их по лицу старика.|171:Линдсей перекатился на живот и, поднявшись на четвереньки, отполз подальше. Дядюшка уже не кричал, он бился в траве, точно в припадке эпилепсии. Линдсей задрожал от ужаса.|175:Монитор на дядюшкином запястье засветился красным; старик замер. Мотыльки еще несколько минут продолжали терзать мертвое тело, затем поднялись в воздух и растворились в траве.|92:Линдсей, встав во весь рост, оглядел окрестности. По высокой траве к нему медленно шла жена.|1: |12:ЧАСТЬ ПЕРВАЯ|13:БРОДЯЖЬЯ ЗОНА|1: |7:Глава 1|1: |46:Народный Орбитальный Дзайбацу Моря Спокойствия|8:27.12.15|158:Линдсея отправили в ссылку. Самым дешевым способом. Двое суток провел он слепым и глухим, накачанный наркотиками и залитый густой противоперегрузочной массой.|411:Автоматический катер, запущенный с грузовой направляющей, кибернетически точно лег на полярную орбиту вокруг другой орбитальной станции. Таких миров, названных по кратерам и морям, из которых брали сырье, вращалось вокруг Луны ровно десять. То были первые миры, вчистую порвавшие с истощенной Землей. Целый век их лунный союз был основой цивилизации, и коммерческих рейсов внутри этой Цепи миров было множество.|262:Но миновали дни славы; прогресс глубокого космоса отодвинул Цепь на задворки. Цепь разорвалась, тихий застой обернулся настороженной замкнутостью и техническим регрессом. Орбитальные миры деградировали, и пуще всех — тот, что был определен местом ссылки Линдсея.|178:Прибытие его зафиксировали камеры. Выброшенный из стыковочного узла катера-автомата, Линдсей повис обнаженным в невесомости таможенной камеры Народного Дзайбацу Моря Спокойствия.|
FileName="Livadnyiy_Temnaya_storona_Zemli.33391.txt"
Codepage=16
Styles=#21:@2 BackColor=16777215|0:|32:// Цвет подсветки текущей строки|25:@3 CaretLineBack=15592940|0:|39:// Цвет шрифта и фон выделенного текста|42:@4 SelBack=14461039, SelFontColor=16777215|0:|64:// Цвет и стиль шрифта для парных и непарных операторских скобок|76:@5 (парн.)Bold=True, (парн.)Color=255, (непарн.)Bold=False, (непарн.)Color=0|0:|41:SCI_SETMARGINTYPEN (int margin, int type)|0:|0:|73:// Настройка стиля синтаксиса подсветки в соответствии с выбранным языком|98:// 1-синтаксическая инструкция, стили шрифта 2-полужирный, 3-курсив, 4-подчёркнутый, 5-цвет шрифта|84:# DEFAULT=0, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|84:# IDENTIFIER=1, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|88:# COMMENT=2, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENT2=3, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENTLINE=4, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# PREPROCESSOR=5, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|88:# PREPROCESSOR2=6,FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|86:# NUMBER=7, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|86:# HEXNUMBER=8, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|84:# WORD=9, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|91:# STRING=10, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=11633048|84:# STRINGEOL=11, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|90:# CHARACTER=12, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=8421504|91:# OPERATOR=13, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=11534336|84:# ASM=14, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|
WordsKey1=#568:and array asm begin case cdecl class const constructor default destructor div do downto else end end. except exit exports external far file finalization finally for function goto if implementation in index inherited initialization inline interface label library message mod near nil not object of on or out overload override packed pascal private procedure program property protected public published raise read record register repeat resourcestring safecall set shl shr stdcall stored string then threadvar to try type unit until uses var virtual while with write xor|
CaretLineBack=15131875
BraceHighlight=0
BraceBadFore=65535
IndentationGuides=0
VLines=0
ColorOfFlags=16777215
Numbering=0
NumSizeCorrect=-1
MarginNumFore=8421504
MarginNumBack=16777215
Markers=1
MarkMarginWidth=20
FoldMarginWidth=14
FoldMarginColor1=14012872
FoldIcon=1
FoldIconFore=65535
FoldIconBack=16711680
AutoComplete=1
AutoCompStrings=#568:and array asm begin case cdecl class const constructor default destructor div do downto else end end. except exit exports external far file finalization finally for function goto if implementation in index inherited initialization inline interface label library message mod near nil not object of on or out overload override packed pascal private procedure program property protected public published raise read record register repeat resourcestring safecall set shl shr stdcall stored string then threadvar to try type unit until uses var virtual while with write xor|0:|
MinWordLen=2
WrapVisualFlags=0
ScrollBars=2
UserPoupMenu=0
Point(LinePosition)
Point(StrPosition)
Point(TextLength)
Point(Position)
Point(TextTarget)
Point(GetModify)
Point(onMouseUp)
Point(ArrayFold)
Point(onGetLineFold)
Point(onGetLineMarker)
Point(onSearch)
Point(onMouseDown)
Point(onSave)
Point(onLoad)
Point(doStyles)
Point(Handle)
Point(doColor)
Point(doSetSelStart)
Point(doEnsureVisible)
}
Add(Hub,11849985,511,175)
{
link(onEvent1,13351448:doSetSelStart,[])
link(onEvent2,13351448:doEnsureVisible,[])
}


Редактировалось 1 раз(а), последний 2018-01-29 14:18:38
карма: 3

0
Ответов: 88
Рейтинг: 0
#109: 2018-01-29 14:18:52 ЛС | профиль | цитата
flint2 писал(а):
Случайно не то скопировал.
doEnsureVisible=Делает скроллинг текста для видимости каретки ввода.

Не совсем понимаю до чего он посылает, точно не до номера строки. Ставлю 500, прокручивает до 7 строки.
карма: 0

0
Ответов: 1416
Рейтинг: 97
#110: 2018-01-29 14:26:44 ЛС | профиль | цитата
Ёлки-палки!
До позиции знака.
Если делать поиск, то автоматом всё прокрутится.
карма: 3

0
Ответов: 88
Рейтинг: 0
#111: 2018-01-29 14:31:44 ЛС | профиль | цитата
flint2 писал(а):
Ёлки-палки!
До позиции знака.
Если делать поиск, то автоматом всё прокрутится.

В том то и прикол что речь не про поиск а про прокрутку до нужно строки.

Я тут если честно пытаюсь скрестить ужа с ежом, точнее два блокнота и скрол бар воедино. Пытаюсь переместить каретку в большом блокноте до выбранного места в узком.

Слепить вместе малый блокнот и большой вроде получилось, но перемешается только после второго клика по строке. А как их спарить теперь со скролбаром даже хз) занимательная камасутра.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=964
Height=556
Position=1
}
Add(DoData,89786,1092,413)
{
}
Add(DoData,15504690,1029,392)
{
link(onEventData,13351448:doEnsureVisible,[(1073,398)(1073,503)(450,503)(450,608)])
link(Data,367825:Position,[(1035,355)(1098,355)])
}
Add(ChildPanel,3318256,602,119)
{
@Hint=#7:Toolbar|
@Color=16755285
link(onEvent1,12159197:In,[])
link(onEvent2,8840974:In,[(653,132)(653,146)])
AddHint(62,-23,51,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,5708489,21,21)
{
EventCount=11
WorkCount=2
DataCount=1
VarCount=1
Width=531
Height=459
}
Add(Panel,4415339,63,42)
{
Width=948
Height=28
Align=2
Color=16777215
WinStyle=1
Layout="parent.main"
WidthScale=100
HeightScale=11
BevelInner=0
}
Add(BitBtn,3941641,126,84)
{
Left=92
Top=7
Width=24
Height=24
Color=16777215
Layout="Loyaut1"
Frame=1
Caption=""
Data=Integer(3)
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C17F2AC1BCBC3C3026476F65FC2B064D86FB0CF61ACB18525353F1AA4D0AD8C4A0C77E03AB7E03AEDB0CC17E5938CD70D33C0C5617E5B60DA71B6C652E31C4C7C763C85B499C05DB8B4D2F0C5625BC069B116471982125258524BDE866049A1F66080E886330163ACEA0C3769D28BDE87E01E9D366BDC69095D443729CE873DC049BE1AE7D8464FDC8FE35E37FC010694BBC1B407AD1E3C859FE118397C65D8266588A9FC119BFF10ECF194CF9EEE334039F5E6433406AD0C51D651F80C541E98B9CF46F26F090C157E721D5F222291000B3EDC6C9]
Point(doBitmap)
link(onClick,4456776:doWork2,[(174,90)(174,125)])
}
Add(BitBtn,7666019,189,84)
{
Left=61
Top=7
Width=24
Height=24
Color=16777215
Hint="Выделить всё"
Layout="Loyaut1"
Frame=1
Caption=""
Data=Integer(4)
Bitmap=[ZIP3603000078DA73F235636600033320D600620128666490804840E591C17F86FFA4A2331EF670448C2C56655835223318F0024CF5C49B0F4104CDA7108D1CF3075BFC92943E01EFD07536]
Point(doBitmap)
link(onClick,4456776:doWork3,[(235,90)])
}
Add(BitBtn,8718455,133,35)
{
Left=9
Top=7
Width=24
Height=24
Color=16777215
Layout="Loyaut1"
Frame=1
Caption=""
Data=Integer(0)
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF5148326CC1116E2071744C897E52DD40AC5E42FAF1B991907E5CE611E37F7C7691E2B751483C0400A89AD624]
Point(doBitmap)
link(onClick,7370036:doWork2,[])
}
Add(BitBtn,8925826,189,42)
{
Left=34
Top=7
Width=24
Height=24
Color=16777215
Layout="Loyaut1"
Frame=1
Caption=""
Data=Integer(1)
Bitmap=[ZIP3603000078DA73F235636600033320D600620128666490804840E591C17F86FFC300B590E8114CF5401164448CE1A4AA47D642A4F9702DF8DD8FA606AB81B85C3BC21100C6F2D61A]
Point(doBitmap)
link(onClick,7370036:doWork3,[(235,48)])
}
Add(HubEx,7370036,231,35)
{
link(onEvent,5708489:onEvent1,[(356,41)(356,27)])
}
Add(HubEx,4456776,231,119)
{
link(onEvent,5708489:onEvent2,[(447,125)(447,34)])
}
Add(HBoxLayout,4113560,364,49)
{
Name="Loyaut1"
Space=2
}
Add(BitBtn,191979,77,140)
{
Left=281
Top=2
Width=24
Height=24
Color=16777215
Hint="Начать поиск / искать далее"
Layout="Loyaut1"
Frame=1
Caption=""
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF4100B10152D481E9FFC4E9C7A68E1AFA710152E4FFE351FAFFFF7F92F523EBA1A57E427EC4E7776AC70FB1E14F4C5A24461C9F1F8811A7B6FDA4420052950D6F]
Point(doBitmap)
}
END_SDK
Add(Scintilla,13351448,462,462)
{
Top=28
Width=823
Height=489
Align=5
Font=[Calibri,12,0,0,204]
Ctl3D=1
Layout=""
Strings=#26:Брюс Стерлинг. Схизматрица|1: |6:ПРОЛОГ|1: |106:Яркие самолетики миновали продольную ось мира. Линдсей, любуясь, следил за ними, утопая по колено в траве.|226:Хрупкие, словно воздушные змеи, педальные самолетики то ныряли, то взмывали высоко вверх в зоне невесомости. За ними, на другом конце мира, искривленный ландшафт сверкал желтизной пшеничных и пятнистой зеленью хлопковых полей.|480:Линдсей прикрыл ладонью глаза — сквозь стеклянные панели в мир хлестали потоки яркого солнечного света. Самолет с синими крыльями из материи, разрисованными под птичьи, пересек один из таких световых столбов и теперь парил, постепенно снижаясь. Линдсей различил вьющиеся по ветру русые волосы авиаторши, крутившей педали, чтобы набрать высоту, и понял, что она тоже его заметила. Захотелось крикнуть, помахать ей рукой, но при свидетелях этого ни в коем случае делать было нельзя.|192:Тюремщики уже были рядом — собственные его супруга и дядюшка. Пожилые аристократы с натугой переставляли ноги. Дядюшкино лицо побагровело так, что старику пришлось даже усилить сердечный ритм.|51:— Ты… бежал! — выдохнул наконец старик. — Ты бежал!|113:— Я просто решил размяться, — вызывающе вежливо отвечал Линдсей. — Мышцы здорово застоялись под домашним арестом.|217:Прикрыв глаза сложенной козырьком ладонью, испещренной старческими веснушками, дядюшка проследил направление его взгляда. Пестрый аппаратик парил над Хлябями — пораженным гниением участком сельскохозяйственной панели.|106:— Хляби разглядываешь? Где работает твой дружок Константин? Говорят, он как-то связывается с тобой оттуда.|57:— Он специализируется по насекомым, а не по криптографии.|85:Линдсей лгал. Тайные сообщения Константина были единственным его источником новостей.|204:После раскрытия заговора Линдсея заточили под домашний арест в стенах фамильной усадьбы, а Филипу Константину как инженеру по экологии не нашлось подходящей замены, и его решили оставить на рабочем месте.|420:Нервы домашнего арестанта, пока он томился в усадьбе, здорово сдали. Линдсей чувствовал себя человеком лишь там, где мог найти применение своим навыкам дипломата. Он сильно похудел; над резко выделившимися скулами мрачно блестели глаза. Темные, по моде завитые волосы растрепались от бега. Высокий рост, благородный лоб, волевой подбородок, само его безупречное сложение были характерными фамильными признаками Линдсеев.|276:Супруга его, Александрина Линдсей, взяла мужа под руку. Одета она была в модную плиссированную юбку и белоснежную медицинскую куртку. Здоровый вид ее не выказывал, однако же, настоящей жизненной силы — лицо словно из вощеной бумаги, уложенные с помощью лака завитки на висках.|124:— Джеймс, — обратилась она к старику, — вы же обещали! Зачем опять — о политике? Абеляр, ты такой бледный. Чем-то расстроен?|158:— Я? Расстроен? — Навыки дипломатии, усвоенные у шейперов, заработали: кожа порозовела, зрачки слегка расширились, губы сложились в открытую белозубую улыбку.|42:Дядюшка, недовольно насупившись, отступил.|35:Александрина оперлась на руку мужа.|39:— Не делай так больше. Ты меня пугаешь.|169:Она была старше Линдсея на пятьдесят лет и недавно прошла операцию, заменив коленные чашечки на тефлоновые механистские протезы, но колени явно беспокоили ее до сих пор.|221:Линдсей переложил книгу из руки в руку. Под домашним арестом он коротал время, переводя на современный солярноорбитальный английский пьесы Шекспира. Родственники одобряли — чем бы дитя ни тешилось, только бы не политикой.|125:Даже позволили лично передать рукопись в Музей. И такая поблажка на несколько часов вывела его из заточения в четырех стенах.|107:Музей был рассадником оппозиции. Там были друзья, презервационисты, как называли они свою небольшую группу.|0:|115:Реакционная молодежь, вдохновленная романтикой искусства и культуры прошлого. Они превратили Музей в свою цитадель.|231:Мир их назывался Корпоративной орбитальной республикой Моря Ясности. Заселенная почти двести лет назад, эта лунная орбитальная станция была одним из старейших космических поселений с устоявшимися традициями и собственной культурой.|420:Однако ж ветры перемен, дующие с молодых, энергичных миров Пояса астероидов и Колец Сатурна, проникли и сюда. Не миновали этого тихого города-государства и отзвуки Бессистемной великой войны между двумя сверхдержавами шейперов и механистов. В результате население Республики раскололось на презервационистов, к которым принадлежал Линдсей, и радикальных старцев. Плебеи поднялись на борьбу с процветающими аристократами.|377:Власти Республики держали сторону механистов. Радикальные старцы, каждому — далеко за сто, правили прямо из клиник, будучи неразрывно связаны с медицинской аппаратурой механистов. Лишь импортируемые технологии протезирования еще позволяли им жить. Республика погрязла в долгах, но расходы на медицину росли год от года. Мир все больше и больше зависел от механистских картелей.|330:Шейперы тоже не обходили Республику своим вниманием и своим арсеналом соблазнов. Несколько лет назад Линдсей с Константином прошли у них курс обучения, и именно это сделало друзей первыми в своем поколении. Молодежь, не в силах смириться с принесением в жертву механистским выгодам своих законных прав, встала на сторону шейперов.|94:Социальная напряженность достигла той стадии, когда взрыв может вызвать самая крохотная искра.|75:Предметом спора была сама жизнь. Аргументом же в этом споре служила смерть.|78:Запыхавшийся дядюшка тронул свой пульт-браслет, уменьшая частоту сердцебиения.|142:— Постарайся обойтись без этих выходок, — сказал он. — Нас ждут, и воздержись там, в Музее, от риторики. Ничего, кроме заранее согласованного.|77:Линдсей поднял взгляд. Птицеподобный самолет в стремительном пике несся вниз.|14:— Не-е-е-ет!!!|28:Отшвырнув книгу, он побежал.|135:Аппарат рухнул в траву близ открытого амфитеатра с каменными скамьями. Крылья его, конвульсивно дрожа, возвышались над грудой обломков.|13:— Ве-е-ера!!!|335:Когда он вытащил ее из путаницы стоек и растяжек, она еще дышала, но была без сознания. Изо рта и носа шла кровь. Ребра явно были сломаны. Рванув ворот ее костюма, Линдсей сильно поранил руку проволокой — костюм, по моде презервационистов, имитировал старинный космический скафандр. Его гофрированные рукава были смяты и залиты кровью.|116:Облачко белых крохотных мотыльков поднялось над травой. Они суетились в воздухе, словно притягиваемые запахом крови.|116:Смахнув с Вериного лица мотылька, Линдсей прижался губами к ее губам. Пульсирующая жилка на шее замерла. Все. Конец.|51:— Вера, любимая моя, — прошептал он. — Ты все-таки…|99:Обхватив голову руками, он рухнул в траву. Боль утраты смешалась в нем с восхищением силой ее духа.|176:Вера решилась на то, о чем они часто беседовали — в Музее, ночами, в постели, после воровской близости. Самоубийство как средство борьбы. Последнее средство выражения протеста.|136:Черная бездна распахнулась перед внутренним взором Линдсея. Путь к свободе… Но неожиданно в душе взметнулась бурная волна любви к жизни.|45:— Что ж, любовь моя… Сейчас, подожди немного…|65:Он поднялся на колени. К нему, побелев лицом, уже спешил дядюшка.|56:— Этот твой поступок… Отвратительно! — выкрикнул старик.|38:Линдсей одним прыжком вскочил на нога:|20:— Отойди! Не трогай!|67:— Старик застыл над телом покойной, не сводя с нее выпученных глаз.|62:— Проклятый дурак!.. Она умерла! Ей было всего двадцать шесть!|125:Линдсей выдернул из рукава, собранного в тугие складки на локте и у запястья, грубо выкованный нож и приставил к своей груди.|96:— Во имя вечных человеческих ценностей… Во имя гуманизма… Выбираю по собственной свободной воле…|148:Старик схватил его за запястье. После короткой схватки нож выпал из руки Линдсея. Дядюшка поднял нож и положил в карман лабораторной рабочей куртки.|100:— А это, — прохрипел он, — нарушение закона. И за незаконное хранение оружия тебе придется отвечать.|140:— Хоть я и в ваших руках, — ухмыльнулся Линдсей, — вы не сможете помешать мне умереть. А сейчас или чуть позже — какая, собственно, разница…|162:— Ф-фанатик, — с отвращением выплюнул дядюшка. — Выучили шейперы, нечего сказать… Республика оплатила твое обучение, а ты с его помощью сеешь разрушение и смерть!|98:— Она умерла человеком! Лучше вот так, в полете, чем — двести лет проволочной механистской куклой!|72:Линдсей-старший отрешенно рассматривал мотыльков, усеявших тело мертвой.|83:— Вы обязательно ответите за это. И ты, и этот твой плебейский выскочка Константин.|28:Линдсей не верил своим ушам.|109:— Вы… Тупой механистский… Вы что, не видите, что и так уже нас убили?! Она была лучшей… Она была нашей Музой…|48:— Что это за насекомые? — спросил вдруг дядюшка.|173:Он разогнал мотыльков взмахом руки. Только тут Линдсей заметил на шее Веры золотой медальон. Он рванулся к мертвой, чтобы схватить украшение, но дядюшка перехватил его руку.|39:— Это мое, не тронь! — крикнул Линдсей.|126:Старик, вывернув руку Линдсея, пнул его два раза в живот. Линдсей рухнул на колени. Задыхаясь, дядюшка нагнулся за медальоном.|75:— Ты напал на меня, — потрясение произнес он. — Это… насилие над личностью…|71:Он раскрыл медальон, и на пальцы его вытекла тягучая маслянистая капля.|54:— Нет записки? — удивился старик. — Что же это — духи?|97:Он понюхал пальцы. Линдсей, задохнувшись от тошнотворного запаха, упал наземь. Дядюшка вскрикнул.|91:Белые мотыльки тысячами накинулись на него, впиваясь в кожу, испачканную пахучей жидкостью.|58:Они облепили кричащего, размазывающего их по лицу старика.|171:Линдсей перекатился на живот и, поднявшись на четвереньки, отполз подальше. Дядюшка уже не кричал, он бился в траве, точно в припадке эпилепсии. Линдсей задрожал от ужаса.|175:Монитор на дядюшкином запястье засветился красным; старик замер. Мотыльки еще несколько минут продолжали терзать мертвое тело, затем поднялись в воздух и растворились в траве.|92:Линдсей, встав во весь рост, оглядел окрестности. По высокой траве к нему медленно шла жена.|1: |12:ЧАСТЬ ПЕРВАЯ|13:БРОДЯЖЬЯ ЗОНА|1: |7:Глава 1|1: |46:Народный Орбитальный Дзайбацу Моря Спокойствия|8:27.12.15|158:Линдсея отправили в ссылку. Самым дешевым способом. Двое суток провел он слепым и глухим, накачанный наркотиками и залитый густой противоперегрузочной массой.|411:Автоматический катер, запущенный с грузовой направляющей, кибернетически точно лег на полярную орбиту вокруг другой орбитальной станции. Таких миров, названных по кратерам и морям, из которых брали сырье, вращалось вокруг Луны ровно десять. То были первые миры, вчистую порвавшие с истощенной Землей. Целый век их лунный союз был основой цивилизации, и коммерческих рейсов внутри этой Цепи миров было множество.|262:Но миновали дни славы; прогресс глубокого космоса отодвинул Цепь на задворки. Цепь разорвалась, тихий застой обернулся настороженной замкнутостью и техническим регрессом. Орбитальные миры деградировали, и пуще всех — тот, что был определен местом ссылки Линдсея.|178:Прибытие его зафиксировали камеры. Выброшенный из стыковочного узла катера-автомата, Линдсей повис обнаженным в невесомости таможенной камеры Народного Дзайбацу Моря Спокойствия.|
FileName="Livadnyiy_Temnaya_storona_Zemli.33391.txt"
Codepage=16
Styles=#21:@2 BackColor=16777215|0:|32:// Цвет подсветки текущей строки|25:@3 CaretLineBack=15592940|0:|39:// Цвет шрифта и фон выделенного текста|42:@4 SelBack=14461039, SelFontColor=16777215|0:|64:// Цвет и стиль шрифта для парных и непарных операторских скобок|76:@5 (парн.)Bold=True, (парн.)Color=255, (непарн.)Bold=False, (непарн.)Color=0|0:|41:SCI_SETMARGINTYPEN (int margin, int type)|0:|0:|73:// Настройка стиля синтаксиса подсветки в соответствии с выбранным языком|98:// 1-синтаксическая инструкция, стили шрифта 2-полужирный, 3-курсив, 4-подчёркнутый, 5-цвет шрифта|84:# DEFAULT=0, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|84:# IDENTIFIER=1, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|88:# COMMENT=2, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENT2=3, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENTLINE=4, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# PREPROCESSOR=5, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|88:# PREPROCESSOR2=6,FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|86:# NUMBER=7, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|86:# HEXNUMBER=8, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|84:# WORD=9, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|91:# STRING=10, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=11633048|84:# STRINGEOL=11, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|90:# CHARACTER=12, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=8421504|91:# OPERATOR=13, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=11534336|84:# ASM=14, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|
WordsKey1=#568:and array asm begin case cdecl class const constructor default destructor div do downto else end end. except exit exports external far file finalization finally for function goto if implementation in index inherited initialization inline interface label library message mod near nil not object of on or out overload override packed pascal private procedure program property protected public published raise read record register repeat resourcestring safecall set shl shr stdcall stored string then threadvar to try type unit until uses var virtual while with write xor|
CaretLineBack=15131875
BraceHighlight=0
BraceBadFore=65535
IndentationGuides=0
VLines=0
ColorOfFlags=16777215
Numbering=0
NumSizeCorrect=-1
MarginNumFore=8421504
MarginNumBack=16777215
Markers=1
MarkMarginWidth=20
FoldMarginWidth=14
FoldMarginColor1=14012872
FoldIcon=1
FoldIconFore=65535
FoldIconBack=16711680
AutoComplete=1
AutoCompStrings=#568:and array asm begin case cdecl class const constructor default destructor div do downto else end end. except exit exports external far file finalization finally for function goto if implementation in index inherited initialization inline interface label library message mod near nil not object of on or out overload override packed pascal private procedure program property protected public published raise read record register repeat resourcestring safecall set shl shr stdcall stored string then threadvar to try type unit until uses var virtual while with write xor|0:|
MinWordLen=2
WrapVisualFlags=0
UserPoupMenu=0
Point(LinePosition)
Point(StrPosition)
Point(TextLength)
Point(Position)
Point(TextTarget)
Point(GetModify)
Point(onMouseUp)
Point(ArrayFold)
Point(onGetLineFold)
Point(onGetLineMarker)
Point(doSearch)
Point(doUndoRedo)
Point(doSetZoom)
Point(doEditingSelected)
Point(doSetLineFold)
Point(doGetLineFold)
Point(doMarkerAdd)
Point(doGetLineMarker)
Point(doFoldAll)
Point(onSearch)
Point(onMouseDown)
Point(onSave)
Point(onLoad)
Point(doSetEmptyUndoBuffer)
Point(doCodepage)
Point(doStyles)
Point(Handle)
Point(doColor)
Point(doSetSelStart)
Point(doEnsureVisible)
link(onChange,11788860:doEvent1,[(656,468)(656,377)])
link(onMouseDown,5440264:doCompare,[(758,503)(758,713)])
}
Add(PopupMenuEx,5811479,1036,707)
{
Menu=#8:Отменить|9:Повторить|1:-|8:Вырезать|10:Копировать|8:Вставить|7:Удалить|1:-|12:Выделить всё|
GutterLineOn=1
LongSeparator=0
Frame=1
SelColorLight=0
SelColorDark=0
LineColorLight=0
LineColorDark=0
CheckColor=0
SelCheckColor=0
SelColorText=16777215
Bitmaps=[]
Point(doIdxEnabled)
link(MenuItemIdx,7633943:doWork3,[(1080,713)(1080,699)])
}
Add(If_else,5440264,987,707)
{
Op2=Integer(1)
link(onTrue,5811479:doPopupHere,[])
}
Add(LineBreak,5991984,343,511)
{
Caption="UndoRedo"
link(Out,13351448:doUndoRedo,[])
Primary=[1070780,777,154]
}
Add(LineBreak,2591928,350,546)
{
Caption="EditingSel "
link(Out,13351448:doEditingSelected,[(438,552)(438,531)])
Primary=[11234149,770,140]
}
Add(InfoTip,4327450,938,644)
{
Info=#12:UserPoupMenu|
Font=[MS Sans Serif,8,1,0,1]
Width=288
Height=102
}
Add(LineBreak,7402760,1001,665)
{
Caption="UndoRedo"
link(Out,7633943:doWork1,[(1079,671)(1079,685)])
Primary=[12159197,-329,-546]
}
Add(LineBreak,9477324,1001,686)
{
Caption="EditingSel "
link(Out,7633943:doWork2,[])
Primary=[8840974,-329,-546]
}
Add(MultiElement,7633943,1092,679)
{
link(onEvent1,1070780:In,[(1132,685)(1132,671)])
link(onEvent2,11234149:In,[])
}
BEGIN_SDK
Add(EditMulti,3390836,21,21)
{
EventCount=2
WorkCount=3
link(doWork1,3391511:doWork2,[])
link(doWork2,5240325:doWork2,[])
link(doWork3,6580204:doEvent,[])
}
Add(IndexToChanel,6580204,42,35)
{
Count=9
link(onEvent1,7322656:doData,[])
link(onEvent2,14375864:doData,[])
link(onEvent4,13151892:doData,[])
link(onEvent5,15787351:doData,[])
link(onEvent6,9552231:doData,[])
link(onEvent7,5771532:doData,[])
link(onEvent9,5332694:doData,[])
}
Add(DoData,7322656,98,35)
{
Data=Integer(0)
link(onEventData,13663162:doWork2,[])
}
Add(DoData,14375864,98,42)
{
Data=Integer(1)
link(onEventData,13663162:doWork3,[(151,48)])
}
Add(DoData,13151892,98,56)
{
Data=Integer(0)
link(onEventData,14267945:doWork2,[])
}
Add(DoData,15787351,98,63)
{
Data=Integer(1)
link(onEventData,5658367:doWork2,[])
}
Add(DoData,9552231,98,70)
{
Data=Integer(2)
link(onEventData,15561842:doWork2,[])
}
Add(DoData,5771532,98,77)
{
Data=Integer(3)
link(onEventData,15365511:doWork2,[])
}
Add(DoData,5332694,98,91)
{
Data=Integer(4)
link(onEventData,15365511:doWork3,[(165,97)])
}
Add(HubEx,3391511,147,21)
{
link(onEvent,3390836:onEvent1,[])
}
Add(HubEx,13663162,147,35)
{
Angle=3
link(onEvent,3391511:doWork3,[])
}
Add(HubEx,14267945,161,56)
{
Angle=3
link(onEvent,5240325:doWork3,[])
}
Add(HubEx,5658367,161,63)
{
Angle=3
link(onEvent,14267945:doWork3,[])
}
Add(HubEx,15561842,161,70)
{
Angle=3
link(onEvent,5658367:doWork3,[])
}
Add(HubEx,5240325,161,28)
{
link(onEvent,3390836:onEvent2,[])
}
Add(HubEx,15365511,161,77)
{
Angle=3
link(onEvent,15561842:doWork3,[])
}
END_SDK
Add(ScrollBar,1073337,1155,196)
{
Left=928
Top=28
Width=20
Height=489
Align=3
Kind=1
}
Add(Scintilla,367825,1050,273)
{
Left=823
Top=28
Width=105
Height=489
Align=3
Font=[Calibri,1,0,0,1]
Cursor=2
KeyPreview=1
Ctl3D=1
WinStyle=1
Layout=""
WidthScale=80
HeightScale=100
Strings=#26:Брюс Стерлинг. Схизматрица|1: |6:ПРОЛОГ|1: |106:Яркие самолетики миновали продольную ось мира. Линдсей, любуясь, следил за ними, утопая по колено в траве.|226:Хрупкие, словно воздушные змеи, педальные самолетики то ныряли, то взмывали высоко вверх в зоне невесомости. За ними, на другом конце мира, искривленный ландшафт сверкал желтизной пшеничных и пятнистой зеленью хлопковых полей.|480:Линдсей прикрыл ладонью глаза — сквозь стеклянные панели в мир хлестали потоки яркого солнечного света. Самолет с синими крыльями из материи, разрисованными под птичьи, пересек один из таких световых столбов и теперь парил, постепенно снижаясь. Линдсей различил вьющиеся по ветру русые волосы авиаторши, крутившей педали, чтобы набрать высоту, и понял, что она тоже его заметила. Захотелось крикнуть, помахать ей рукой, но при свидетелях этого ни в коем случае делать было нельзя.|192:Тюремщики уже были рядом — собственные его супруга и дядюшка. Пожилые аристократы с натугой переставляли ноги. Дядюшкино лицо побагровело так, что старику пришлось даже усилить сердечный ритм.|51:— Ты… бежал! — выдохнул наконец старик. — Ты бежал!|113:— Я просто решил размяться, — вызывающе вежливо отвечал Линдсей. — Мышцы здорово застоялись под домашним арестом.|217:Прикрыв глаза сложенной козырьком ладонью, испещренной старческими веснушками, дядюшка проследил направление его взгляда. Пестрый аппаратик парил над Хлябями — пораженным гниением участком сельскохозяйственной панели.|106:— Хляби разглядываешь? Где работает твой дружок Константин? Говорят, он как-то связывается с тобой оттуда.|57:— Он специализируется по насекомым, а не по криптографии.|85:Линдсей лгал. Тайные сообщения Константина были единственным его источником новостей.|204:После раскрытия заговора Линдсея заточили под домашний арест в стенах фамильной усадьбы, а Филипу Константину как инженеру по экологии не нашлось подходящей замены, и его решили оставить на рабочем месте.|420:Нервы домашнего арестанта, пока он томился в усадьбе, здорово сдали. Линдсей чувствовал себя человеком лишь там, где мог найти применение своим навыкам дипломата. Он сильно похудел; над резко выделившимися скулами мрачно блестели глаза. Темные, по моде завитые волосы растрепались от бега. Высокий рост, благородный лоб, волевой подбородок, само его безупречное сложение были характерными фамильными признаками Линдсеев.|276:Супруга его, Александрина Линдсей, взяла мужа под руку. Одета она была в модную плиссированную юбку и белоснежную медицинскую куртку. Здоровый вид ее не выказывал, однако же, настоящей жизненной силы — лицо словно из вощеной бумаги, уложенные с помощью лака завитки на висках.|124:— Джеймс, — обратилась она к старику, — вы же обещали! Зачем опять — о политике? Абеляр, ты такой бледный. Чем-то расстроен?|158:— Я? Расстроен? — Навыки дипломатии, усвоенные у шейперов, заработали: кожа порозовела, зрачки слегка расширились, губы сложились в открытую белозубую улыбку.|42:Дядюшка, недовольно насупившись, отступил.|35:Александрина оперлась на руку мужа.|39:— Не делай так больше. Ты меня пугаешь.|169:Она была старше Линдсея на пятьдесят лет и недавно прошла операцию, заменив коленные чашечки на тефлоновые механистские протезы, но колени явно беспокоили ее до сих пор.|221:Линдсей переложил книгу из руки в руку. Под домашним арестом он коротал время, переводя на современный солярноорбитальный английский пьесы Шекспира. Родственники одобряли — чем бы дитя ни тешилось, только бы не политикой.|125:Даже позволили лично передать рукопись в Музей. И такая поблажка на несколько часов вывела его из заточения в четырех стенах.|107:Музей был рассадником оппозиции. Там были друзья, презервационисты, как называли они свою небольшую группу.|0:|115:Реакционная молодежь, вдохновленная романтикой искусства и культуры прошлого. Они превратили Музей в свою цитадель.|231:Мир их назывался Корпоративной орбитальной республикой Моря Ясности. Заселенная почти двести лет назад, эта лунная орбитальная станция была одним из старейших космических поселений с устоявшимися традициями и собственной культурой.|420:Однако ж ветры перемен, дующие с молодых, энергичных миров Пояса астероидов и Колец Сатурна, проникли и сюда. Не миновали этого тихого города-государства и отзвуки Бессистемной великой войны между двумя сверхдержавами шейперов и механистов. В результате население Республики раскололось на презервационистов, к которым принадлежал Линдсей, и радикальных старцев. Плебеи поднялись на борьбу с процветающими аристократами.|377:Власти Республики держали сторону механистов. Радикальные старцы, каждому — далеко за сто, правили прямо из клиник, будучи неразрывно связаны с медицинской аппаратурой механистов. Лишь импортируемые технологии протезирования еще позволяли им жить. Республика погрязла в долгах, но расходы на медицину росли год от года. Мир все больше и больше зависел от механистских картелей.|330:Шейперы тоже не обходили Республику своим вниманием и своим арсеналом соблазнов. Несколько лет назад Линдсей с Константином прошли у них курс обучения, и именно это сделало друзей первыми в своем поколении. Молодежь, не в силах смириться с принесением в жертву механистским выгодам своих законных прав, встала на сторону шейперов.|94:Социальная напряженность достигла той стадии, когда взрыв может вызвать самая крохотная искра.|75:Предметом спора была сама жизнь. Аргументом же в этом споре служила смерть.|78:Запыхавшийся дядюшка тронул свой пульт-браслет, уменьшая частоту сердцебиения.|142:— Постарайся обойтись без этих выходок, — сказал он. — Нас ждут, и воздержись там, в Музее, от риторики. Ничего, кроме заранее согласованного.|77:Линдсей поднял взгляд. Птицеподобный самолет в стремительном пике несся вниз.|14:— Не-е-е-ет!!!|28:Отшвырнув книгу, он побежал.|135:Аппарат рухнул в траву близ открытого амфитеатра с каменными скамьями. Крылья его, конвульсивно дрожа, возвышались над грудой обломков.|13:— Ве-е-ера!!!|335:Когда он вытащил ее из путаницы стоек и растяжек, она еще дышала, но была без сознания. Изо рта и носа шла кровь. Ребра явно были сломаны. Рванув ворот ее костюма, Линдсей сильно поранил руку проволокой — костюм, по моде презервационистов, имитировал старинный космический скафандр. Его гофрированные рукава были смяты и залиты кровью.|116:Облачко белых крохотных мотыльков поднялось над травой. Они суетились в воздухе, словно притягиваемые запахом крови.|116:Смахнув с Вериного лица мотылька, Линдсей прижался губами к ее губам. Пульсирующая жилка на шее замерла. Все. Конец.|51:— Вера, любимая моя, — прошептал он. — Ты все-таки…|99:Обхватив голову руками, он рухнул в траву. Боль утраты смешалась в нем с восхищением силой ее духа.|176:Вера решилась на то, о чем они часто беседовали — в Музее, ночами, в постели, после воровской близости. Самоубийство как средство борьбы. Последнее средство выражения протеста.|136:Черная бездна распахнулась перед внутренним взором Линдсея. Путь к свободе… Но неожиданно в душе взметнулась бурная волна любви к жизни.|45:— Что ж, любовь моя… Сейчас, подожди немного…|65:Он поднялся на колени. К нему, побелев лицом, уже спешил дядюшка.|56:— Этот твой поступок… Отвратительно! — выкрикнул старик.|38:Линдсей одним прыжком вскочил на нога:|20:— Отойди! Не трогай!|67:— Старик застыл над телом покойной, не сводя с нее выпученных глаз.|62:— Проклятый дурак!.. Она умерла! Ей было всего двадцать шесть!|125:Линдсей выдернул из рукава, собранного в тугие складки на локте и у запястья, грубо выкованный нож и приставил к своей груди.|96:— Во имя вечных человеческих ценностей… Во имя гуманизма… Выбираю по собственной свободной воле…|148:Старик схватил его за запястье. После короткой схватки нож выпал из руки Линдсея. Дядюшка поднял нож и положил в карман лабораторной рабочей куртки.|100:— А это, — прохрипел он, — нарушение закона. И за незаконное хранение оружия тебе придется отвечать.|140:— Хоть я и в ваших руках, — ухмыльнулся Линдсей, — вы не сможете помешать мне умереть. А сейчас или чуть позже — какая, собственно, разница…|162:— Ф-фанатик, — с отвращением выплюнул дядюшка. — Выучили шейперы, нечего сказать… Республика оплатила твое обучение, а ты с его помощью сеешь разрушение и смерть!|98:— Она умерла человеком! Лучше вот так, в полете, чем — двести лет проволочной механистской куклой!|72:Линдсей-старший отрешенно рассматривал мотыльков, усеявших тело мертвой.|83:— Вы обязательно ответите за это. И ты, и этот твой плебейский выскочка Константин.|28:Линдсей не верил своим ушам.|109:— Вы… Тупой механистский… Вы что, не видите, что и так уже нас убили?! Она была лучшей… Она была нашей Музой…|48:— Что это за насекомые? — спросил вдруг дядюшка.|173:Он разогнал мотыльков взмахом руки. Только тут Линдсей заметил на шее Веры золотой медальон. Он рванулся к мертвой, чтобы схватить украшение, но дядюшка перехватил его руку.|39:— Это мое, не тронь! — крикнул Линдсей.|126:Старик, вывернув руку Линдсея, пнул его два раза в живот. Линдсей рухнул на колени. Задыхаясь, дядюшка нагнулся за медальоном.|75:— Ты напал на меня, — потрясение произнес он. — Это… насилие над личностью…|71:Он раскрыл медальон, и на пальцы его вытекла тягучая маслянистая капля.|54:— Нет записки? — удивился старик. — Что же это — духи?|97:Он понюхал пальцы. Линдсей, задохнувшись от тошнотворного запаха, упал наземь. Дядюшка вскрикнул.|91:Белые мотыльки тысячами накинулись на него, впиваясь в кожу, испачканную пахучей жидкостью.|58:Они облепили кричащего, размазывающего их по лицу старика.|171:Линдсей перекатился на живот и, поднявшись на четвереньки, отполз подальше. Дядюшка уже не кричал, он бился в траве, точно в припадке эпилепсии. Линдсей задрожал от ужаса.|175:Монитор на дядюшкином запястье засветился красным; старик замер. Мотыльки еще несколько минут продолжали терзать мертвое тело, затем поднялись в воздух и растворились в траве.|92:Линдсей, встав во весь рост, оглядел окрестности. По высокой траве к нему медленно шла жена.|1: |12:ЧАСТЬ ПЕРВАЯ|13:БРОДЯЖЬЯ ЗОНА|1: |7:Глава 1|1: |46:Народный Орбитальный Дзайбацу Моря Спокойствия|8:27.12.15|158:Линдсея отправили в ссылку. Самым дешевым способом. Двое суток провел он слепым и глухим, накачанный наркотиками и залитый густой противоперегрузочной массой.|411:Автоматический катер, запущенный с грузовой направляющей, кибернетически точно лег на полярную орбиту вокруг другой орбитальной станции. Таких миров, названных по кратерам и морям, из которых брали сырье, вращалось вокруг Луны ровно десять. То были первые миры, вчистую порвавшие с истощенной Землей. Целый век их лунный союз был основой цивилизации, и коммерческих рейсов внутри этой Цепи миров было множество.|262:Но миновали дни славы; прогресс глубокого космоса отодвинул Цепь на задворки. Цепь разорвалась, тихий застой обернулся настороженной замкнутостью и техническим регрессом. Орбитальные миры деградировали, и пуще всех — тот, что был определен местом ссылки Линдсея.|178:Прибытие его зафиксировали камеры. Выброшенный из стыковочного узла катера-автомата, Линдсей повис обнаженным в невесомости таможенной камеры Народного Дзайбацу Моря Спокойствия.|
FileName="Livadnyiy_Temnaya_storona_Zemli.33391.txt"
Codepage=16
CaretLineBack=8421504
VLines=0
ColorOfFlags=39680
Numbering=0
NumSizeCorrect=-3
MarginNumFore=8421504
MarginNumBack=16777215
Markers=1
MarkMarginWidth=5
MarkerForm=9
WrapMode=0
WrapVisualFlags=0
Point(WidthControls)
Point(PosSearchStart)
Point(onMouseDown)
Point(LinePosition)
Point(SelText)
Point(StrPosition)
Point(Position)
link(onMouseDown,15504690:doData,[(1121,286)(1121,342)(1017,342)(1017,398)])
}
Add(Hub,11788860,784,371)
{
OutCount=4
link(onEvent1,367825:doClear,[(934,377)(934,286)])
link(onEvent2,367825:doAdd,[(934,384)(934,279)])
}


Редактировалось 5 раз(а), последний 2018-01-29 14:52:41
карма: 0

0
Ответов: 1416
Рейтинг: 97
#112: 2018-01-29 16:25:10 ЛС | профиль | цитата
Смотри тут http://forum.hiasm.com/getfile/38309

Сейчас не могу примеры делать, пироги делаю. Капуста горит!
А что надо то? Просто текст, текст программы, или ещё что?
Или просто так, по клавишам?
Вечером сделаю, если у тебя чего-то не получится.
карма: 3

0
Ответов: 88
Рейтинг: 0
#113: 2018-01-29 17:14:25 ЛС | профиль | цитата
flint2 писал(а):
Сейчас не могу примеры делать, пироги делаю. Капуста горит!
А что надо то? Просто текст, текст программы, или ещё что?
Или просто так, по клавишам?
Вечером сделаю, если у тебя чего-то не получится.

Будущего приятного аппетита)))

Да хотелось сделать что бы большой блокнот был основным окном работы с текстом, а малый был аля скролбар, что бы перематывал при нажатии до нажатого элемента (это получилось, но только если два раза подряд нажимаешь)(еще косяк что при установке только для чтения перестает добавлять строки и не получается что бы курсор всегда был в виде стрелки), и все это дело привязано к одному скролбару.

В схеме выше показано как это должно размещаться.

Редактировалось 2 раз(а), последний 2018-01-29 17:16:49
карма: 0

0
Ответов: 1416
Рейтинг: 97
#114: 2018-01-29 19:26:49 ЛС | профиль | цитата

Будущего приятного аппетита)))

Спасибо! Всё получилось.
еще косяк что при установке только для чтения перестает добавлять строки

Это не косяк! Ключевые слова "только для чтения".
что бы курсор всегда был в виде стрелки

На шрифте в подобных компонентах по умолчанию такой курсор. Если хочешь стрелочку, тогда надо картину - графику выводить. (Это уже другая история.)

Add(MainForm,12962320,385,189)
{
Width=1181
Height=556
Position=1
link(onCreate,12597011:doWork2,[(606,209)(606,244)])
}
Add(DoData,89786,966,371)
{
}
Add(DoData,15504690,903,350)
{
link(onEventData,2347603:doEvent1,[(947,356)(947,450)(380,450)(380,545)])
link(Data,367825:Position,[(909,313)(972,313)])
}
Add(ChildPanel,3318256,574,63)
{
@Hint=#7:Toolbar|
@Color=16755285
link(onEvent1,12159197:In,[])
link(onEvent2,8840974:In,[(625,76)(625,90)])
AddHint(62,-23,51,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,5708489,21,21)
{
EventCount=11
WorkCount=2
DataCount=1
VarCount=1
Width=531
Height=459
}
Add(Panel,4415339,63,42)
{
Width=1173
Height=28
Align=2
Color=16777215
WinStyle=1
Layout="parent.main"
WidthScale=100
HeightScale=11
BevelInner=0
}
Add(BitBtn,3941641,126,84)
{
Left=92
Top=7
Width=24
Height=24
Color=16777215
Layout="Loyaut1"
Frame=1
Caption=""
Data=Integer(3)
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C17F2AC1BCBC3C3026476F65FC2B064D86FB0CF61ACB18525353F1AA4D0AD8C4A0C77E03AB7E03AEDB0CC17E5938CD70D33C0C5617E5B60DA71B6C652E31C4C7C763C85B499C05DB8B4D2F0C5625BC069B116471982125258524BDE866049A1F66080E886330163ACEA0C3769D28BDE87E01E9D366BDC69095D443729CE873DC049BE1AE7D8464FDC8FE35E37FC010694BBC1B407AD1E3C859FE118397C65D8266588A9FC119BFF10ECF194CF9EEE334039F5E6433406AD0C51D651F80C541E98B9CF46F26F090C157E721D5F222291000B3EDC6C9]
Point(doBitmap)
link(onClick,4456776:doWork2,[(174,90)(174,125)])
}
Add(BitBtn,7666019,189,84)
{
Left=61
Top=7
Width=24
Height=24
Color=16777215
Hint="Выделить всё"
Layout="Loyaut1"
Frame=1
Caption=""
Data=Integer(4)
Bitmap=[ZIP3603000078DA73F235636600033320D600620128666490804840E591C17F86FFA4A2331EF670448C2C56655835223318F0024CF5C49B0F4104CDA7108D1CF3075BFC92943E01EFD07536]
Point(doBitmap)
link(onClick,4456776:doWork3,[(235,90)])
}
Add(BitBtn,8718455,133,35)
{
Left=9
Top=7
Width=24
Height=24
Color=16777215
Layout="Loyaut1"
Frame=1
Caption=""
Data=Integer(0)
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF5148326CC1116E2071744C897E52DD40AC5E42FAF1B991907E5CE611E37F7C7691E2B751483C0400A89AD624]
Point(doBitmap)
link(onClick,7370036:doWork2,[])
}
Add(BitBtn,8925826,189,42)
{
Left=34
Top=7
Width=24
Height=24
Color=16777215
Layout="Loyaut1"
Frame=1
Caption=""
Data=Integer(1)
Bitmap=[ZIP3603000078DA73F235636600033320D600620128666490804840E591C17F86FFC300B590E8114CF5401164448CE1A4AA47D642A4F9702DF8DD8FA606AB81B85C3BC21100C6F2D61A]
Point(doBitmap)
link(onClick,7370036:doWork3,[(235,48)])
}
Add(HubEx,7370036,231,35)
{
link(onEvent,5708489:onEvent1,[(356,41)(356,27)])
}
Add(HubEx,4456776,231,119)
{
link(onEvent,5708489:onEvent2,[(447,125)(447,34)])
}
Add(HBoxLayout,4113560,364,49)
{
Name="Loyaut1"
Space=2
}
Add(BitBtn,191979,77,140)
{
Left=281
Top=2
Width=24
Height=24
Color=16777215
Hint="Начать поиск / искать далее"
Layout="Loyaut1"
Frame=1
Caption=""
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF4100B10152D481E9FFC4E9C7A68E1AFA710152E4FFE351FAFFFF7F92F523EBA1A57E427EC4E7776AC70FB1E14F4C5A24461C9F1F8811A7B6FDA4420052950D6F]
Point(doBitmap)
}
END_SDK
Add(Scintilla,13351448,434,406)
{
Top=28
Width=843
Height=501
Align=5
Font=[Calibri,12,0,0,204]
Ctl3D=1
Layout=""
Strings=#26:Брюс Стерлинг. Схизматрица|1: |6:ПРОЛОГ|1: |106:Яркие самолетики миновали продольную ось мира. Линдсей, любуясь, следил за ними, утопая по колено в траве.|226:Хрупкие, словно воздушные змеи, педальные самолетики то ныряли, то взмывали высоко вверх в зоне невесомости. За ними, на другом конце мира, искривленный ландшафт сверкал желтизной пшеничных и пятнистой зеленью хлопковых полей.|480:Линдсей прикрыл ладонью глаза — сквозь стеклянные панели в мир хлестали потоки яркого солнечного света. Самолет с синими крыльями из материи, разрисованными под птичьи, пересек один из таких световых столбов и теперь парил, постепенно снижаясь. Линдсей различил вьющиеся по ветру русые волосы авиаторши, крутившей педали, чтобы набрать высоту, и понял, что она тоже его заметила. Захотелось крикнуть, помахать ей рукой, но при свидетелях этого ни в коем случае делать было нельзя.|192:Тюремщики уже были рядом — собственные его супруга и дядюшка. Пожилые аристократы с натугой переставляли ноги. Дядюшкино лицо побагровело так, что старику пришлось даже усилить сердечный ритм.|51:— Ты… бежал! — выдохнул наконец старик. — Ты бежал!|113:— Я просто решил размяться, — вызывающе вежливо отвечал Линдсей. — Мышцы здорово застоялись под домашним арестом.|217:Прикрыв глаза сложенной козырьком ладонью, испещренной старческими веснушками, дядюшка проследил направление его взгляда. Пестрый аппаратик парил над Хлябями — пораженным гниением участком сельскохозяйственной панели.|106:— Хляби разглядываешь? Где работает твой дружок Константин? Говорят, он как-то связывается с тобой оттуда.|57:— Он специализируется по насекомым, а не по криптографии.|85:Линдсей лгал. Тайные сообщения Константина были единственным его источником новостей.|204:После раскрытия заговора Линдсея заточили под домашний арест в стенах фамильной усадьбы, а Филипу Константину как инженеру по экологии не нашлось подходящей замены, и его решили оставить на рабочем месте.|420:Нервы домашнего арестанта, пока он томился в усадьбе, здорово сдали. Линдсей чувствовал себя человеком лишь там, где мог найти применение своим навыкам дипломата. Он сильно похудел; над резко выделившимися скулами мрачно блестели глаза. Темные, по моде завитые волосы растрепались от бега. Высокий рост, благородный лоб, волевой подбородок, само его безупречное сложение были характерными фамильными признаками Линдсеев.|276:Супруга его, Александрина Линдсей, взяла мужа под руку. Одета она была в модную плиссированную юбку и белоснежную медицинскую куртку. Здоровый вид ее не выказывал, однако же, настоящей жизненной силы — лицо словно из вощеной бумаги, уложенные с помощью лака завитки на висках.|124:— Джеймс, — обратилась она к старику, — вы же обещали! Зачем опять — о политике? Абеляр, ты такой бледный. Чем-то расстроен?|158:— Я? Расстроен? — Навыки дипломатии, усвоенные у шейперов, заработали: кожа порозовела, зрачки слегка расширились, губы сложились в открытую белозубую улыбку.|42:Дядюшка, недовольно насупившись, отступил.|35:Александрина оперлась на руку мужа.|39:— Не делай так больше. Ты меня пугаешь.|169:Она была старше Линдсея на пятьдесят лет и недавно прошла операцию, заменив коленные чашечки на тефлоновые механистские протезы, но колени явно беспокоили ее до сих пор.|221:Линдсей переложил книгу из руки в руку. Под домашним арестом он коротал время, переводя на современный солярноорбитальный английский пьесы Шекспира. Родственники одобряли — чем бы дитя ни тешилось, только бы не политикой.|125:Даже позволили лично передать рукопись в Музей. И такая поблажка на несколько часов вывела его из заточения в четырех стенах.|107:Музей был рассадником оппозиции. Там были друзья, презервационисты, как называли они свою небольшую группу.|0:|115:Реакционная молодежь, вдохновленная романтикой искусства и культуры прошлого. Они превратили Музей в свою цитадель.|231:Мир их назывался Корпоративной орбитальной республикой Моря Ясности. Заселенная почти двести лет назад, эта лунная орбитальная станция была одним из старейших космических поселений с устоявшимися традициями и собственной культурой.|420:Однако ж ветры перемен, дующие с молодых, энергичных миров Пояса астероидов и Колец Сатурна, проникли и сюда. Не миновали этого тихого города-государства и отзвуки Бессистемной великой войны между двумя сверхдержавами шейперов и механистов. В результате население Республики раскололось на презервационистов, к которым принадлежал Линдсей, и радикальных старцев. Плебеи поднялись на борьбу с процветающими аристократами.|377:Власти Республики держали сторону механистов. Радикальные старцы, каждому — далеко за сто, правили прямо из клиник, будучи неразрывно связаны с медицинской аппаратурой механистов. Лишь импортируемые технологии протезирования еще позволяли им жить. Республика погрязла в долгах, но расходы на медицину росли год от года. Мир все больше и больше зависел от механистских картелей.|330:Шейперы тоже не обходили Республику своим вниманием и своим арсеналом соблазнов. Несколько лет назад Линдсей с Константином прошли у них курс обучения, и именно это сделало друзей первыми в своем поколении. Молодежь, не в силах смириться с принесением в жертву механистским выгодам своих законных прав, встала на сторону шейперов.|94:Социальная напряженность достигла той стадии, когда взрыв может вызвать самая крохотная искра.|75:Предметом спора была сама жизнь. Аргументом же в этом споре служила смерть.|78:Запыхавшийся дядюшка тронул свой пульт-браслет, уменьшая частоту сердцебиения.|142:— Постарайся обойтись без этих выходок, — сказал он. — Нас ждут, и воздержись там, в Музее, от риторики. Ничего, кроме заранее согласованного.|77:Линдсей поднял взгляд. Птицеподобный самолет в стремительном пике несся вниз.|14:— Не-е-е-ет!!!|28:Отшвырнув книгу, он побежал.|135:Аппарат рухнул в траву близ открытого амфитеатра с каменными скамьями. Крылья его, конвульсивно дрожа, возвышались над грудой обломков.|13:— Ве-е-ера!!!|335:Когда он вытащил ее из путаницы стоек и растяжек, она еще дышала, но была без сознания. Изо рта и носа шла кровь. Ребра явно были сломаны. Рванув ворот ее костюма, Линдсей сильно поранил руку проволокой — костюм, по моде презервационистов, имитировал старинный космический скафандр. Его гофрированные рукава были смяты и залиты кровью.|116:Облачко белых крохотных мотыльков поднялось над травой. Они суетились в воздухе, словно притягиваемые запахом крови.|116:Смахнув с Вериного лица мотылька, Линдсей прижался губами к ее губам. Пульсирующая жилка на шее замерла. Все. Конец.|51:— Вера, любимая моя, — прошептал он. — Ты все-таки…|99:Обхватив голову руками, он рухнул в траву. Боль утраты смешалась в нем с восхищением силой ее духа.|176:Вера решилась на то, о чем они часто беседовали — в Музее, ночами, в постели, после воровской близости. Самоубийство как средство борьбы. Последнее средство выражения протеста.|136:Черная бездна распахнулась перед внутренним взором Линдсея. Путь к свободе… Но неожиданно в душе взметнулась бурная волна любви к жизни.|45:— Что ж, любовь моя… Сейчас, подожди немного…|65:Он поднялся на колени. К нему, побелев лицом, уже спешил дядюшка.|56:— Этот твой поступок… Отвратительно! — выкрикнул старик.|38:Линдсей одним прыжком вскочил на нога:|20:— Отойди! Не трогай!|67:— Старик застыл над телом покойной, не сводя с нее выпученных глаз.|62:— Проклятый дурак!.. Она умерла! Ей было всего двадцать шесть!|125:Линдсей выдернул из рукава, собранного в тугие складки на локте и у запястья, грубо выкованный нож и приставил к своей груди.|96:— Во имя вечных человеческих ценностей… Во имя гуманизма… Выбираю по собственной свободной воле…|148:Старик схватил его за запястье. После короткой схватки нож выпал из руки Линдсея. Дядюшка поднял нож и положил в карман лабораторной рабочей куртки.|100:— А это, — прохрипел он, — нарушение закона. И за незаконное хранение оружия тебе придется отвечать.|140:— Хоть я и в ваших руках, — ухмыльнулся Линдсей, — вы не сможете помешать мне умереть. А сейчас или чуть позже — какая, собственно, разница…|162:— Ф-фанатик, — с отвращением выплюнул дядюшка. — Выучили шейперы, нечего сказать… Республика оплатила твое обучение, а ты с его помощью сеешь разрушение и смерть!|98:— Она умерла человеком! Лучше вот так, в полете, чем — двести лет проволочной механистской куклой!|72:Линдсей-старший отрешенно рассматривал мотыльков, усеявших тело мертвой.|83:— Вы обязательно ответите за это. И ты, и этот твой плебейский выскочка Константин.|28:Линдсей не верил своим ушам.|109:— Вы… Тупой механистский… Вы что, не видите, что и так уже нас убили?! Она была лучшей… Она была нашей Музой…|48:— Что это за насекомые? — спросил вдруг дядюшка.|173:Он разогнал мотыльков взмахом руки. Только тут Линдсей заметил на шее Веры золотой медальон. Он рванулся к мертвой, чтобы схватить украшение, но дядюшка перехватил его руку.|39:— Это мое, не тронь! — крикнул Линдсей.|126:Старик, вывернув руку Линдсея, пнул его два раза в живот. Линдсей рухнул на колени. Задыхаясь, дядюшка нагнулся за медальоном.|75:— Ты напал на меня, — потрясение произнес он. — Это… насилие над личностью…|71:Он раскрыл медальон, и на пальцы его вытекла тягучая маслянистая капля.|54:— Нет записки? — удивился старик. — Что же это — духи?|97:Он понюхал пальцы. Линдсей, задохнувшись от тошнотворного запаха, упал наземь. Дядюшка вскрикнул.|91:Белые мотыльки тысячами накинулись на него, впиваясь в кожу, испачканную пахучей жидкостью.|58:Они облепили кричащего, размазывающего их по лицу старика.|171:Линдсей перекатился на живот и, поднявшись на четвереньки, отполз подальше. Дядюшка уже не кричал, он бился в траве, точно в припадке эпилепсии. Линдсей задрожал от ужаса.|175:Монитор на дядюшкином запястье засветился красным; старик замер. Мотыльки еще несколько минут продолжали терзать мертвое тело, затем поднялись в воздух и растворились в траве.|92:Линдсей, встав во весь рост, оглядел окрестности. По высокой траве к нему медленно шла жена.|1: |12:ЧАСТЬ ПЕРВАЯ|13:БРОДЯЖЬЯ ЗОНА|1: |7:Глава 1|1: |46:Народный Орбитальный Дзайбацу Моря Спокойствия|8:27.12.15|158:Линдсея отправили в ссылку. Самым дешевым способом. Двое суток провел он слепым и глухим, накачанный наркотиками и залитый густой противоперегрузочной массой.|411:Автоматический катер, запущенный с грузовой направляющей, кибернетически точно лег на полярную орбиту вокруг другой орбитальной станции. Таких миров, названных по кратерам и морям, из которых брали сырье, вращалось вокруг Луны ровно десять. То были первые миры, вчистую порвавшие с истощенной Землей. Целый век их лунный союз был основой цивилизации, и коммерческих рейсов внутри этой Цепи миров было множество.|262:Но миновали дни славы; прогресс глубокого космоса отодвинул Цепь на задворки. Цепь разорвалась, тихий застой обернулся настороженной замкнутостью и техническим регрессом. Орбитальные миры деградировали, и пуще всех — тот, что был определен местом ссылки Линдсея.|178:Прибытие его зафиксировали камеры. Выброшенный из стыковочного узла катера-автомата, Линдсей повис обнаженным в невесомости таможенной камеры Народного Дзайбацу Моря Спокойствия.|
FileName="Livadnyiy_Temnaya_storona_Zemli.33391.txt"
Codepage=16
Styles=#21:@2 BackColor=16777215|0:|32:// Цвет подсветки текущей строки|25:@3 CaretLineBack=15592940|0:|39:// Цвет шрифта и фон выделенного текста|42:@4 SelBack=14461039, SelFontColor=16777215|0:|64:// Цвет и стиль шрифта для парных и непарных операторских скобок|76:@5 (парн.)Bold=True, (парн.)Color=255, (непарн.)Bold=False, (непарн.)Color=0|0:|41:SCI_SETMARGINTYPEN (int margin, int type)|0:|0:|73:// Настройка стиля синтаксиса подсветки в соответствии с выбранным языком|98:// 1-синтаксическая инструкция, стили шрифта 2-полужирный, 3-курсив, 4-подчёркнутый, 5-цвет шрифта|84:# DEFAULT=0, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|84:# IDENTIFIER=1, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|88:# COMMENT=2, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENT2=3, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENTLINE=4, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# PREPROCESSOR=5, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|88:# PREPROCESSOR2=6,FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|86:# NUMBER=7, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|86:# HEXNUMBER=8, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|84:# WORD=9, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|91:# STRING=10, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=11633048|84:# STRINGEOL=11, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|90:# CHARACTER=12, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=8421504|91:# OPERATOR=13, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=11534336|84:# ASM=14, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|
WordsKey1=#568:and array asm begin case cdecl class const constructor default destructor div do downto else end end. except exit exports external far file finalization finally for function goto if implementation in index inherited initialization inline interface label library message mod near nil not object of on or out overload override packed pascal private procedure program property protected public published raise read record register repeat resourcestring safecall set shl shr stdcall stored string then threadvar to try type unit until uses var virtual while with write xor|
CaretLineBack=15131875
BraceHighlight=0
BraceBadFore=65535
IndentationGuides=0
VLines=0
ColorOfFlags=16777215
Numbering=0
NumSizeCorrect=-1
MarginNumFore=8421504
MarginNumBack=16777215
Markers=1
MarkMarginWidth=20
FoldMarginWidth=14
FoldMarginColor1=14012872
FoldIcon=1
FoldIconFore=65535
FoldIconBack=16711680
AutoComplete=1
AutoCompStrings=#568:and array asm begin case cdecl class const constructor default destructor div do downto else end end. except exit exports external far file finalization finally for function goto if implementation in index inherited initialization inline interface label library message mod near nil not object of on or out overload override packed pascal private procedure program property protected public published raise read record register repeat resourcestring safecall set shl shr stdcall stored string then threadvar to try type unit until uses var virtual while with write xor|0:|
MinWordLen=2
WrapVisualFlags=0
ScrollBars=2
UserPoupMenu=0
Point(LinePosition)
Point(StrPosition)
Point(TextLength)
Point(Position)
Point(TextTarget)
Point(GetModify)
Point(onMouseUp)
Point(ArrayFold)
Point(onGetLineFold)
Point(onGetLineMarker)
Point(doSearch)
Point(doUndoRedo)
Point(doSetZoom)
Point(doEditingSelected)
Point(doSetLineFold)
Point(doGetLineFold)
Point(doMarkerAdd)
Point(doGetLineMarker)
Point(doFoldAll)
Point(onSearch)
Point(onMouseDown)
Point(onSave)
Point(onLoad)
Point(doSetEmptyUndoBuffer)
Point(doCodepage)
Point(doStyles)
Point(Handle)
Point(doColor)
Point(doSetSelStart)
Point(doEnsureVisible)
link(onChange,12597011:doWork3,[(798,412)])
link(onMouseUp,901142:doData,[(512,419)(512,503)(464,503)(464,587)])
link(onMouseDown,5440264:doCompare,[(730,447)(730,671)])
}
Add(PopupMenuEx,5811479,910,665)
{
Menu=#8:Отменить|9:Повторить|1:-|8:Вырезать|10:Копировать|8:Вставить|7:Удалить|1:-|12:Выделить всё|
GutterLineOn=1
LongSeparator=0
Frame=1
SelColorLight=0
SelColorDark=0
LineColorLight=0
LineColorDark=0
CheckColor=0
SelCheckColor=0
SelColorText=16777215
Bitmaps=[]
Point(doIdxEnabled)
link(MenuItemIdx,7633943:doWork3,[(954,671)(954,657)])
}
Add(If_else,5440264,861,665)
{
Op2=Integer(1)
link(onTrue,5811479:doPopupHere,[])
}
Add(LineBreak,12580616,315,455)
{
Caption="UndoRedo"
link(Out,13351448:doUndoRedo,[])
Primary=[1070780,679,168]
}
Add(LineBreak,3776343,322,490)
{
Caption="EditingSel "
link(Out,13351448:doEditingSelected,[(410,496)(410,475)])
Primary=[11234149,672,154]
}
Add(InfoTip,4327450,812,602)
{
Info=#12:UserPoupMenu|
Font=[MS Sans Serif,8,1,0,1]
Width=288
Height=102
}
Add(LineBreak,4186644,875,623)
{
Caption="UndoRedo"
link(Out,7633943:doWork1,[(953,629)(953,643)])
Primary=[12159197,-231,-560]
}
Add(LineBreak,12312011,875,644)
{
Caption="EditingSel "
link(Out,7633943:doWork2,[])
Primary=[8840974,-231,-560]
}
Add(MultiElement,7633943,966,637)
{
link(onEvent1,1070780:In,[(1006,643)(1006,629)])
link(onEvent2,11234149:In,[])
}
BEGIN_SDK
Add(EditMulti,3390836,21,21)
{
EventCount=2
WorkCount=3
link(doWork1,3391511:doWork2,[])
link(doWork2,5240325:doWork2,[])
link(doWork3,6580204:doEvent,[])
}
Add(IndexToChanel,6580204,42,35)
{
Count=9
link(onEvent1,7322656:doData,[])
link(onEvent2,14375864:doData,[])
link(onEvent4,13151892:doData,[])
link(onEvent5,15787351:doData,[])
link(onEvent6,9552231:doData,[])
link(onEvent7,5771532:doData,[])
link(onEvent9,5332694:doData,[])
}
Add(DoData,7322656,98,35)
{
Data=Integer(0)
link(onEventData,13663162:doWork2,[])
}
Add(DoData,14375864,98,42)
{
Data=Integer(1)
link(onEventData,13663162:doWork3,[(151,48)])
}
Add(DoData,13151892,98,56)
{
Data=Integer(0)
link(onEventData,14267945:doWork2,[])
}
Add(DoData,15787351,98,63)
{
Data=Integer(1)
link(onEventData,5658367:doWork2,[])
}
Add(DoData,9552231,98,70)
{
Data=Integer(2)
link(onEventData,15561842:doWork2,[])
}
Add(DoData,5771532,98,77)
{
Data=Integer(3)
link(onEventData,15365511:doWork2,[])
}
Add(DoData,5332694,98,91)
{
Data=Integer(4)
link(onEventData,15365511:doWork3,[(165,97)])
}
Add(HubEx,3391511,147,21)
{
link(onEvent,3390836:onEvent1,[])
}
Add(HubEx,13663162,147,35)
{
Angle=3
link(onEvent,3391511:doWork3,[])
}
Add(HubEx,14267945,161,56)
{
Angle=3
link(onEvent,5240325:doWork3,[])
}
Add(HubEx,5658367,161,63)
{
Angle=3
link(onEvent,14267945:doWork3,[])
}
Add(HubEx,15561842,161,70)
{
Angle=3
link(onEvent,5658367:doWork3,[])
}
Add(HubEx,5240325,161,28)
{
link(onEvent,3390836:onEvent2,[])
}
Add(HubEx,15365511,161,77)
{
Angle=3
link(onEvent,15561842:doWork3,[])
}
END_SDK
Add(Scintilla,367825,924,231)
{
Left=843
Top=28
Width=330
Height=501
Align=3
Font=[Calibri,2,0,0,1]
KeyPreview=1
Ctl3D=1
WinStyle=1
Layout=""
WidthScale=80
HeightScale=100
Strings=#26:Брюс Стерлинг. Схизматрица|
FileName="Livadnyiy_Temnaya_storona_Zemli.33391.txt"
Codepage=16
CaretLineBack=8421504
VLines=0
ColorOfFlags=39680
Numbering=0
NumSizeCorrect=-3
MarginNumFore=8421504
MarginNumBack=16777215
Markers=1
MarkMarginWidth=5
MarkerForm=9
WrapMode=0
WrapVisualFlags=0
ScrollBars=2
Point(WidthControls)
Point(PosSearchStart)
Point(onMouseDown)
Point(LinePosition)
Point(SelText)
Point(StrPosition)
Point(Position)
Point(doSetSelStart)
Point(doEnsureVisible)
Point(onMouseUp)
link(Str,13351448:Text,[(930,205)(734,205)(734,568)(440,568)])
link(onMouseUp,15504690:doData,[(988,251)(988,303)(891,303)(891,356)])
}
Add(DoData,901142,476,581)
{
link(onEventData,13549289:doEvent1,[(678,587)(678,279)])
link(Data,13351448:Position,[])
}
Add(HubEx,12597011,794,238)
{
Angle=3
link(onEvent,14770033:doEvent1,[(798,237)])
}
Add(Hub,2347603,392,539)
{
link(onEvent1,13351448:doSetSelStart,[])
link(onEvent2,13351448:doEnsureVisible,[])
}
Add(Hub,13549289,882,273)
{
link(onEvent1,367825:doSetSelStart,[])
link(onEvent2,367825:doEnsureVisible,[])
}
Add(Hub,14770033,889,231)
{
link(onEvent1,367825:doClear,[(913,237)(913,244)])
link(onEvent2,367825:doAdd,[(913,244)(913,237)])
}

Редактировалось 3 раз(а), последний 2018-01-29 19:40:20
карма: 3

0
Ответов: 1416
Рейтинг: 97
#115: 2018-04-20 22:14:12 ЛС | профиль | цитата
Нужен был редактор для лингвистических программ. Не хватало опций...
По этому допилил и перезалил. http://forum.hiasm.com/getfile/38692

1. Добавлено "разделение" поля нумерации и поля маркеров.
Это позволяет задавать им цвета раздельно. Зта опция работает при Fold=False.
2. Добавлено несколько видов маркеров, в том числе, как в Notepad++ и AkelPad.
3. Добавлена навигация по маркерам строк.
4. Добавлена индикация. Индикация, - это отметка участков текста различного рода подчёркиванием, или рамками различных цветов для каждой отметки. (Для пометок выделенного текста, или поиска по всему тексту с пометками.)
5. Добавлена аннотация. Аннотация, - это текст вставляемый между строк для пояснений. Допустим перевод, или результаты трассировки скрипта построчно.
Аннотация может быть многострочной и имеет 4 стиля и отдельно задаваемый цвет фона и шрифта.

Пример в архиве, в папке Example2.
Для наглядности пунктов 3 и 4, нужно сделать поиск слова "что" по всему тексту -до упора. Потом жать на кнопки в правой части.

Редактировалось 5 раз(а), последний 2019-07-02 03:50:26
карма: 3

0
Ответов: 88
Рейтинг: 0
#116: 2019-07-02 02:23:00 ЛС | профиль | цитата
flint2 писал(а):
Нужен был редактор для лингвистических программ. Не хватало опций...
По этому допилил и перезалил. https://yadi.sk/d/kfMvnXj83UcdY9

1. Добавлено "разделение" поля нумерации и поля маркеров.
Это позволяет задавать им цвета раздельно. Зта опция работает при Fold=False.
2. Добавлено несколько видов маркеров, в том числе, как в Notepad++ и AkelPad.
3. Добавлена навигация по маркерам строк.
4. Добавлена индикация. Индикация, - это отметка участков текста различного рода подчёркиванием, или рамками различных цветов для каждой отметки. (Для пометок выделенного текста, или поиска по всему тексту с пометками.)
5. Добавлена аннотация. Аннотация, - это текст вставляемый между строк для пояснений. Допустим перевод, или результаты трассировки скрипта построчно.
Аннотация может быть многострочной и имеет 4 стиля и отдельно задаваемый цвет фона и шрифта.

Пример в архиве, в папке Example2.
Для наглядности пунктов 3 и 4, нужно сделать поиск слова "что" по всему тексту -до упора. Потом жать на кнопки в правой части.

Редактировалось 4 раз(а), последний 2018-04-21 11:04:57


[i][b]Ничего не найдено
Владелец удалил файлы либо закрыл к ним доступ или в ссылке опечатка.[/b][/i]

Перезалей если не сложно
карма: 0

0
Ответов: 1416
Рейтинг: 97
#117: 2019-07-02 03:52:24 ЛС | профиль | цитата
theSever, перезалил.
http://forum.hiasm.com/getfile/38692
карма: 3

0
Ответов: 88
Рейтинг: 0
#118: 2019-07-02 03:54:52 ЛС | профиль | цитата
flint2 писал(а):
theSever, перезалил.
http://forum.hiasm.com/getfile/38692

Благодарочка

--- Добавлено в 2019-07-02 04:02:47

А возможно сделать в Scintilla ссылки активными?

Редактировалось 1 раз(а), последний 2019-07-02 04:02:47
карма: 0

0
Ответов: 1416
Рейтинг: 97
#119: 2019-07-02 11:25:22 ЛС | профиль | цитата
theSever, во всех текстовых редакторах сделанных на Scintilla - notepad++, AkelPad... есть такой функционал. Но это сделано разработчиками различных notepad-дов.
Но в самой Scintilla этого нет. Делаю умозрительное заключение, потому что у меня нет описания API. Однако, во всех средах разработки такого функционала нет.
Думаю, что это легко делается даже на кубиках, а не то что в IC.

Любой функционал не выведенный, как точка, но присутствующий в Scintilla можно задействовать подачей сообщения.
В примере отмечено сноской

Add(MainForm,2953706,70,63)
{
Width=899
Height=515
Position=1
Point(onClose)
Point(Close)
link(onCreate,5598446:doEvent1,[])
link(onClose,3627914:doEvent1,[(115,90)(115,139)])
link(Close,4118197:GetData,[])
}
Add(FormatStr,13175459,434,378)
{
DataCount=4
Mask="Ln - %1 Col - %2 Length - %3 Pos - %4"
link(onFString,3267962:doText,[])
link(Str1,13351448:LinePosition,[])
link(Str2,13351448:StrPosition,[])
link(Str3,13351448:TextLength,[])
link(Str4,13351448:Position,[])
}
Add(StatusBar,3267962,483,378)
{
Panels=#5: =250|5: =250|
}
Add(Message,8784789,763,21)
{
Message="Поиск окончен"
Caption="сообщение редактора"
}
Add(If_else,1233557,714,21)
{
Op2=Integer(-1)
link(onTrue,8784789:doMessage,[])
}
Add(ChildPanel,14191355,427,56)
{
@Hint=#7:Toolbar|
@Color=16755285
link(onEvent1,7832789:In,[])
link(onEvent2,7292818:In,[])
link(onEvent3,14640944:In,[])
link(onEvent4,16501083:In,[])
link(onEvent5,8840974:In,[])
link(onEvent6,12159197:In,[])
link(onEvent7,13351448:doSearch,[(471,104)(471,172)(401,172)(401,251)])
link(onEvent8,13351448:doSetZoom,[(471,111)(471,172)(401,172)(401,265)])
link(onEvent9,13351448:doFoldAll,[(471,118)(471,172)(401,172)(401,307)])
link(onEvent10,188693:In,[])
link(onEvent11,16359938:In,[(471,132)(471,139)])
link(Data1,9888579:Var2,[])
AddHint(62,-23,51,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,329849,21,21)
{
EventCount=11
WorkCount=2
DataCount=1
VarCount=1
Width=531
Height=459
link(doWork1,11849105:doData,[(45,27)(45,139)])
link(doWork2,3856502:doWork2,[(45,34)(45,153)])
link(Var1,14538192:Var,[])
}
Add(Panel,14536046,70,35)
{
Width=891
Height=28
Align=2
WinStyle=1
Layout="parent.main"
WidthScale=100
HeightScale=11
BevelInner=0
}
Add(BitBtn,13653897,70,189)
{
Left=105
Top=2
Width=24
Height=24
Frame=1
Caption=""
Data=Integer(0)
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C17F2AC3B5960C0C4B9D18187A3451CD068961134786C7A218E0EA90D582D8307341342E334072C87C983A5CE2D8F423CB61D30F72232EFD20396477C2F4C1D884DC8F1E0673BC24187A92BDE07A09851F3AEC29CE6670727262480E7222391E417AE7B454C3312966C0F46E5D3A07CC07D1C49A81AE1706893103975E62CDC0A717DD0C5C72C4840FB1EAE801019558BFBA]
Point(doBitmap)
link(onClick,9708500:doWork2,[])
}
Add(BitBtn,12748017,126,196)
{
Left=129
Top=2
Width=24
Height=24
Frame=1
Caption=""
Data=Integer(1)
Bitmap=[ZIP3604000078DA95922D1283301046B7333D408F50D9137080FA5E005B89ACC42273845A2412898D8C44C6464646A69B84A10B49F8C9CE1324FBD87C03CF577105BF0AE481DC262E700F07D3395D36513D63C0CA72179B29E75BA3C0689946895DDFF74981F0051AF71C47E6DBB14DB2F6D77983AFA3D9460EFEEECEFF56EF6CDED957F1FD8D1A27BFCAE6F5BE35F9FBE33BDAFA93CD3BFBD8E7301E119EB14F4B99F0FF79836F09C6E3BC917318BA0EFA26E12BB1E9BB7DCAC22779633FE0F6755F016775FCBD49DEF51CCAD034E9FFE544DEA37E2EEFBEBF9D37E59FC94BEB078E103C36]
Point(doBitmap)
link(onClick,9708500:doWork3,[(172,202)])
}
Add(BitBtn,5150928,182,196)
{
Left=153
Top=2
Width=24
Height=24
Frame=1
Caption=""
Data=Integer(2)
Bitmap=[ZIP3604000078DA8D932172C4300C45D5991EA047286C2FB00728EF6916960606069A1A06069A1A061A8A0A1A1AAAB2E5EC7A1CA7D364DE2413E77D59BBCAD7F7ED15CA71133E84B7CA0BBCEB425D6F0F6ECE4F8305FB73FF17BD3B87085348B07B071C1152240187B47EA9490C4B649813173F5150D03738BDCAF32B7F8A878FC0B457A765ECAFE2D9A819EA5357FF6F7F13EFC8287EED3DEFE1E070239DFB77E239E97DADFD738AEA357B67DC3443B27BDFE7BA4933D44F2543F7D1FE0F34ACBF8B8F49331E3EB322F749C85E701BF8D50E7DE29AD1FB15DC3DD07A177F3ECD4E102FB166E8FC90FE0699A85792E7D9CDEFF77EAE9B6BA4EA5F3179BCF4738FABDFC10ED8420094EC3CDF577EEECF5933FC569C5980A4A705CFFE638682AC1B0384E139FF42D9B7B130EF3474FBEFD72CF38963AD777E0159FA4934]
Point(doBitmap)
link(onClick,10101044:doWork3,[(228,202)])
}
Add(ChildPanel,11486214,294,35)
{
}
BEGIN_SDK
Add(EditMulti,4152236,21,21)
{
}
Add(Panel,5211733,35,105)
{
Left=557
Top=2
Width=4
Height=24
BevelInner=1
}
END_SDK
Add(BitBtn,9727035,238,196)
{
Left=177
Top=2
Width=24
Height=24
Frame=1
Caption=""
Data=Integer(3)
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C17F2AC1BCBC3C3026476F65FC2B064D86FB0CF61ACB18525353F1AA4D0AD8C4A0C77E03AB7E03AEDB0CC17E5938CD70D33C0C5617E5B60DA71B6C652E31C4C7C763C85B499C05DB8B4D2F0C5625BC069B116471982125258524BDE866049A1F66080E886330163ACEA0C3769D28BDE87E01E9D366BDC69095D443729CE873DC049BE1AE7D8464FDC8FE35E37FC010694BBC1B407AD1E3C859FE118397C65D8266588A9FC119BFF10ECF194CF9EEE334039F5E6433406AD0C51D651F80C541E98B9CF46F26F090C157E721D5F222291000B3EDC6C9]
Point(doBitmap)
link(onClick,15082712:doWork3,[(284,202)])
}
Add(BitBtn,14734867,294,196)
{
Left=201
Top=2
Width=24
Height=24
Hint="Выделить всё"
Frame=1
Caption=""
Data=Integer(4)
Bitmap=[ZIP3603000078DA73F235636600033320D600620128666490804840E591C17F86FFA4A2331EF670448C2C56655835223318F0024CF5C49B0F4104CDA7108D1CF3075BFC92943E01EFD07536]
Point(doBitmap)
link(onClick,4533302:doWork3,[(340,202)])
}
Add(BitBtn,5137664,70,245)
{
Left=229
Top=2
Width=24
Height=24
Frame=1
Caption=""
Data=Integer(0)
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF5148326CC1116E2071744C897E52DD40AC5E42FAF1B991907E5CE611E37F7C7691E2B751483C0400A89AD624]
Point(doBitmap)
link(onClick,891618:doWork2,[])
}
Add(BitBtn,5394845,126,252)
{
Left=254
Top=2
Width=24
Height=24
Frame=1
Caption=""
Data=Integer(1)
Bitmap=[ZIP3603000078DA73F235636600033320D600620128666490804840E591C17F86FFC300B590E8114CF5401164448CE1A4AA47D642A4F9702DF8DD8FA606AB81B85C3BC21100C6F2D61A]
Point(doBitmap)
link(onClick,891618:doWork3,[(172,258)])
}
Add(ChildPanel,9006535,182,35)
{
}
BEGIN_SDK
Add(EditMulti,3004735,21,21)
{
}
Add(Panel,13404147,35,105)
{
Left=225
Top=2
Width=4
Height=24
BevelInner=1
}
END_SDK
Add(BitBtn,3932359,70,301)
{
Left=281
Top=2
Width=24
Height=24
Hint="Начать поиск / искать далее"
Frame=1
Caption=""
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF4100B10152D481E9FFC4E9C7A68E1AFA710152E4FFE351FAFFFF7F92F523EBA1A57E427EC4E7776AC70FB1E14F4C5A24461C9F1F8811A7B6FDA4420052950D6F]
Point(doBitmap)
link(onClick,4607391:doEvent2,[])
}
Add(Edit,10418575,301,266)
{
Left=307
Top=3
Width=200
Height=22
Color=13356221
Font=[MS Sans Serif,8,0,0,204]
Text="Строка поиска"
Point(onSetFocus)
link(onEnter,4607391:doEvent1,[(345,279)(345,300)])
link(onSetFocus,7478759:doOn,[])
}
Add(BitBtn,13559680,126,308)
{
Left=509
Top=2
Width=24
Height=24
Frame=1
Caption=""
Bitmap=[ZIP3603000078DAC592216FC5201080BBEC0F4C3E3BB7CA9A97D4563699416291C84A2C1289C42291482C1279125B5959D977F475CD1B4BB6892523774D9BFBBEE3021DDEAFCFCDBEAE986F982F473E35977BE1A83FAEADD9FE3D8874AFCC30ED7F0353E5890ACAE70BD53FC25C07A6A3893333B1E5B6AA4270E014580956242BADD1934D2E2DF8EC85ABE01CEC92DC9AD33A43891C7330BDE8DBA96B795FC3C92FC96F4B466C85B0822F2F33F472206E42A5E24BE7D233156C579863A321C432E6C5A04927BA470BF9A3F94750C7443453D03C28E625F5029593C701763E9D3C0F9CFAD21C2D6AF9A0468C9A3F463AAD848A4C76B4A49A7F8652FDA4CC809F3C4CA8E06C5FAF66C98772066E9AA3FBE636CB2EF7C384FD78FFE2DFBB01C8260AE7]
Point(doBitmap)
link(onClick,4739320:doNext,[])
}
Add(BitBtn,8619600,182,315)
{
Left=533
Top=2
Width=24
Height=24
Frame=1
Caption=""
Bitmap=[ZIP3603000078DAC552A16EC33010CDB41F180C0D5BE148A5D2C24A2381A5868181A1868686A6868686A68186078F1A1A1ABAE7D48BDA28DA0626CD7A17C5BAF7EE9ECF3E7F1E5F9B651D29DE29DE6ABC34ED3D51F38F2B37F9DFD173D331C5A4FD0DF92A6C2F9CB0D85EE58FE4413A26673507A6E6C3A0375970068C00CD414F5E73ADE4A8BDF191BEA7C96CC8E874F426A14F010A7046A748C50D5CF8D6397A1BBDCD118996C025B0E527004994DCB15D2A979ABED016C938A6BE4F97733A7DC44317BBB6E0915F8B7F6118B2D4892054E43272F1C427030BDFAFFC8967923096D72E842DBF5A5A55E5EC6877FC0728D9274900DAD21068C8BB5713B14A5650539CCD37B759BADC8709CB78FFE2EDDD00DCA51A88]
Point(doBitmap)
link(onClick,4739320:doPrev,[])
}
Add(Hub,4607391,357,294)
{
InCount=2
OutCount=1
link(onEvent1,329849:onEvent7,[(461,300)(461,69)])
}
Add(Switch,7478759,385,266)
{
Point(doOn)
link(onSwitch,10418575:doText,[(429,272)(429,260)(289,260)(289,272)])
}
Add(Button,12364101,462,427)
{
Left=685
Top=2
Width=130
Height=24
Caption="уст. цвет. схему(тест)"
Data=Integer(0)
link(onClick,329849:onEvent11,[(527,433)(527,97)])
}
Add(HubEx,9708500,168,189)
{
link(onEvent,10101044:doWork2,[])
}
Add(HubEx,10101044,224,189)
{
link(onEvent,15082712:doWork2,[])
}
Add(HubEx,15082712,280,189)
{
link(onEvent,4533302:doWork2,[])
}
Add(HubEx,891618,168,245)
{
link(onEvent,329849:onEvent6,[(461,251)(461,62)])
}
Add(HubEx,4533302,336,189)
{
link(onEvent,329849:onEvent5,[(461,195)(461,55)])
}
Add(CounterEx,4739320,238,308)
{
Min=-10
Max=20
Point(doPrev)
link(onNext,329849:onEvent8,[(461,314)(461,76)])
}
Add(Switch,6449983,126,364)
{
DataOn=Integer(0)
DataOff=Integer(1)
Point(onOn)
Point(onOff)
link(onOn,1934654:doWork2,[])
link(onOff,1934654:doWork3,[(172,384)])
}
Add(HubEx,1934654,168,371)
{
link(onEvent,329849:onEvent9,[(461,377)(461,83)])
}
Add(BitBtn,4757780,70,364)
{
Left=561
Top=2
Width=24
Height=24
Hint="Свернуть / развернуть всё"
Frame=1
Caption=""
Data=Integer(4)
Bitmap=[ZIP3603000078DA73F235636600033320D600620128666490804840E591C17F86FFE4A1331EF610046433E00068EA49351FCE1E359F12F3E131058F2F82266F78F21E8288515F5F5FAF5EFF1F82806CAA9B4FAAFB4942009B21A020]
Point(doBitmap)
link(onClick,6449983:doSwitch,[])
}
Add(ChildPanel,9853742,238,35)
{
}
BEGIN_SDK
Add(EditMulti,14527347,21,21)
{
}
Add(Panel,724573,35,105)
{
Left=277
Top=2
Width=4
Height=24
BevelInner=1
}
END_SDK
Add(ChildPanel,2316769,126,35)
{
}
BEGIN_SDK
Add(EditMulti,11539631,21,21)
{
}
Add(Panel,1167596,35,105)
{
Left=100
Top=2
Width=4
Height=24
BevelInner=1
}
END_SDK
Add(BitBtn,16661668,70,84)
{
Top=2
Width=24
Height=24
Frame=1
Caption=""
Data=Integer(0)
Bitmap=[ZIP3604000078DA95912D6EC430104667A51EA04758D813EC010A2BF5240B03971A0606861A061A9A1A0E340C35749941813B4E1CCB7F59751D3D2972F4BE7C1E7F7EDFDE605B37E283788F5CE0BA7F88DFF3E5E323187B199F3D8ACFE0AD066714B85512029C5E080E1667624A383D3FF191DC98A145E6E7191D7FE1E41BF27B194B9571E2BBCCDFCEA1E239DA8CDA47B180F72EEBF0BC47ED6BF27F7EE9CDD9F21CA9874CF30C34BE14D17731633DC9D87B9CF96546679E611E44EDAF999F32C82F7AACB187EEF8AAF4EB8C1D0D867C25DBFEA6E3A77912A183E2746FD3086264FFF6B70CBA578308721CC00A827F8162F7C2B7284FFD80D1086A7A805703E03414EEF1FF34F70EE1FFC1C79935EEE15B2C097BC77EB85FC91E8DF707104D60E5]
Point(doBitmap)
link(onClick,13538912:doEvent1,[(117,90)(117,83)])
}
Add(BitBtn,729037,126,91)
{
Left=25
Top=2
Width=24
Height=24
Frame=1
Caption=""
Data=Integer(0)
Bitmap=[ZIP3604000078DA8D922D0F833010866FC9C4E4247273DB1F2099452E9999C44E2227B14824B2969F80AC452227B195C8CAEE5A4AD3D0E3A3CD93CB71F7BEE59A26AFF80866C5C80D395B0E70190BB6EE2F657794B35D28624755BB9F9947C45A03530AB2DF3677C6E1F4AD037D2EA4F1C8C50ABD82A4E903FDB5EEE0C17F465F0C2BA047C287409F34C278D4A8AFE43A6F2E20E59DF3D07A3D978EA51C6758236DD107A3AF2FAC3EE33D28AC69A48D73F40C6AAEC7D99EAD7077B9075FCF70AE92803ADFE8BD37A07345CCE97A91A53579E8BBA7CEF1DF1900330AC367CCFDBAF6F0A1DEB9F320F4611F23BEDBDA86DEEFA5F225FFA5FFA0FAA7FC0FB613DD28]
Point(doBitmap)
link(onClick,329849:onEvent2,[(461,97)(461,34)])
}
Add(BitBtn,8505985,182,98)
{
Left=50
Top=2
Width=24
Height=24
Frame=1
Caption=""
Data=Integer(0)
Bitmap=[ZIP3604000078DACD902F0E833014877F4B76801D61721643824592CC70058E809C9D44227B854A646D65E5646D8F8064EF154A10D0342159D6E613F4BDEFFDA17CE657F893130FE2B670C17D0E2CF1ED99FEE4BE8A02A2AA20CA12C330EC22B26C86F388E0AA770BD3341E7E974240B72D2C39D334611C4738E7563FE41DF986FBD53554D7C15ABBD648F59DD690B487A41978EE5023D5B7C6C0F4BD9F434AE96B7CE82DC54FE5C8E79D63C47C8EF39E31428D98AFE9FFED91EA9FEDAF94FA797FFEE6D8D1EE01CED9BA67EF1750C8F6DB]
Point(doBitmap)
Point(doEnabled)
link(onClick,329849:onEvent3,[(461,104)(461,41)])
}
Add(BitBtn,6280825,238,105)
{
Left=75
Top=2
Width=24
Height=24
Frame=1
Caption=""
Data=Integer(0)
Bitmap=[ZIP3604000078DACD93AD0E833010C76FC91E608F30398B21C122496678051E01393B8944F6152A91B5959593B57D0464775738D225D07499D935FFA4EDDDEF3E08ADEFE5198295A81BEAB2EA04D7C5B1FA63F37FB21E5505A26940D4354CD3B42B51148B280EC5AC7AF660BA2E88EEA510A0FB1E2C32DE7B98E7199C731BCF7147BCA17A6D0B6A18C05ABBE5C8E59DD620710E893D50DF9C2397B7C68019C7D0879432E478E15D0E9FAB239E664E29C5939FE68C15FEB1E8CC3952BCC6EFC722E37D2E9FEA2187574A7DD4E5FDB7F5B73796313F9DC917CFBE278A89D95FD71B250DE3F1]
Point(doBitmap)
link(onClick,329849:onEvent4,[(461,111)(461,48)])
}
Add(DoData,11849105,70,133)
{
Data=Integer(0)
link(onEventData,5368355:doWork2,[])
}
Add(DoData,13314609,126,147)
{
link(onEventData,5368355:doWork3,[(165,153)])
link(Data,329849:Data1,[(132,129)(27,129)])
}
Add(HubEx,5368355,161,133)
{
link(onEvent,8505985:doEnabled,[(171,139)(171,118)])
}
Add(LineBreak,7529413,301,315)
{
Caption="search"
Type=1
link(Data,10418575:Text,[])
Primary=[14538192,-280,63]
}
Add(Hub,13538912,287,77)
{
link(onEvent1,329849:onEvent1,[(461,83)(461,27)])
link(onEvent2,3856502:doWork3,[(315,90)(315,165)(116,165)])
}
Add(HubEx,3856502,112,147)
{
link(onEvent,13314609:doData,[])
}
Add(ComboBox,15246612,70,413)
{
Left=590
Top=3
Width=90
Height=21
Strings=#7:Default|4:Utf8|4:Ansi|6:Arabic|6:Baltic|11:ChineseBig5|9:ChineseGb|8:Cyrillic|10:Easteurope|5:Greek|6:Hangul|6:Hebrew|8:Japanese|6:Korean|3:Mac|3:Oem|7:Russian|6:Symbol|4:Thai|7:Turkish|10:Vietnamese|10:Westeurope|
Text="Кодировка"
link(onClick,329849:onEvent10,[(461,426)(461,90)])
}
END_SDK
Add(Menu,13374062,21,63)
{
Menu=#4:Файл|1:(|5:Новый|7:Открыть|9:Сохранить|16:Сохранить как...|1:-|6:Печать|1:-|5:Выход|1:)|6:Правка|1:(|8:Отмена |6:Повтор|1:-|8:Вырезать|10:Копировать|8:Вставить|7:Удалить|12:Выделить всё|1:)|5:Поиск|1:(|8:Наити...|12:Искать далее|1:)|3:Вид|1:(|7:Масштаб|1:(|7:Крупнее|6:Мельче|1:)|1:)|9:Кодировки|1:(|1:)|10:Синтаксисы|1:(|1:)|6:Помощь|1:(|1:)|
}
Add(PopupMenuEx,5811479,770,126)
{
Menu=#8:Отменить|9:Повторить|1:-|8:Вырезать|10:Копировать|8:Вставить|7:Удалить|1:-|12:Выделить всё|
GutterLineOn=1
LongSeparator=0
Frame=1
Font=[MS Sans Serif,8,1,0,1]
SelColorLight=0
SelColorDark=0
LineColorLight=0
LineColorDark=0
CheckColor=0
SelCheckColor=0
SelColorText=16777215
Bitmaps=[]
Point(doIdxEnabled)
link(MenuItemIdx,7633943:doWork3,[(814,132)(814,118)])
}
Add(If_else,5440264,721,126)
{
Op2=Integer(1)
link(onTrue,5811479:doPopupHere,[])
}
Add(LineBreak,16314155,322,252)
{
Caption="UndoRedo"
link(Out,13351448:doUndoRedo,[])
Primary=[1070780,560,-168]
}
Add(LineBreak,3305967,322,266)
{
Caption="EditingSel "
link(Out,13351448:doEditingSelected,[])
Primary=[11234149,560,-161]
}
Add(DoData,15527572,210,322)
{
Data=Integer(1)
link(onEventData,9302542:doWork2,[])
link(Data,4438762:Text,[])
}
Add(Hub,3627914,126,133)
{
link(onEvent1,11430100:In,[])
link(onEvent2,6535050:In,[])
}
Add(StrList,3708775,840,203)
{
FileName="fold.txt"
Point(doLoad)
Point(doSave)
}
Add(Hub,5598446,126,77)
{
OutCount=4
link(onEvent1,4480683:In,[])
link(onEvent2,15731596:In,[])
link(onEvent3,6907959:In,[])
}
Add(LineBreak,8618133,378,378)
{
Caption="infSet"
link(Out,13175459:doString,[])
Primary=[2553646,203,-168]
}
Add(InfoTip,4327450,672,63)
{
Info=#12:UserPoupMenu|
Font=[MS Sans Serif,8,1,0,1]
Width=288
Height=102
}
Add(InfoTip,12687411,672,182)
{
Info=#38:Сворачивание кода при старте (фолдинг)|
Font=[MS Sans Serif,8,1,0,1]
Width=288
Height=144
}
Add(LineBreak,1940982,735,84)
{
Caption="UndoRedo"
link(Out,7633943:doWork1,[(813,90)(813,104)])
Primary=[12159197,-182,7]
}
Add(LineBreak,12248466,735,105)
{
Caption="EditingSel "
link(Out,7633943:doWork2,[])
Primary=[8840974,-252,-21]
}
Add(LineBreak,10461985,266,273)
{
Caption="setFold"
link(Out,13351448:doSetLineFold,[])
Primary=[388704,588,7]
}
Add(Timer,8910277,686,231)
{
@Hint=#66:Пару квантов на раздумья, иначе фолдинг отображается не правильно.|
Interval=20
Enable=1
AutoStop=1
link(onTimer,14720760:doEvent1,[])
AddHint(-179,57,193,26,@Hint)
}
Add(LineBreak,7543935,854,259)
{
Caption="arrF"
Type=1
link(Data,3708775:Array,[])
Primary=[9897633,-420,-84]
}
Add(Hub,7138445,784,231)
{
link(onEvent1,3708775:doLoad,[])
link(onEvent2,388704:In,[(819,244)(819,286)])
}
Add(LineBreak,14657336,721,294)
{
Caption="close"
link(Out,233943:doEvent1,[])
Primary=[11430100,-567,-161]
}
Add(Hub,233943,784,294)
{
OutCount=3
link(onEvent1,3708775:doClear,[(811,300)(811,216)])
link(onEvent2,12861454:In,[])
link(onEvent3,3708775:doSave,[(829,314)(829,244)])
}
Add(LineBreak,3655754,336,280)
{
Caption="getFold"
link(Out,13351448:doGetLineFold,[])
Primary=[12861454,518,21]
}
Add(LineBreak,1529577,742,203)
{
Caption="saveFold"
link(Out,3708775:doAdd,[])
Primary=[6692073,-245,14]
}
Add(StrList,4842023,840,357)
{
FileName="mark.txt"
Point(doLoad)
Point(doSave)
}
Add(InfoTip,14927316,672,336)
{
Info=#29:Установка маркеров при старте|
Font=[MS Sans Serif,8,1,0,1]
Width=288
Height=151
}
Add(LineBreak,10403416,252,287)
{
Caption="setMarker"
link(Out,13351448:doMarkerAdd,[])
Primary=[4016027,651,126]
}
Add(Hub,1008111,784,385)
{
link(onEvent1,4842023:doLoad,[])
link(onEvent2,8385687:doEnum,[(821,398)(821,419)])
}
Add(LineBreak,5712678,728,448)
{
Caption="close"
link(Out,2154642:doEvent1,[])
Primary=[6535050,-574,-308]
}
Add(Hub,2154642,784,448)
{
OutCount=3
link(onEvent1,4842023:doClear,[(811,454)(811,370)])
link(onEvent2,10365951:In,[])
link(onEvent3,4842023:doSave,[(829,468)(829,398)])
}
Add(LineBreak,14868832,322,294)
{
Caption="getMarker"
link(Out,13351448:doGetLineMarker,[])
Primary=[10365951,532,161]
}
Add(LineBreak,6827908,728,357)
{
Caption="saveMarker"
link(Out,4842023:doAdd,[])
Primary=[4875123,-147,-133]
}
Add(ArrayEnum,8385687,854,413)
{
link(onItem,4016027:In,[])
link(Array,4842023:Array,[])
}
Add(LineBreak,9863500,301,133)
{
Caption="new"
link(Out,5612599:doNew,[])
Primary=[7832789,182,-77]
}
Add(LineBreak,12018076,294,147)
{
Caption="save"
link(Out,5612599:doSave,[])
Primary=[14640944,189,-77]
}
Add(LineBreak,6928414,252,140)
{
Caption="open"
link(Out,5612599:doOpen,[])
Primary=[7292818,301,-77]
}
Add(LineBreak,1638764,238,154)
{
Caption="save as"
link(Out,5612599:doSaveAs,[])
Primary=[16501083,315,-77]
}
Add(LineBreak,7109576,350,56)
{
Caption="start"
link(Out,12699922:doWork2,[])
Primary=[4480683,-196,21]
}
Add(LineBreak,4876982,287,63)
{
Caption="Change"
link(Out,14191355:doWork2,[])
Primary=[10535650,210,140]
}
Add(LineBreak,11361554,462,350)
{
Caption="Modify"
Type=1
link(Data,13351448:GetModify,[])
Primary=[7246014,-35,-336]
}
Add(GetDataEx,9888579,427,35)
{
link(Data,7246014:Var,[])
}
Add(Hub,12109920,553,252)
{
link(onEvent1,15480123:In,[])
link(onEvent2,8910277:doTimer,[(665,265)(665,237)])
}
Add(HubEx,12699922,399,56)
{
link(onEvent,14191355:doWork1,[])
}
Add(LineBreak,7819103,336,42)
{
Caption="onLoad"
link(Out,15123034:doWork2,[])
Primary=[15480123,245,210]
}
Add(LineBreak,15543159,336,28)
{
Caption="onSave"
link(Out,15123034:doWork1,[(403,34)])
Primary=[16374525,161,217]
}
Add(HubEx,15123034,399,42)
{
Angle=1
link(onEvent,12699922:doWork1,[])
}
Add(Hub,14720760,728,231)
{
link(onEvent1,7138445:doEvent1,[])
link(onEvent2,1008111:doEvent1,[(767,244)(767,391)])
}
Add(LineBreak,3893969,294,161)
{
Caption="close"
link(Out,5612599:doClose,[])
Primary=[8077328,-182,-140]
}
Add(EventFromData,4118197,70,21)
{
link(onEvent,8077328:In,[])
}
Add(LineBreak,2422279,413,350)
{
Caption="text"
Type=1
link(Data,13351448:Text,[])
Primary=[6965750,-49,-273]
}
Add(MultiElement,7633943,826,98)
{
link(onEvent1,1070780:In,[(874,104)(874,90)])
link(onEvent2,11234149:In,[])
}
BEGIN_SDK
Add(EditMulti,3390836,21,21)
{
EventCount=2
WorkCount=3
link(doWork1,3391511:doWork2,[])
link(doWork2,5240325:doWork2,[])
link(doWork3,6580204:doEvent,[])
}
Add(IndexToChanel,6580204,42,35)
{
Count=9
link(onEvent1,7322656:doData,[])
link(onEvent2,14375864:doData,[])
link(onEvent4,13151892:doData,[])
link(onEvent5,15787351:doData,[])
link(onEvent6,9552231:doData,[])
link(onEvent7,5771532:doData,[])
link(onEvent9,5332694:doData,[])
}
Add(DoData,7322656,98,35)
{
Data=Integer(0)
link(onEventData,13663162:doWork2,[])
}
Add(DoData,14375864,98,42)
{
Data=Integer(1)
link(onEventData,13663162:doWork3,[(151,48)])
}
Add(DoData,13151892,98,56)
{
Data=Integer(0)
link(onEventData,14267945:doWork2,[])
}
Add(DoData,15787351,98,63)
{
Data=Integer(1)
link(onEventData,5658367:doWork2,[])
}
Add(DoData,9552231,98,70)
{
Data=Integer(2)
link(onEventData,15561842:doWork2,[])
}
Add(DoData,5771532,98,77)
{
Data=Integer(3)
link(onEventData,15365511:doWork2,[])
}
Add(DoData,5332694,98,91)
{
Data=Integer(4)
link(onEventData,15365511:doWork3,[(165,97)])
}
Add(HubEx,3391511,147,21)
{
link(onEvent,3390836:onEvent1,[])
}
Add(HubEx,13663162,147,35)
{
Angle=3
link(onEvent,3391511:doWork3,[])
}
Add(HubEx,14267945,161,56)
{
Angle=3
link(onEvent,5240325:doWork3,[])
}
Add(HubEx,5658367,161,63)
{
Angle=3
link(onEvent,14267945:doWork3,[])
}
Add(HubEx,15561842,161,70)
{
Angle=3
link(onEvent,5658367:doWork3,[])
}
Add(HubEx,5240325,161,28)
{
link(onEvent,3390836:onEvent2,[])
}
Add(HubEx,15365511,161,77)
{
Angle=3
link(onEvent,15561842:doWork3,[])
}
END_SDK
Add(LineBreak,2040133,21,21)
{
Caption="close"
link(Out,4118197:doData,[])
Primary=[8543666,392,133]
}
Add(MultiElementEx,5612599,357,126)
{
@Hint=#11:Открытие и |16:сохранение файла|
@Color=13421772
link(clear,13351448:doClear,[(401,132)(401,216)])
link(emptyUndoBuffer,13351448:doSetEmptyUndoBuffer,[(401,139)(401,314)])
link(onOpen,13351448:doLoad,[(401,146)(401,237)])
link(onSave,13351448:doSave,[(401,153)(401,244)])
link(onClose,8543666:In,[])
link(modify,9888579:Var1,[(363,40)])
link(text,6965750:Var,[])
link(filePath,9550184:Var,[])
}
BEGIN_SDK
Add(EditMultiEx,3769649,21,21)
{
WorkCount=#5:start|5:doNew|6:doOpen|6:doSave|8:doSaveAs|7:doClose|
EventCount=#5:clear|15:emptyUndoBuffer|6:onOpen|6:onSave|7:onClose|0:|
DataCount=#6:modify|4:text|8:filePath|
Width=650
Height=781
VOffset=63
HOffset=56
link(start,11315350:doData,[])
link(doNew,1802459:doCompare,[(45,97)(45,202)])
link(doOpen,4767403:doCompare,[(45,104)(45,363)])
link(doSave,5224650:doCompare,[(45,111)(45,517)])
link(doSaveAs,8372197:doExecute,[(45,118)(45,580)])
link(doClose,14065643:doCompare,[(45,125)(45,678)])
}
Add(If_else,1802459,70,196)
{
Op2=Integer(1)
link(onTrue,2456009:doCompare,[])
link(onFalse,7510127:doWork2,[(128,209)(128,153)])
link(Op1,15738390:getVar,[])
}
Add(SDialog,16721823,294,252)
{
link(onExecute,11805839:doEvent1,[(337,258)(337,265)])
}
Add(SDialog,5861209,126,518)
{
link(onExecute,8629858:doEvent1,[])
}
Add(ODialog,13534061,476,308)
{
Filter="pas|*.pas|dpr|*.dpr|pp|*.pp|txt|*.txt|lua|*.*lua|html|*.html|h|*.h|cxx|*.cxx|cpp|*.cpp"
link(onExecute,13200983:doEvent1,[])
}
Add(FilePartElm,10492697,399,56)
{
link(onPart,10740941:doString,[])
}
Add(Memory,15737286,350,56)
{
@Hint=#30:путь к файлу для всех операций|
Default=String()
link(onData,10492697:doPart,[])
}
Add(FormatStr,10740941,448,56)
{
Mask="Сохранить изменения в %1?"
Point(FString)
}
Add(Message,5336097,196,196)
{
Caption="Сообщение редактора"
Type=3
link(onMessage,13017961:doCase,[])
link(Message,14918083:getVar,[])
}
Add(If_else,2456009,140,196)
{
Type=5
Op2=String()
link(onTrue,5336097:doMessage,[])
link(onFalse,12704553:doMessage,[(184,209)(184,251)])
link(Op1,5098534:getVar,[])
}
Add(Message,12704553,196,245)
{
Message="Сохранить изменения?"
Caption="Сообщение редактора"
Type=3
link(onMessage,6412338:doCase,[])
}
Add(Case,13017961,245,196)
{
Value=Integer(6)
link(onNextCase,1673064:doCase,[])
link(onTrue,557981:doData,[(288,209)(288,216)])
}
Add(DoData,557981,427,210)
{
link(onEventData,3595526:doEvent1,[])
link(Data,13043431:getVar,[])
}
Add(Case,1673064,294,196)
{
Value=Integer(7)
link(onTrue,14221084:doWork2,[])
}
Add(Case,6412338,245,245)
{
Value=Integer(6)
link(onNextCase,848201:doCase,[])
link(onTrue,16721823:doExecute,[])
}
Add(Case,848201,350,245)
{
Value=Integer(7)
link(onTrue,14221084:doWork3,[(396,258)])
}
Add(HubEx,7510127,392,147)
{
link(onEvent,8102798:doEvent1,[])
}
Add(Hub,11805839,399,259)
{
link(onEvent1,6972024:doEvent1,[])
link(onEvent2,12856761:In,[])
}
Add(If_else,5224650,70,511)
{
Type=5
Op2=String()
link(onTrue,8198110:doData,[])
link(onFalse,5861209:doExecute,[])
link(Op1,7962124:getVar,[])
}
Add(Hub,8629858,175,518)
{
link(onEvent1,12813450:doEvent2,[])
link(onEvent2,11573200:In,[])
}
Add(Hub,850780,315,56)
{
InCount=6
OutCount=1
link(onEvent1,15737286:doValue,[])
}
Add(HubEx,14221084,392,203)
{
Angle=3
link(onEvent,7510127:doWork3,[])
}
Add(If_else,14065643,70,672)
{
Op2=Integer(1)
link(onTrue,6657829:doEvent1,[])
link(Op1,10213604:getVar,[])
}
Add(SDialog,13927492,385,749)
{
link(onExecute,685681:doWork3,[(560,755)])
}
Add(Message,14023364,238,672)
{
Caption="Сообщение редактора"
Type=3
link(onMessage,10182577:doCase,[])
link(Message,6978848:getVar,[])
}
Add(If_else,6203768,161,672)
{
Type=5
Op2=String()
link(onTrue,14023364:doMessage,[])
link(onFalse,6823279:doCompare,[(215,685)(215,748)])
link(Op1,999716:getVar,[])
}
Add(Message,12827134,287,742)
{
Message="Сохранить изменения?"
Caption="Сообщение редактора"
Type=3
link(onMessage,10455955:doCase,[])
}
Add(Case,10182577,287,672)
{
Value=Integer(6)
link(onTrue,4826095:doData,[])
}
Add(Case,10455955,336,742)
{
Value=Integer(6)
link(onTrue,13927492:doExecute,[])
}
Add(DoData,4826095,336,679)
{
link(onEventData,685681:doWork2,[])
link(Data,5361693:getVar,[])
}
Add(Hub,6657829,119,672)
{
link(onEvent1,6203768:doCompare,[])
link(onEvent2,12243338:In,[(147,685)(147,720)])
}
Add(LineBreak,3508745,616,112)
{
Caption="close"
link(Out,3769649:onClose,[])
Primary=[12243338,-455,602]
}
Add(If_else,6823279,238,742)
{
Type=5
Op2=String()
link(onTrue,12827134:doMessage,[])
link(Op1,12442901:Var,[])
}
Add(LineBreak,13269396,84,49)
{
Caption="text"
Type=1
link(Data,3769649:text,[])
Primary=[12442901,154,665]
}
Add(LineBreak,11922783,252,56)
{
Caption="reset"
link(Out,850780:doEvent1,[])
Primary=[12397481,203,105]
}
Add(Hub,8102798,427,147)
{
InCount=3
OutCount=3
link(onEvent1,3769649:clear,[(546,153)(546,90)])
link(onEvent2,6048168:doWork2,[(553,160)(553,97)])
link(onEvent3,12397481:In,[])
}
Add(LineBreakEx,14918083,196,168)
{
Caption="name"
Type=2
}
Add(LineBreakEx,14903817,448,105)
{
Caption="name"
Type=3
link(_Data,10740941:FString,[])
}
Add(LineBreakEx,5133712,350,105)
{
Caption="patch"
Type=3
link(_Data,15737286:Value,[])
}
Add(LineBreakEx,5098534,140,168)
{
Caption="patch"
Type=2
}
Add(LineBreakEx,13043431,427,182)
{
Caption="patch"
Type=2
}
Add(LineBreakEx,12717521,77,70)
{
Caption="modify"
Type=3
link(_Data,3769649:modify,[])
}
Add(LineBreakEx,15738390,70,168)
{
Caption="modify"
Type=2
}
Add(InfoTip,9059315,133,35)
{
Info=#42:Путь к файлу и имя файла для всех операций|
Font=[MS Sans Serif,8,1,0,1]
Width=365
Height=95
}
Add(DoData,11315350,140,84)
{
link(onEventData,9833213:doEvent1,[])
link(Data,3769649:filePath,[(146,44)(97,44)])
}
Add(Hub,9833213,189,84)
{
link(onEvent1,850780:doEvent2,[(210,90)(210,69)])
link(onEvent2,2520929:In,[(210,97)(210,118)])
}
Add(LineBreak,2055863,504,98)
{
Caption="load"
link(Out,192382:doWork2,[])
Primary=[2520929,-266,14]
}
Add(LineBreak,4918629,238,70)
{
Caption="patch.fn"
link(Out,850780:doEvent3,[])
Primary=[12856761,196,196]
}
Add(HubEx,10977037,556,210)
{
Angle=3
link(onEvent,3769649:onSave,[(560,111)])
}
Add(Hub,3595526,518,210)
{
link(onEvent1,10977037:doWork2,[])
link(onEvent2,8102798:doEvent3,[(541,223)(541,204)(416,204)(416,167)])
}
Add(Hub,6972024,518,259)
{
link(onEvent1,3674064:doWork2,[])
link(onEvent2,8102798:doEvent2,[(541,272)(541,247)(406,247)(406,160)])
}
Add(InfoTip,9812888,56,140)
{
Info=#3:New|
Font=[MS Sans Serif,8,1,8388608,1]
Width=526
Height=151
}
Add(If_else,4767403,70,357)
{
Op2=Integer(1)
link(onTrue,861140:doCompare,[])
link(onFalse,3636740:doWork2,[(128,370)(128,314)])
link(Op1,9953864:getVar,[])
}
Add(SDialog,8059212,294,413)
{
link(onExecute,6085763:doEvent1,[(337,419)(337,426)])
}
Add(Message,6620872,196,357)
{
Caption="Сообщение редактора"
Type=3
link(onMessage,3886469:doCase,[])
link(Message,14800372:getVar,[])
}
Add(If_else,861140,140,357)
{
Type=5
Op2=String()
link(onTrue,6620872:doMe

[color=gray][size=9]Редактировалось 3 раз(а), последний 2019-07-02 11:29:55[/size][/color]
карма: 3

0
Ответов: 88
Рейтинг: 0
#120: 2019-07-04 14:45:15 ЛС | профиль | цитата
Сделал вариант кликабельной ссылки. Не идеально, но пашет. Единственное не хватает изменения курсора при наводе и изменение цвета.


Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
}
Add(ArrayRW,10489651,602,378)
{
link(onRead,13851651:doExec,[(646,384)(646,377)])
link(Array,15180640:Array,[(608,313)(531,313)])
}
Add(Math,9186495,546,378)
{
OpType=1
Op2=1
link(onResult,10489651:doRead,[])
}
Add(RE_Search,13851651,658,371)
{
Expression="(ftp:\/\/|www\.|https?:\/\/){1}[a-zA-Z0-9u00a1-\uffff0-]{2,}\.[a-zA-Z0-9u00a1-\uffff0-]{2,}(\S*)"
link(onMatch,14442986:doShellExec,[(702,377)(702,384)])
link(SourceStr,10489651:Item,[(664,359)(636,359)(636,422)(608,422)])
}
Add(WinExec,14442986,714,371)
{
link(FileName,13851651:Match,[(720,359)(692,359)(692,415)(664,415)])
}
Add(DoData,1265488,492,381)
{
link(onEventData,9186495:doOperation,[(535,387)(535,384)])
link(Data,15180640:LinePosition,[(498,315)(545,315)])
}
Add(Scintilla,15180640,511,175)
{
Top=28
Width=831
Height=460
Align=5
Font=[Calibri,11,0,0,204]
Ctl3D=1
WinStyle=1
Layout=""
Strings=#81:http://qaru.site/questions/138832/regular-expression-to-find-urls-within-a-string|0:|11:Рас два три|0:|2:01|0:|
Codepage=1
Styles=#17:// Язык подсветки|14:@1 Language=18|0:|12:// Цвет фона|21:@2 BackColor=16777215|0:|32:// Цвет подсветки текущей строки|25:@3 CaretLineBack=15527148|0:|39:// Цвет шрифта и фон выделенного текста|42:@4 SelBack=14461039, SelFontColor=16777215|0:|64:// Цвет и стиль шрифта для парных и непарных операторских скобок|76:@5 (парн.)Bold=True, (парн.)Color=255, (непарн.)Bold=False, (непарн.)Color=0|0:|32:// Цвет визуальной линии отступа|16:@6 Color=4227327|0:|41:// Цвет линии ограничителя длинной строки|17:@7 Color=15780518|0:|73:// Настройка стиля синтаксиса подсветки в соответствии с выбранным языком|98:// 1-синтаксическая инструкция, стили шрифта 2-полужирный, 3-курсив, 4-подчёркнутый, 5-цвет шрифта|84:# DEFAULT=0, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|84:# IDENTIFIER=1, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|88:# COMMENT=2, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENT2=3, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENTLINE=4, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# PREPROCESSOR=5, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|88:# PREPROCESSOR2=6,FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|86:# NUMBER=7, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|86:# HEXNUMBER=8, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|84:# WORD=9, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|91:# STRING=10, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=11633048|84:# STRINGEOL=11, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|90:# CHARACTER=12, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=8421504|91:# OPERATOR=13, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=11534336|84:# ASM=14, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|
CaretLineBack=15131875
BraceHighlight=0
BraceBadFore=65535
IndentationGuides=0
VLines=0
ColorOfFlags=15780518
NumSizeCorrect=-1
MarginNumFore=8421504
MarginNumBack=16777215
MarkMarginWidth=14
FoldMarginWidth=14
FoldMarginColor1=14012872
FoldIcon=1
FoldIconFore=65535
FoldIconBack=16711680
MinWordLen=2
IgnoreCase=0
WrapVisualFlags=0
ScrollBars=2
Point(GetModify)
Point(doUndoRedo)
Point(onMouseDown)
Point(doSetEmptyUndoBuffer)
Point(TextTarget)
Point(doSearch)
Point(onSetFocus)
Point(onKillFocus)
Point(doEditingSelected)
Point(onDblClick)
Point(LinePosition)
link(onDblClick,1265488:doData,[(555,209)(555,298)(480,298)(480,387)])
}

карма: 0

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