1sci.dll - внешняя компонента для 1С:Предприятие

ВК реализует элемент управления Scintilla.
Не требует регистрации в реестре.
Реализует интерфейс v7Control, следовательно создается на форме и через FormEx, и через класс Форма в 1с++ версий 2.5 и старше

Методы аналогичны методам "родного" ЭУ Scintilla и описаны в документации (http://scintilla.sourceforge.net/ScintillaDoc.html)

Дополнительные методы:
SendSciMessage(message, wParam, lPAram)
SaveToFile(ИмяФайла)
LoadFromFile(ИмяФайла)
LineLen(НомерСтроки)
SetRange(line1, col1, line2, col2, Text)
MoveCaret(line1, col1, line2, col2)
Range(line1, col1, line2, col2, Text)

Свойства:
Text
SelStartLine
SelStartCol
SelEndLine
SelEndCol

События:
OnStyleNeeded(position)
OnCharAdded(ch)
OnSavePointReached()
OnSavePointLeft()
OnModifyAttemptRO()
OnDoubleClick(position, line, ctrl, shift, alt)
OnUpdateUI()
OnModified(modType, position, length, linesAdded, line)
OnMarginClick(margin, position, ctrl, shift, alt)
OnNeedShown(position, length)
OnUserListSelection(wParam, text)
OnDwellStart(position, x, y)
OnDwellEnd(position, x, y)
OnZoom()
OnHotSpotClick(position, ctrl, shift, alt)
OnHotSpotDoubleClick(position, ctrl, shift, alt)
OnCallTipClick(position)
OnAutoCSelection(wParam, text)
OnSetFocus()
OnKillFocus()
OnDestroy()
OnKeyDown(keyCode, alt, shift, ctrl, char, flag)

Для работы требуется SciLexer.dll от metaeditor или любой другой сборки версии не ниже 1.74.
Последовательность поиска SciLexer.dll: каталог самой ВК, подкаталог config каталога программы, стандартная последовательность (каталог исполняемого файла, текущий каталог, PATH)

Написано в соавторстве с metaeditor.

Скачать компоненту и пример использования можно тут: http://code.google.com/p/sci1c/

Замечен один небольшой прикол:
клавиатурные шорткаты для работы с буфером обмена и кнопки панели инструментов для работы с буфером работают только если фокус контрол получил по Tab'у, и не работают если фокус получен при клике мышкой.
Буду очень благодарен, если знатоки MFC и внутренностей 1с мне подскажут в чем может быть причина такого поведения.

На этом контроле всплывает старая проблема: "таб" съедается эсиной и не отдаёт его в текстовый редактор 

Я вот что-то применение данной ВК не найду. Если только редактировать модули налету прямо в режиме предприятия с последующей выгрузкой для ТурбоМД. А вы как используете её?

steban писал(а) 30. Июля 2008 :: 09:43:

попробуй вызвать CGetDoc7 CGetDoc::SetActiveCtl при OnMouseActivate твоего контрола

trad писал(а) 30. Июля 2008 :: 10:21:

Получилось  
Great thanks.

ВК с исправлением брать тут: http://code.google.com/p/sci1c/downloads/list

steban писал(а) 30. Июля 2008 :: 10:49:

Да. И с последней, только что выложенной. По "табу" вообще ничео не происходит, если фокус у этого контрола.

JohnyDeath писал(а) 30. Июля 2008 :: 10:14:

а вот так:

В приложенном архиве ConvertScintillaiface.js, при помощи которого был сгенерен wrapper.inl.
Положить в scintilla/include и запустить.

Залил в репозитарий ConvertScintillaiface.js, Scintilla.iface, wrapper.h, wrapper.inl

JohnyDeath писал(а) 30. Июля 2008 :: 10:14:

Конечно, а обработки править напрямую gcomp-ом или через compound.dll.
Получится прямо как в сапе, при наличии соответствующих прав - можно править код.

Так сложилось что для 1С программаст - бог, и в любой конторе не то что править будут пытаться, а в голову никому не придет такое. А для САПа это нормальное явление, когда полномочный сотрудник поправил функцию, не имея при этом доступа к метаданным.
Можно конечно спорить о целесообразности такого, но такое имеет место быть.

Кроме того можно применить в том же QA, если не нравится консоль запросов от Ивана.

В общем браво! Большой сенкс за ВК!

steban писал(а) 30. Июля 2008 :: 11:03:

Степ, а чтобы лексику под SQL ты вручную набирал в ert, или где-то мона взять? 

Arta писал(а) 03. Августа 2008 :: 01:24:

Fixed

kms писал(а) 03. Августа 2008 :: 10:36:

Ну Иван же консоль ваяет.

Но мне попроще надо, вот QA и домучиваю.

Вот его и мучаю. Осталось домучать сцинтиллу


Степ, теперь вылет в космос на СоздатьЭлементУправленияНаФорме("ScintillaControl", "ТекстЗапроса") 

steban

А событие при перемещении курсора по строкам и колонкам можешь сделать?
Или, может быть, уже есть?

Arta писал(а) 03. Августа 2008 :: 11:32:

Редакторские колонки, какие ишо.
На, сам переводи "col" с английского на нецензурный

Arta писал(а) 03. Августа 2008 :: 11:15:

Fixed

Все гуд.

Arta писал(а) 03. Августа 2008 :: 00:48:

http://screencaphosting.com/c/73386_5b4762b0995c6627579b2e1208b3e0272500decb
Посмотри во вложении.

Arta писал(а) 03. Августа 2008 :: 15:26:

Есть OnModified и OnCharAdded
Цитата:

Хочется поиметь поддержку Форма::ПолучитьЭлементУправления

Arta писал(а) 03. Августа 2008 :: 12:49:

Ну, наверное, подойдет что-то типа ТП::ПриУничтожении...

Цитата:

Все ништяк. Я иногда ворчу, но это так, больше для вида. Ну ты же знаешь.

kms писал(а) 03. Августа 2008 :: 19:37:

Икс его знает.
Судя по документации, должен учитывать.

steban писал(а) 03. Августа 2008 :: 22:31:

C простой заменой SciLexer.dll от SciTE ширина таба начинает учитываться норм.
Но, конечно, хотелось бы достичь взаимопонимания с лексером от колорера.

Arta писал(а) 04. Августа 2008 :: 17:38:

Угу. Оттуда - с ней же табы работают.
Но вот GetColumn их ширину считает за 1.

kms писал(а) 04. Августа 2008 :: 17:25:


это я убирал табы чтоб в конфигураторе работало... там таб считается за один символ...  сегодня взаимапонимание будет достигнуто 

Поправлена scilexer.dll.  В конфигураторе считает таб за один символ, не в конфигураторе - за указанную ширину таба. Также поправлен сам колорер, всё лежит тут
http://www.1cpp.ru/forum/YaBB.pl?num=1197864156

как то все очень сложно..
не то что ниасилю, но всеравно сложно....

да не напрягайся, мне всеравно скоро со сцынтилой прийдется разговаривать очень конкретно.

Вставил в демо пример в процедуру:
"ПриОткрытии()"

ЗагрузитьВнешнююКомпоненту("1sci.dll"); 

вроде заработало.

Подскажите пожалуйста кто знает...
после того как я вызову метод svcsvc - FilterValue фокус с контрола теряется. Как обратно вернуть фокус??? 

JohnyDeath писал(а) 27. Ноября 2008 :: 08:55:



Неееее... погоди так дело не пойдет. Во-первых я используюю dll и создаю через метод объекта Форма - СоздатьЭлементУправления. Во вторых у меня класс является наследником от объекта Scintilla и соответственно его инициализация выглядит так

ОбъектScintilla = ОбъектФорма.СоздатьЭлементУправления(я(),ИдентификаторКонтейнера); 

А вот теперь пожалуйста скажи у кого из представленных здесь объектов есть метод УстановитьФокус. У ОбъектScintilla - точно нет. У объекта "Форма" я тоже не знаю. Ну и я() тоже не знает что это такое.

И кстати если уж возвращать фокус то в какую позицию? Хотя ее в принципе можно рассчитать... о...мысль... пошел проверять. 

vandalsvq писал(а) 27. Ноября 2008 :: 12:14:

1. ИМХо не я(), а вирт() надежнее.
И вирт() должен знать об "УстановитьФокус".
2. "у меня класс является наследником от объекта Scintilla"
Это как?
Напиши полную строку определения класса - точнее, дай его ВСЕ базовые классы. Наверняка ведь там есть АктивИкс

Однако проблема не решена. Стоит только активизировать другой контрол (например на форме есть еще АктивИкс - дерево) и после выбора в Scintill-е фокусироваться будет уже на дереве...
в общем помогите плиз... как-то парит постоянно мышкой после подсказки тыкать.  

В общем прошу всех меня извинить за тутошние посты. Я немного затупил. Дело в том что активизация ТП - Активизировать(Идентификатор) - это мне давно известно... но чтобы активизировать объект Scintilla надо ставить флаг редактирования = 1. Т.е. активизировать(ИДКонтрола,1).... вот так вот...
Простите меня 

А Телепат к контролу никак не подключается?

Для подсветки выделенного текста сделал процедуру:

Процедура ВыделитьПоТексту()
	Перем ТекстВыделения,ТекПозиция,НачПоз,Рез,ДлТекстаВыделения,ДлВсегоТекста;
	ТекстВыделения=sci.GetSelText();
	Если ПустаяСтрока(ТекстВыделения)=1 Тогда Возврат; КонецЕсли;
	ДлВсегоТекста=СтрДлина(sci.Text);
	ДлТекстаВыделения=СтрДлина(ТекстВыделения);
	SCI.INDICSETSTYLE(0,7);
	SCI.INDICSETFORE(0, RGB(155,155,255));
	SCI.INDICSETUNDER(0,1);
	SCI.SETINDICATORCURRENT(0);

	ТекПозиция=SCI.GETCURRENTPOS();
	Рез=0;НачПоз=0;
	Пока Рез<>-1 Цикл
		SCI.SETTARGETSTART(НачПоз);
		SCI.SETTARGETEND(ДлВсегоТекста);
		Рез=sci.SEARCHINTARGET(ДлТекстаВыделения,ТекстВыделения);
 		Если Рез=-1 Тогда Возврат;КонецЕсли;
		НачПоз=Рез+ДлТекстаВыделения;
		Если ТекПозиция=НачПоз Тогда Продолжить;КонецЕсли;
		SCI.INDICATORFILLRANGE(Рез,ДлТекстаВыделения);
	КонецЦикла;
КонецПроцедуры
 

Эту процедуру я вызываю в событии OnUpdateUI контрола ScintillaControl:

Процедура ScintillaControlOnUpdateUI(control)
.....
	SCI.INDICATORCLEARRANGE(0,СтрДлина(sci.Text)); //Убираем подсветку всех выделений
	ВыделитьПоТексту();
......
 

Цвет выделения устанавливается в настройках SCI:

	SCI.SETSELBACK(1,0);
	SCI.SETSELFORE(1,65535); 

скрин