[morgan1991]

gregaz, можно отловить нажатие левой кнопки мыши (это было на форуме, поиск), затем считать координаты мыши относительно окна и исходя из них передвинуть слайдер, затем считать его расположение.

[gregaz]

morgan1991, Спасибо
Извиняюсь ,что не сразу воспользовался поиском.
Правда не совсем понятно как считать точную позицию движка
Кликну на 25 - он все равно даст 20 (частота дискретицации?)
Повторный клик на 25 дает 40 и т.д. 20,40,20,40 ? (в примере от Yashied : Yashied )

Там была проблема предачи в скрипт позиции движка.
А здесь-получение этой позиции при клике ?

[morgan1991]

gregaz, а зачем для считывания позиции использовать расширенный режим?

Код:

$read=GUICtrlRead($slider,1)

Может сделать так:

Код:

$read=GUICtrlRead($slider)

Проблема в этом?

[gregaz]

gregaz, а зачем для считывания позиции использовать расширенный режим? »

Да разницы то ведь нет .
Даже используя _GUICtrlSlider_GetPos($Slider) все равно не получить точную координату скажем 23 (будет 20, следующий клик там же - 40 и т.д. 20-40-20-40...)
Вопрос : как установить движок точно в кликнутое место ?
Можно как-то уменьшить частоту дискретизации (здесь 20) ?

[morgan1991]

gregaz,
А так не пробовали?

Код:

#include <GUIConstants.au3>

$gui = GUICreate("slider",220,100, 100,200)
GUISetBkColor (0x00E0FFFF)  ; will change background color

$slider1 = GUICtrlCreateSlider (0,10,220,20)
GUICtrlSetLimit(-1,200, 0)   ; change min/max value
$button = GUICtrlCreateButton ("Value?",75,70,70,20)
GUISetState()
GUICtrlSetData($slider1,45) ; set cursor

$start=TimerInit()
Do
  $n = GUIGetMsg ()

   If $n = $button Then
      MsgBox(0,"slider1",GUICtrlRead($slider1),2)
   $start=TimerInit()
   EndIf
   If $n = $slider1 Then
       $pos = GUIGetCursorInfo($gui)
       GUICtrlSetData($slider1, $pos[0]-10)
   EndIf
Until $n = $GUI_EVENT_CLOSE

Только ещё бы отключить стандартный сдвиг ползунка....

[gregaz]

morgan1991 , Спасибо
Вообще то это мне и требовалось.
Решение действительно простое

Только ещё бы отключить стандартный сдвиг ползунка.... »

От этого трудно избавиться , да и вряд ли это принципиально важно.

[Yashied]

От этого трудно избавиться , да и вряд ли это принципиально важно. »

Попробуй так.

Код:

#Include <GUISlider.au3>

Global $Form, $Slider, $Data, $Release = False

$Form = GUICreate('Test', 220, 100)
$Slider = GUICtrlCreateSlider(0, 10, 220, 20)
GUICtrlSetLimit(-1, 200, 0)
_GUICtrlSlider_SetPageSize($Slider, 0)
GUISetState()

Do
    $Data = GUIGetCursorInfo()
    Switch $Data[4]
        Case $Slider
            If $Data[2] Then
                If $Release Then
                    GUICtrlSetData($Slider, $Data[0] - 10)
                    $Release = False
                EndIf
            Else
                $Release = True
            EndIf
    EndSwitch
Until GUIGetMsg() = -3

[gregaz]

Yashied, спасибо .
Очень интересное решение .
Надо попробовать использовать .