Chipset писал(а):
Мне нужен текст конкретной нажатой строки.Думаю можно воспользоваться компонентом HilightMemo вместо простого RichEdit.
Add(MainForm,13874595,161,112)
{
Width=385
Height=589
}
Add(Edit,8583328,287,70)
{
Left=5
Top=5
Width=90
Text="красн"
Point(doSetFocus)
}
Add(HilightMemo,81032,343,84)
{
Left=5
Top=30
Width=360
Height=450
Font=[Courier New,8,0,0,1]
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:Пульс цен г. Пермь - Водотехника|
HilightStrings=#
HilightFont=[Courier New,8,0,0,1]
ReadOnly=0
Point(doHilightStrings)
Point(onMouseUp)
Point(PositionY)
link(onMouseUp,8176411:doRead,[(394,97)(394,155)(345,155)(345,181)])
}
Add(ArrayRW,8176411,357,175)
{
link(onRead,1818948:doText,[])
link(Array,81032:Array,[])
link(Index,81032:PositionY,[])
}
Add(StrCat,2471233,287,126)
{
Str2="=red=b"
link(onStrCat,81032:doHilightStrings,[])
link(Str1,8583328:Text,[])
}
Add(Button,13359265,217,126)
{
Left=100
Top=5
link(onClick,15153279:doEvent1,[])
}
Add(Hub,15153279,259,126)
{
link(onEvent1,2471233:doStrCat,[])
link(onEvent2,8583328:doSetFocus,[(280,139)(280,90)])
}
Add(Label,1818948,406,175)
{
Left=10
Top=485
Width=354
Height=59
Caption=""
AutoSize=1
}