[..] Barre de défilement

[Xnorky]

Bonjour,

J'aimerais savoir s'il était possible d'avoir une partie de la fenêtre (GUI) avec une barre de défilement (horizontale ou verticale) ?

Je ne veux pas que ce soir un Treeview mais une partie ou je puisse mettre des images ou des labels...

Si oui, comment faire ? J'ai cherché en vain...

Merci d'avance !

[MiXS]

Personnelement j'en ai aucune idée mais ca m'interesse donc je vais chercher de mon coté !

[Xnorky]

Merci, je continue de chercher aussi...

[Tlem]

Voilà une première partie.

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 282, 146, 194, 117, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_GROUP,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Le Label", 216, 16, 100, 32)
GUICtrlSetFont(-1, 18, 800, 0, "Old English Text MT")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
 

Par contre, je n'ai pas trouvé comment scroller l'affichage !

[sylvanie]

pour les scroll, j'avais souvenir de ce post à ce sujet, dont Ani avait trouvé une UDF sympas :
http://autoit-fr.realbb.net/entraide-f5 ... s-t265.htm

[Xnorky]

Oui c'est le problème, avoir des scrollbars qui ne servent pas...

Je continue de chercher...

[mickeich]

Bonjour,

Je fait remonter ce sujet car j'ai le même problème.
J'ai beaucoup de contrôles à placer dans une petite fenêtre, je souhaite donc mettre un scrollbar pour les faire défiler.
Mon idée est de les placer dans un groupe avec une barre verticale.
La gestion des barres de défilement n'est pas facile je galère dessus depuis un moment.

Voila ce que j'ai pour le moment :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\SciTE\Koda\Forms\Form1.kxf
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$Tab1 = GUICtrlCreateTab(48, 64, 521, 281)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")

$Group1 = GUICtrlCreateGroup("Group1", 72, 112, 465, 121, BitOR($WS_TABSTOP,$WS_VSCROLL))

    
$Radio1 = GUICtrlCreateRadio("Radio1", 136, 136, 97, 17)
$Radio2 = GUICtrlCreateRadio("Radio1", 128, 240, 97, 17)
$Radio3 = GUICtrlCreateRadio("Radio1", 136, 168, 97, 17)
$Radio4 = GUICtrlCreateRadio("Radio1", 136, 304, 97, 17)
$Radio5 = GUICtrlCreateRadio("Radio1", 144, 200, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")

GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")

GUISetState(@SW_SHOW)

_GUIScrollBars_Init($Group1, -1, 500)

#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $wParam, $lParam
    Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
    Local $index = -1, $yChar, $yPos
    Local $Min, $Max, $Page, $Pos, $TrackPos

    For $x = 0 To UBound($aSB_WindowInfo) - 1
        If $aSB_WindowInfo[$x][0] = $hWnd Then
            $index = $x
            $yChar = $aSB_WindowInfo[$index][3]
            ExitLoop
        EndIf
    Next
    If $index = -1 Then Return 0


    ; Get all the vertial scroll bar information
    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
    $Min = DllStructGetData($tSCROLLINFO, "nMin")
    $Max = DllStructGetData($tSCROLLINFO, "nMax")
    $Page = DllStructGetData($tSCROLLINFO, "nPage")
    ; Save the position for comparison later on
    $yPos = DllStructGetData($tSCROLLINFO, "nPos")
    $Pos = $yPos
    $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

    Switch $nScrollCode
        Case $SB_TOP ; user clicked the HOME keyboard key
            DllStructSetData($tSCROLLINFO, "nPos", $Min)

        Case $SB_BOTTOM ; user clicked the END keyboard key
            DllStructSetData($tSCROLLINFO, "nPos", $Max)

        Case $SB_LINEUP ; user clicked the top arrow
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)

        Case $SB_LINEDOWN ; user clicked the bottom arrow
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)

        Case $SB_PAGEUP ; user clicked the scroll bar shaft above the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)

        Case $SB_PAGEDOWN ; user clicked the scroll bar shaft below the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)

        Case $SB_THUMBTRACK ; user dragged the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
    EndSwitch
    
;~    // Set the position and then retrieve it.  Due to adjustments
;~    //   by Windows it may not be the same as the value set.

    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
    _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    ;// If the position has changed, scroll the window and update it
    $Pos = DllStructGetData($tSCROLLINFO, "nPos")

    If ($Pos <> $yPos) Then
        _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $Pos))
        $yPos = $Pos
    EndIf

    Return $GUI_RUNDEFMSG

EndFunc   ;==>WM_VSCROLL

J'ai repris la gestion du VSCROLL des exemples.
Mon but serait de placer tous les radios (ou autres contrôles) dans le groupe mais de n'en n'avoir qu'une partie visible.

Merci d'avance de votre aide.