Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c