Slider with numbered position indicator

[Michiel]

Hi. Borrowing this ASCII graphic from this post (which is basically the same question):

'?do=embed' frameborder='0' data-embedContent>>
 

_____________    <-- slider
| | | | | | |
1 2 3 4 5 6 7

My question is: is there a way to create a slider as above?

This image conveys what I want pretty well, too:

[Melba23]

Michiel,

This seems to work quite well for the 3 examples you posted:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GuiSlider.au3>

$hGUI = GUICreate("Test", 500, 500)

$iSliderWidth = 400
$iSliderX = 50
$iSliderMax = 200 ; <<<<<<<<<<<<<<<<
$iSliderMin = 0
$iTicInterval = 25 ; <<<<<<<<<<<<<<<
$iLabelPos = Floor(($iSliderWidth - 30) * $iTicInterval / ($iSliderMax - $iSliderMin)) ; subtract 30 from slider wdth to allow for non-used space at each end
$iLabelCount = $iSliderMax / $iTicInterval
$iLabelWidth = 20

$cSlider = GUICtrlCreateSlider($iSliderX, 10, 400, 30, $TBS_AUTOTICKS)
; Set range
_GUICtrlSlider_SetRange($cSlider, 0, $iSliderMax)
; Set tic freq
_GUICtrlSlider_SetTicFreq($cSlider, $iTicInterval)

For $i = 0 To $iLabelCount + 1
    ; Clear overspill flag
    $bOverspill = False
    ; Calculate tic value
    $iLabelValue = $i * $iTicInterval
    ; Check if over max
    If $iLabelValue >= $iSliderMax Then
        $bOverspill = True
        $iLabelValue = $iSliderMax
    EndIf
    ; Create label
    GUICtrlCreateLabel($iLabelValue, $iSliderX + 10 + ($i * $iLabelPos), 45, $iLabelWidth, 15) ; Add 10 to allow for unused space at beginning of slider
    ; check for overspill
    If $bOverspill Then ExitLoop
Next

GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Changing the values in the <<<<<<< lines produces close approximations of your visuals.

M23