Видимо както так:

Процедура MouseDown(Button, Shift , x , y)
	Для к = 1 По Сам().Объект.Buttons.Count Цикл
		Если (x >= Сам().Объект.Buttons.item(к).Left)  и (x <= Сам().Объект.Buttons.item(к).Left +
			  Сам().Объект.Buttons.item(к).Width) и (y >= -Сам().Объект.Buttons.item(к).Top)
			 и (y <= -Сам().Объект.Buttons.item(к).Top -  Сам().Объект.Buttons.item(к).Height)
		Тогда
			Сообщить(Сам().Объект.Buttons.item(к).Key);

		КонецЕсли;
КонецПроцедуры
 

Arta писал(а) 16. Ноября 2007 :: 11:14:


Вызываю процедуру по таймеру пока кнопка нажата

Arta писал(а) 16. Ноября 2007 :: 11:34:


Скроллинг ТП

P.S. Ну может паравильнее былоб в "1С++, TurboMD и прочие вкусности", хотя отношение он к ним имеет побочное

Arta писал(а) 16. Ноября 2007 :: 11:42:


Скролю табличное поле, причём здесь меню?

Можно ли изменить высоту тулбара и высоту кнопок MSComctlLib.ToolBar?
И еще вопрос: почему не работают свойства, н-р, Height. Если верить этому http://msdn.microsoft.com/en-us/library/aa443490(VS.60).aspx, то .Height вроде как есть, или я не там смотрю?

Перем msToolBarCtrl,ActiveX;

//======================================
Процедура ПослеОткрытия()

	ActiveX   = СоздатьОбъект("ActiveX");

	ActiveX.УстановитьАтрибут(Форма, "кнToolBar");

	msToolBarCtrl = ActiveX.СоздатьЭУ("MSComctlLib.ToolBar");


	msToolBarCtrl.Appearance    = 1;
	msToolBarCtrl.Style         = 1;
	//это все бесполезно, высота тулбара/размеры кнопок не меняются>>>
	//msToolBarCtrl.Height  = 600;//Поле агрегатного объекта не обнаружено (Height)
	//msToolBarCtrl.Container.Height = 600;//Поле агрегатного объекта не обнаружено (Container)
	//msToolBarCtrl.Parent.Height = 600;//Поле агрегатного объекта не обнаружено (Parent)
	//msToolBarCtrl.Move(0,0,1000,600);//Поле агрегатного объекта не обнаружено (Move)

	//РасширениеФормы = СоздатьОбъект("РасширениеФормы");
	//
	//кнToolBarАтр = РасширениеФормы.ПолучитьАтрибут("кнToolBar");
	//кнToolBarАтр.УстановитьКоординаты(0,0,РасширениеФормы.Ширина,600);
	//это все бесполезно, высота тулбара/размеры кнопок не меняются<<<

	msToolBarCtrl.ButtonHeight  = 900;//не ругается, но размер не меняет

	msToolBarCtrl.Buttons.Add(1, "тест1", "", 0,);

	msToolBarCtrl.ButtonHeight  = 900;//не ругается, но размер не меняет
КонецПроцедуры	// ПослеОткрытия 

дак в том то и дело, что под высоту картинок высота тулбара автоматически подстраивается. Но картинки я натырил из 1crcrus.dll. Нехочется их редактировать Но визиально высота тулбара(не кнопок, а именно тулбара - заметно, если msToolBarCtrl.Appearance = 1) чуть меньше, чем высота стандартных 1Совских панелей. Заметна разница, хотелось сделать один в один.
Ну да ладно, похоже дело в самом контроле, поставил Appearance = 0 и фик с ним