Chieftain писал(а) 14. Июля 2010 :: 10:45:

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

тоже верно

Код

Процедура ПриВыбореКартинки(ТекСтрока,ТекКолонка,ТекИндексКартинки,ТекТипРегиона) Экспорт
	СтарТайм			= ?(ПустоеЗначение(СтарТайм)=1,0,СтарТайм);
	ДвойнойКлик			= 0;
	Если тинки)и(ТекТипРегиона=СтарТипРегиона) Тогда
		Если (_GetPerformanceCounter()-СтарТайм)<300 Тогда
			ДвойнойКлик	= 1;
		КонецЕсли;
	КонецЕсли;

	Если ДвойнойКлик=0 Тогда
		СтарСтрока			= ТекСтрока;
		СтарКолонка			= ТекКолонка;
		СтарИндексКартинки	= ТекИндексКартинки;
		СтарТипРегиона		= ТекТипРегиона;
	Иначе
		СтарСтрока			= 0;
		СтарКолонка			= 0;
		СтарИндексКартинки	= 0;
		СтарТипРегиона		= 0;
	КонецЕсли;
	СтарТайм=_GetPerformanceCounter();

	Если ДвойнойКлик=1 Тогда
		Сообщить("Дважды кликнули на картинке: "+ТекИндексКартинки);
	КонецЕсли;
КонецПроцедуры	// ПриВыбореКартинки 

Код

РеестрWin=СоздатьОбъект("РеестрWin");
РеестрWin.ОткрытьКлюч("HKEY_CURRENT_USER","Control Panel\Mouse","KEY_READ");
РеестрWin.ЗапроситьЗначение("DoubleClickSpeed",Интервал);
Интервал=Число(Интервал);