Текущий архив: 2008.01.27;
Скачать: CL | DM;
Вниз
колесо и TrackBar Найти похожие ветки
← →
robt (2007-06-26 13:16) [0]по умолчанию горизонтальный TrackBar реагирует на колесо
мыши задом на перед: вверх-влево , вниз-вправо
хотя логично делать наоборот.
а нужно "правильно" с заданным шагом
если использовать OnMouseWell то происходит двойное изменение
позиции сначала "системный задом-наперед" а потом OnMouseWell
как не дать ему обрабатывать колесо в обход OnMouseWell
← →
Vladimir Kladov (2007-06-26 16:10) [1]Может, проще ему логическое направление попробовать поменять. Сейчас погляжу, что можно поделать.
← →
Vladimir Kladov (2007-06-26 17:17) [2]Посмотрел :)
Вертится как раз туда, куда надо. Попробуйте опцию trbVertical включить:
колесо от себя - влево/вверх, к себе - вправо/вниз. Очень даже логично.
Если очень хочется наоборот, вот код:procedure TForm1.TrackBar1MouseWheel(Sender: PControl;
var Mouse: TMouseEventData);
begin
if Integer( Mouse.Shift ) < 0 then
TrackBar1.Position := TrackBar1.Position - 1
else
TrackBar1.Position := TrackBar1.Position + 1;
Mouse.StopHandling := TRUE;
end;
← →
Robt (2007-06-26 19:23) [3]ЫЫЫ :) Handling...
чота я туплю :(
спасиба большое !
Страницы: 1 вся ветка
Текущий архив: 2008.01.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
