ScrollCanvas

[microdevweb]

ScrollCanvas est la première partie d'un projet (MaxiList), il permet l'ajout d’ascenseurs dans un canvas. J'ai repris le code d'un ancien module qui à été amélioré.

IMPORTANT: Veuillez cocher Activer la gestion des Threads dans les options du compilateur PureBasic

Le module et le code de teste sur

https://github.com/microdevweb/ScrollCanvas

[falsam]

Présentation un peu brut de décoffrage. Personnellement je n'ai rien compris.

Apparemment ton module fonctionne que si un canvas est présent. Ton exemple Main.pb n'étant pas simple, j'ai fait un code plus simple MAIS qui visuellement ne fonctionne pas. Pas de scrollbar à l'horizon.

Code : Tout sélectionner

XIncludeFile "ScroolCanvas.pbi"

Enumeration Window
  #MainForm  
EndEnumeration

Enumeration Gadget
  #Canvas  
  #Scroll
EndEnumeration

;Récupérer la valeur du ScrollBar
Procedure EventScroll(IdScroll,Value,MyData)
  Debug "Valeur " + ScrollCanvas::GetValue(#Scroll) 
EndProcedure

OpenWindow(#MainForm,0,0,800,600,"Teste ScrollCanvas",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CanvasGadget(#Canvas,10, 10, 780,580)

ScrollCanvas::InitScroll(#Canvas,@EventScroll())
ScrollCanvas::Add(#Scroll, 50, 40, 20, 150, 0,100, 10, 0, 0)

ScrollCanvas::Draw() ;Ajouté suite à la réponse de microdevweb 

Repeat : Until WaitWindowEvent(10) = #PB_Event_CloseWindow

[microdevweb]

Arpès l'ajout de tous les scroll on les dessine avec Draw()

Code : Tout sélectionner

XIncludeFile "ScroolCanvas.pbi"

Enumeration Window
  #MainForm  
EndEnumeration

Enumeration  Gadget
  #Canvas  
EndEnumeration

Procedure EventScroll(IdScroll,Value,MyData)
  Debug "Valeur " + ScrollCanvas::GetValue(#Scroll) 
EndProcedure

OpenWindow(#MainForm,0,0,800,600,"Teste ScrollCanvas",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CanvasGadget(#Canvas,10, 10, 780,580)

ScrollCanvas::InitScroll(#Canvas,@EventScroll())
ScrollCanvas::Add(#PB_Any,50,40,10,150,0,1000,10,0,0)
ScrollCanvas::Draw()
    
Repeat : Until WaitWindowEvent(10) = #PB_Event_CloseWindow

[falsam]

Merci pour cette réponse. J'ai modifié mon code en conséquence et j'ai aussi modifié la procédure callback pour lire la valeur du curseur.

La valeur est bien retournée quand on glisse le curseur mais pas quand on clique sur une intervalle entre le curseur et une des extrémités du ScrollCanvas.

[microdevweb]

En effet, agis comme un clique avec le Step renseigné. Je devrais le modifié pour déplacer le bt à l'endroit du clique

[falsam]

Ce n'est pas un souci de positionnement du bouton. le callback n'est pas appelé quand on clique sur ton scrollcanvas.

[falsam]

Après discussion sur FreeChat Microdevweb a modifié ScroolCanvas.pbi.

Mon code de test fonctionne. Bravo et merci Micro pour ce partage

[microdevweb]

De rien

[Shadow]

Pas mal

Note:

1 - Serais bien de pouvoir personnaliser les couleurs.
2 - L'objet cliqué (Bouton souris gauche enfoncé) devrais garder l'action de la souris.

Par exemple si je clique (Bouton souris gauche enfoncé) sur le bouton d’ascenseur (Le truc du milieux)
Celui-ci devrais se déplacer suivent la position de la souris comme en vraie quoi

Merci du partage