Add(ChildFormEx,4051391,490,280)
{
}
BEGIN_SDK
  Add(EditMultiEx,12567649,245,119)
  {
   WorkCount=#9:doCaption|
   DataCount=#14:FullPathToFile|21:DataCaption=Имя файла|
   Width=270
   Height=249
   VOffset=63
   HOffset=161
   link(doCaption,15861361:doEvent1,[])
  }
  Add(MainForm,948009,469,140)
  {
   Left=35
   Top=105
   Width=770
   Height=557
   Visible=1
   Position=1
   Point(doVisible)
  }
  Add(DoData,3515049,413,140)
  {
   link(onEventData,948009:doCaption,[])
   link(Data,12567649:DataCaption,[])
  }
  Add(ChanelToIndex,3026957,413,175)
  {
   link(onIndex,948009:doVisible,[(452,181)(452,174)])
  }
  Add(Hub,15861361,266,182)
  {
   OutCount=4
   link(onEvent1,3515049:doData,[(317,188)(317,146)])
   link(onEvent2,3951637:doLoad,[(298,195)(298,258)])
   link(onEvent3,3026957:doWork2,[(333,202)(333,188)])
   link(onEvent4,16569057:doSendMessage,[(291,209)(291,314)])
  }
  Add(Hub,16529159,315,266)
  {
   link(onEvent1,3951637:doSetSelStart,[])
   link(onEvent2,3951637:doEnsureVisible,[])
  }
  Add(SendMessage,16569057,364,308)
  {
   Point(Message)
   link(onSend,12305030:doEvent1,[])
   link(Handle,3951637:Handle,[])
   link(Message,10110237:Value,[])
  }
  Add(Memory,10110237,385,252)
  {
   @Hint=#12:em_LineIndex|79: Возвpащает индекс символа в начале стpоки в оpгане упpавления pедактиpованием.|
   Default=Integer(187)
   AddHint(81,-13,199,52,@Hint)
  }
  Add(Length,8440348,434,308)
  {
   link(onLength,14306445:doWork1,[(480,314)])
   link(Str,3951637:Text,[(440,295)(349,295)])
  }
  Add(HubEx,14306445,476,315)
  {
   Angle=1
   link(onEvent,16529159:doEvent1,[(480,349)(305,349)(305,272)])
  }
  Add(Hub,12305030,406,308)
  {
   link(onEvent1,8440348:doLength,[])
   link(onEvent2,14306445:doWork2,[])
  }
  Add(Memo,3951637,343,224)
  {
   Width=762
   Height=524
   Align=5
   Font=[MS Sans Serif,10,1,0,1]
   ScrollBars=3
   Point(doSetSelStart)
   Point(doEnsureVisible)
   Point(Handle)
   link(FileName,12567649:FullPathToFile,[(356,134)(412,134)])
  }
END_SDK

Add(MainForm,2953706,-7,105)
{
 Width=440
 Height=555
 link(onCreate,2958345:doEnum,[(219,125)(219,671)])
}
Add(RichEdit,2397271,1288,343)
{
 Left=5
 Top=30
 Width=270
 Height=450
 ScrollBars=2
 ReadOnly=0
 CanDragOle=1
 ParseLinks=0
 Point(doSetSelStart)
 Point(doSetSelLength)
 Point(doFormatSel)
 Point(Position)
 Point(onWordClick)
 Point(MouseX)
 Point(MouseY)
 Point(onURLClick)
 link(onWordClick,13481483:doData,[(1345,356)(1345,524)(1290,524)(1290,692)])
}
Add(Edit,13078193,854,175)
{
 Left=105
 Top=5
 Width=25
 Text="1"
}
Add(Edit,8583328,840,217)
{
 Left=5
 Top=5
 Width=90
 Text="255"
}
Add(MTStrTbl,626248,728,336)
{
 Left=1000
 Top=50
 Width=695
 Height=655
 Name="postav"
 Columns=#20:Наименование=555=0=0|14:Телефон=180==0|11:Сайт=140==0|8:код=0==0|12:Прайс=50=0=2|
}
Add(Button,15966033,56,385)
{
 Left=215
 Top=5
 Caption="Найти"
 Data=String(Найти)
 link(onClick,1574345:doData,[])
}
Add(MST_FindText,6094720,448,525)
{
 SelectFind=1
 MSTControl="postav"
 link(onFindText,12971865:doEvent1,[(513,531)(513,510)])
 link(FindText,12344777:Var3,[(454,495)])
 link(StartRow,4544029:Value,[(461,513)(622,513)])
 link(StartCol,15823478:Value,[])
}
Add(Memory,4544029,616,469)
{
 Default=Integer(0)
}
Add(If_else,8545538,665,511)
{
 Op2=Integer(-1)
 link(onTrue,4544029:doClear,[(709,517)(709,499)(604,499)(604,482)])
 link(onFalse,8631605:doEvent1,[(705,524)(705,601)])
}
Add(Hub,8631605,728,595)
{
 link(onEvent1,6780315:doSeparateMT,[(826,601)(826,440)])
 link(onEvent2,6094720:doFindNext,[(754,608)(754,573)(436,573)(436,538)])
}
Add(Hub,12971865,532,504)
{
 link(onEvent1,202311:doCalc,[(553,510)(553,475)])
 link(onEvent2,8545538:doCompare,[])
}
Add(FastMathParse,202311,560,469)
{
 MathStr="%1 + 1"
 link(onResult,4544029:doValue,[])
}
Add(Memory,15823478,462,434)
{
 Default=Integer(0)
}
Add(Position,1827655,861,553)
{
 ZeroPos=0
 Point(doReset)
 link(onSearch,7615415:doCase,[])
 link(Str,5529649:Value,[(867,541)(839,541)(839,604)(811,604)])
 link(Target,7905138:Value,[(874,513)(335,513)])
}
Add(Length,12935360,231,441)
{
 link(onLength,7213109:doModify,[])
}
Add(DoData,3018938,1190,602)
{
 link(onEventData,2397271:doSetSelLength,[(1255,608)(1255,391)])
 link(Data,12935360:Result,[(1196,538)(237,538)])
}
Add(MT_AddData,1681489,840,259)
{
 Count=3
 Data=Integer(1)
 link(onAdd,2397271:doFormatSel,[(1087,265)(1087,398)])
 link(Data1,8583328:Text,[])
 link(Data3,13078193:Text,[])
}
Add(MT_String,14512019,833,427)
{
}
Add(MT_MultiData,6780315,910,434)
{
 Count=3
 link(onData3,2397271:doAdd,[(1115,454)(1115,307)(1260,307)(1260,349)])
}
Add(Hub,3729523,378,441)
{
 OutCount=4
 link(onEvent1,2397271:doClear,[(840,447)(840,356)])
 link(onEvent2,6094720:doFindText,[(420,454)(420,531)])
 link(onEvent3,16776822:doModify,[(592,461)(592,566)])
 link(onEvent4,1267658:doReset,[(735,468)(735,552)])
}
Add(Hub,16071179,1008,553)
{
 OutCount=5
 link(onEvent1,1267658:doNext,[(1050,559)(1050,545)])
 link(onEvent2,3018938:doData,[(1106,566)(1106,608)])
 link(onEvent3,1681489:doAdd,[(1034,573)(1034,419)(828,419)(828,265)])
 link(onEvent4,305184:doWork1,[(1034,580)(1034,566)])
}
Add(FastMathParse,13899483,1162,553)
{
 MathStr="%1 - %2"
 ResultType=0
 link(onResult,15091700:doWork2,[])
 link(X1,1827655:Position,[(1168,541)(1018,541)(1018,597)(867,597)])
 link(X2,1267658:Count,[(1175,541)(1140,541)(1140,597)(1084,597)])
}
Add(CounterEx,1267658,1078,539)
{
 Max=10000000
 Point(doReset)
 link(onNext,13899483:doCalc,[(1136,545)(1136,559)])
}
Add(Case,7615415,924,553)
{
 Value=Integer(0)
 DataOnTrue=Integer(1)
 link(onNextCase,16071179:doEvent1,[])
 link(onTrue,15091700:doWork1,[(1215,566)])
}
Add(HubEx,15091700,1211,553)
{
 link(onEvent,2397271:doSetSelStart,[(1253,559)(1253,384)])
}
Add(StrCase,16776822,763,560)
{
 link(onModify,5529649:doValue,[])
 link(Str,2397271:Text,[(769,484)(1294,484)])
}
Add(HubEx,305184,838,560)
{
 Angle=3
 link(onEvent,1827655:doSearch,[(842,559)])
}
Add(StrCase,7213109,273,441)
{
 link(onModify,7905138:doValue,[])
 link(Str,12344777:Var1,[(279,429)(216,429)])
}
Add(Memory,7905138,329,441)
{
 link(onData,3729523:doEvent1,[])
}
Add(GetDataEx,12344777,210,490)
{
 Angle=3
 link(Data,14531008:Var3,[])
}
Add(Memory,5529649,805,560)
{
 link(onData,305184:doWork2,[])
}
Add(Edit,8730007,91,434)
{
 Left=5
 Top=5
 Width=200
 Text="Красн"
 ClearAfterEnter=1
 link(onEnter,9195222:doWork2,[])
}
Add(Edit,5298288,1436,623)
{
 Left=280
 Top=115
 Width=140
 Text="??????????????"
 ClearAfterEnter=1
}
Add(StrList,6124969,399,595)
{
 Strings=#24:групп компаний RDS GROUP|19:Яр Краска, ООО, ТПК|25:Яндекс.Маркет. Красноярск|19:Юнитест-Сибирь, ООО|12:Юнирбау, ЗАО|9:ЮУТК, ООО|17:ЮМАКОМ, Компания |12:Эпсилон, ООО|22:Энергометкомплект, ООО|25:Энергомаш ОАО  -  г.Тверь|27:Энергогарант ООО - г. Томск|10:Эмаль, ООО|12:Элсервис ООО|13:Электрум, ЗАО|27:Электрофорфор - МО г.Реутов|15:Электроснаб ООО|20:Электропоставка, ООО|11:Электронебо|16:Электромотор НПО|19:Электрокаталог, ООО|18:Электроизделия, ТД|31:Электродстройкомплект, ООО, ЭСК|18:Электро-Мастер ООО|21:Экспресс-мастер-2, ТД|19:Эксперт-Сибирь, ООО|21:Эксперт-Ойл, компания|35:Экострой Град ООО (Пеностекло, ООО0|11:Эконом, ООО|14:Экоградгаз ООО|16:ЭкоПром-Сиб, ООО|16:Экип-Металл, ООО|8:Эгопласт|10:Эврика ООО|18:Эверест-Строй, ООО|7:ЭТМ ООО|10:ЭСТИМ, ТПК|10:ЭРТАГ, ООО|27:ЭПК Энергопромкомплекс, ООО|16:ЭНПЦ ЭПИТАЛ, ЗАО|26:ЭНЕРГОПРОМ МЕНЕДЖМЕНТ, ЗАО|15:ЭЛРОСА Компания|29:ЭЛКЗ ТД Электрокабельный з-д |22:ЭЛЕКТРОМОНТАЖ МПО, ЗАО|23:ЭЛДЭНСТРОЙСНАБ, ООО, ТК|6:ЭЛДИАМ|15:ЭКОДОРСНАБ, ООО|25:Шиноремонтный завод, ООО |30:Чугунолитейный завод БКМЗ, ОАО|15:ЧипДип магазин |22:Четыре сезона, ООО, ТК|16:Чемпион, ООО, ТФ|27:Циклон Завод ЗАО - г.Москва|17:ЦентроКамень, ООО|18:ЦентрЦемРесурс ООО|30:Центр дорожных технологий, ООО|14:Центр РТИ, ООО|18:Цена по Челябинску|25:Цена по ССЦ 81-77-2010-12|21:Цементресурс, ООО, ТД|27:Хозуниверсал, склад-магазин|29:Хозоптторг, ИП Слепченко В.В.|10:Химпэк, ГК|19:Химпромтара ТД, ООО|20:Химпром Компания ООО|17:Химпродукция, ОАО|20:Химические товары ГК|25:Химиком, оптовая компания|34:Химико-металлургический завод, ОАО|29:ХимСтройРесурс, ООО (г. Тула)|32:Фотоаптека, ООО интернет магазин|11:Форум, ООО |14:Формос ТК, ООО|15:Формопласт, ООО|25:Форвард, магазин (филиал)|16:Флора Сибири ООО|12:Флигель, ООО|30:Флагман, строительная компания|14:Фирма Янус ООО|54:Фирма Энергозащита, ОАО, филиал Назаровский завод ТИиК|30:Фин-Трейд, ООО, г. Новосибирск|11:Феррум, ООО|14:Факел, ООО, ТД|16:ФОЛЬГОПЛАСТ, ООО|19:Уяржелезобетон, ОАО|25:УралэнергоПромпроект, ЗАО|41:Уральский завод рельсовых скреплений, ЗАО|36:Уральские трубопроводные системы ООО|33:Уральские буровые технологии, ООО|48:Уральская промышленно-строительная компания, ООО|39:Уральская металло-трубная компания, ООО|17:Уралтрубпром, ОАО|24:Уралтрубосталь, ЗАО, ТД |30:Уралсибсервис, ООО (г. Тюмень)|20:Уралрегионхимреактив|18:Уралплит, компания|20:УралТрубСнаб ТД, ЗАО|32:УралСибТрейд-Красноярск, ООО, ТК|17:УралИнтерьер, ООО|28:УралАктив ООО г.Екатеринбург|15:Урал-Трейд, ООО|64:Управление зеленого строительства. МП (Совхоз Октябрьский, МУП) |37:Управление зеленого строительства, МП|25:Универсал-Красноярск, ООО|15:УдмуртСнаб, ООО|9:УЭМК, ООО|16:Тёплый край, ООО|20:Тяжпромкомплект. ООО|18:ТэоХим-Сибирь, ООО|15:Трубный мир ООО|45:Третье Красноярское монтажное управление, ООО|15:Третий Рим, ООО|25:Трасмаш ООО г.Москва, СПб|40:Трансхимэкспорт, ООО, ГК Трансхимреактив|23:Трансмаш ГК - г. Москва|13:Транском, ООО|16:Транзит Хим, ООО|25:Тракт-Красноярск, ЗАО, ТК|22:Торгснаб-Огнеупор, ООО|35:Торговый дом сантехники - Север ООО|21:Торговый дом РТИ, ООО|29:Торговый дом Балт-Трейд,  ООО|19:Торговый дизайн ООО|50:Торгово-производственное объединение техком, ООО, |12:ТоргМет, ООО|15:Топаз-Плюс, ООО|27:Тойма Казанский завод связи|18:Тинко Торговый Дом|12:Тимерлан ООО|12:Тиатера, ООО|26:Техэнерго интернет магазин|31:Техторг (Красэмаль), ООО, завод|32:Техпромимпэкс ТД ООО (г. Москва)|28:Техносервис ООО, г. Волжский|17:Технониколь, ООО |15:Технология, ООО|21:Технические газы, ООО|23:Техническая бумага, ООО|36:ТехникСан Интернет магазин г. Москва|15:Техмаркет групп|41:ТехПромСервис (Волгоградстроймонтаж), ООО|23:ТехПодъём компания, ООО|34:Тех-Хим ООО (Красхимснаб, ООО, КФ)|10:Терсь ООО |20:Терминалнефтегаз ЗАО|17:Теплотек, ООО, ТК|13:Теплоком, ООО|16:ТеплоТен магазин|19:ТеплоСфера, ООО, ТД|30:Текстиль-Дом ТК, (Аметист, ТК)|17:Текнос-Охтэк, ООО|10:Талас, ООО|32:Тайм компания г. Санкт-Петербург|17:ТТЦ ЭМИ плюс ООО |8:ТСК, ООО|8:ТПК, ООО|12:ТПК Инфрахим|13:ТОР-Импекс ГК|21:ТЛТ ООО г.С-Петербург|11:ТЗЭТ ТД ООО|25:ТД ЦветКомплексМеталл ООО|12:ТД Технотекс|25:ТД Сибирская усадьба, ООО|27:ТД Инвайер интернет магазин|24:ТД Дорогобужкотломаш ООО|51:Сывеловские краски-завод лакокрасочных изделий, ООО|24:Сфера, ООО (м-н Электро)|14:Стронекс , ООО|13:Стромэкс, ООО|17:Стройхолдинг, ООО|21:Стройтехснаб, ООО, ПК|26:Стройтеплосервис, ООО, ТД |20:Стройстекло, ООО, ТК|21:Стройресурс - г.Пенза|31:Строймир-М, ООО (г.Красногорск)|13:Строймаш, ООО|46:Стройиндустрия, ОАО, производственная компания|15:Стройинвест ООО|30:Стройгрупп-I, ТД (Сатурн), ООО|27:Стройбытмет, ООО (Стройбыт)|14:Стройбург, ООО|14:СтройТэкс, ООО|21:СтройТехСнабжение ООО|26:СтройПерспектива, ООО, ТК |16:СтройМастер, ООО|20:СтройИнжиниринг, ООО|16:СтройИмпэкс ООО |18:Строй-Транс Н, ООО|25:Строительный крепеж, ООО |30:Строительные системы БАСФ, ООО|33:Строительные материалы, ООО, ПКФ |34:Строительные материалы ИП Мезенцев|40:Строительные Материалы и Технологии, ООО|37:Строительная керамика, торговая фирма|29:Стратегия и паритет Компания |33:Страна тепла интернет магазин СПб|16:Страйк Сити, ООО|27:Стоун, ООО, кирпичный завод|18:Стиропласт, завод |14:СтинКабель ООО|12:Стимэкс, ООО|16:Стержень СП ЗАО |22:Стекломастер плюс, ООО|15:Старт г. Москва|13:Стан-Мет, ООО|20:Стальмонтаж, ЗАО, СК|16:Стальмаш ГП, ООО|11:Стальком ПФ|14:СтальТранс ООО|47:СтальПрокат (Трубная компания)  Красноярск, ООО|56:Сталепромышленная компания, ЗАО, филиал в г. Красноярске|22:Средние рыночные цены |18:Спецэмаль НПФ, ООО|28:Спецэлектродсервис, ООО, ПКП|15:Спецтехснаб ООО|30:Спецстройсервис-2009, ООО, ТПК|15:Спецкраски, ООО|21:СпецКомплект, ООО, ТК|21:СпецКомплекс, ООО, ТК|18:Спец-Торг, ООО, ТК|10:Сорбис ООО|7:Сом, ТД|34:Содружество, ООО (кирпичный завод)|48:Советское, ОАО, ремонтно-техническое предприятие|38:Снабкомплект г. Москва , г.С-Петербург|42:Снабженец, магазин строительных материалов|40:Служба пути Красноярской железной дороги|14:Скан, ООО, ПТК|27:Синдика-О магазин г. Москва|10:Синай, ООО|41:Сикуреза комплексные системы безопасности|26:Сибтеплоизоляция, ЗАО, КСУ|24:Сибрезинотехника НПП ООО|22:Сибпромсырье, ООО, ТК |15:Сибпроммаш, ООО|13:Сибмонтаж, ПК|13:Сиблитмаш ОАО|32:Сибкраска , лакокрасочный завод |42:Сибиряк, управляющая строительная компания|33:Сибирское буровое снабжение, ООО |22:Сибирский элемент, ООО|31:Сибирский центр флористики, ООО|20:Сибирский стиль, ООО|38:Сибирский производственный альянс, ООО|38:Сибирский партер ООО (Строй-линия) ООО|22:Сибирский ориентир, ГК|32:Сибирский оазис частный питомник|25:Сибирский металл, ООО, ТК|26:Сибирский гранитный карьер|42:Сибирский бизнес, ООО, Красноярский филиал|25:Сибирский бетон, ООО, ТПК|24:Сибирский Центр РТИ, ООО|40:Сибирские трубопроводные системы ТД, ООО|28:Сибирская упаковка, ООО, ТПК|30:Сибирская торговая группа, ООО|34:Сибирская стекольная компания, ЗАО|23:Сибирская пальмира, ТД |26:Сибирская Усадьба, ООО, СК|21:Сибагропромстрой, ЗАО|21:СибТрансАзия, ООО, ТК|26:СибТеплоКомплект, ООО, СТК|11:СибТара, ТК|20:СибСантехСервис, ООО|11:СибВек, ООО|23:Серебряный Водолей, ООО|27:Семена для Сибири, ООО, ПКФ|31:Севзапэлектромонтаж ПКЦ ООО СПб|19:Северокоопснаб, ЗАО|13:Север-Юг, ООО|30:Связьстройдеталь ЗАО -г.Москва|16:Связьдеталь ООО |18:Связь Комплект, ТД|31:Светотехника, ТК, ООО Техноград|15:Сварог ПКФ, ООО|14:Сварка КФ, ООО|20:Саратов Комплект ООО|30:Сантехсклад г. Санкт-Петербург|26:Сантехприбор ОАО, г.Казань|25:Сантехлайт г.Екатеринбург|19:Сантехкомплект, ООО|20:Сантехзавод N3, ООО |14:Сантехарматура|11:СанТехПласт|16:Сады Енисея, ООО|18:СТС-Красноярск ООО|19:СТРОЙИНДУСТРИЯ, ООО|21:СТК Аксиома  г.Москва|11:СТ-Холод ТК|14:СПЕЦСТРОЙ, ООО|9:СОЮЗ  ТК |14:СКС-ЮНИОН, ООО|16:СК-Полимеры, ООО|15:СК ХимПром, ООО|17:СИБНАФТА, ООО, ТК|45:СЗЛМК, ООО Сибирский завод металлоконструкций|11:СВ и ВС ООО|24:САТЭКС завод - г. Москва|10:САНЛИТ ООО|11:САВИТЕК ООО|14:С-Эксперт, ООО|37:Рязанский шпалопропиточный завод, ОАО|17:Русский Химик ООО|16:Рускомплект, ООО|10:Русич, ООО|17:РусДорбизнес, ООО|13:Рубин ТД, ООО|13:Рострейд, ООО|21:РостеплоИзоляция, ООО|29:Российский нефтяной союз, ООО|24:РосполимерСтрой, ГК, ООО|8:Ровен ГК|21:Рика сервис, ООО, ПКФ|27:Ремстройторг (Лакомир), ООО|17:Ремстройпуть, ЗАО|9:Ремес ООО|10:Регул, ООО|19:РегионПром, ООО, ПК|23:Регион-ХимСнаб, ООО, ТК|18:РеалСнаб, ООО, ККС|13:Реактив, ООО |6:Расчет|15:Разал, компания|21:Радуга Красок ПК, ООО|13:РадиоТехИмидж|21:РУСНасос.ру -г.Москва|14:РСБ -Акватерм |15:РС Холдинг, ООО|16:РОСТТОРГ ТД, ООО|13:РОСТ ПКФ, ООО|49:РН-Красноярскнефтепродукт (АЗС Роснефть), ООО, ТК|9:РАСКО НПФ|13:Путь-СПб, ООО|32:Пульс цен г. Пермь - Водотехника|
}
Add(MT_String,8031147,476,651)
{
 Delimeter=""
 link(onResult,1807785:doAddRow,[])
}
Add(MST_DB,1807785,588,651)
{
 MSTControl="postav"
}
Add(HubEx,9195222,147,441)
{
 link(onEvent,12935360:doLength,[])
}
Add(DoData,1574345,112,385)
{
 link(onEventData,9195222:doWork1,[(151,391)])
 link(Data,14531008:Var1,[(118,373)(88,373)(88,495)])
}
Add(GetDataEx,14531008,91,490)
{
 link(Data,8730007:Text,[])
}
Add(ArrayEnum,2958345,413,665)
{
 link(onItem,8031147:doMTString,[])
 link(Array,6124969:Array,[])
}
Add(Edit,12398566,1418,678)
{
 Left=280
 Top=175
 Width=140
 Text=""
 ClearAfterEnter=1
}
Add(Label,12943576,378,182)
{
 Left=285
 Top=90
 Width=141
 Height=17
 Caption="Индекс нажатой строки"
}
Add(Label,447352,322,182)
{
 Left=285
 Top=150
 Width=132
 Height=17
 Caption="Позиция курсора Position"
}
Add(DoData,13481483,1295,686)
{
 link(onEventData,12398566:doText2,[(1376,692)(1376,691)])
 link(Data,2397271:Position,[(1301,544)(1315,544)])
}
Add(InfoTip,135497,1235,308)
{
 Info=#32:Где взять индекс нажатой строки?|
 Font=[MS Sans Serif,8,0,8388736,1]
 Frame=3
 Width=302
 Height=459
 Margin=5
}

Pt := Point(X, Y);    iCharIndex := Perform(Messages.EM_CHARFROMPOS, 0, Integer(@Pt));
    
#pas