ScrollAreaGadget

[Programmes]

Bonsoir à tous,

J'ai un soucis avec la commande SetGadgetAttribute(#Scroollbar,#PB_ScrollArea_InnerHeight,y). Je suis en train de créer un programme afin de visionner des images et j'en ai un nombre important. Afin de pouvoir toutes les visionner, je dois modifier la hauteur interne de ScrollAreaGadget() mais la fonction SetGadgetAttribute(#Scroollbar,#PB_ScrollArea_InnerHeight,y) n'accepte pas une valeur supérieure à 32270. Es-ce normal ou ai-je commis une erreur? Y-a t'il une solution?
Merçi

Code : Tout sélectionner

Enumeration
  #Scroollbar  
  #Windows2
EndEnumeration
Procedure.s EcrireIni(Menu.s,Clef.s,Valeur.s,Ini.s="")
  WritePrivateProfileString_(Menu,Clef ,Valeur,Ini)
EndProcedure
Procedure.s LireIni(Rubrique.s,Clef.s,Ini.s="")
  Value.s=Space(255) 
  IniData=GetPrivateProfileString_(Rubrique,Clef,"",@Value.s,255,Ini) 
  ProcedureReturn Value 
EndProcedure
Procedure Menu()
  OpenWindow(#Windows2,0,0,DesktopWidth(0),DesktopHeight(0)-2,"",#PB_Window_BorderLess|#PB_Window_Invisible)
  SetWindowColor(#Windows2,16698567)
  ScrollAreaGadget(#Scroollbar, 0, 20, WindowWidth(#Windows2)-10,WindowHeight(#Windows2)-20, WindowWidth(#Windows2)-31, 9000, 219, #PB_ScrollArea_BorderLess) 
  OpenGadgetList(#Scroollbar)
  ContainerGadget(1,0,0,WindowWidth(#Windows2)-31,900)
  x=10:y=0:Gadget=500
  For Compte=1 To 2500
    ImageGadget(Gadget,x,y,270,210,0)
    x+280
    If x=1410:x=10:y+220:EndIf
    Gadget+1
  Next
  CloseGadgetList()
  CloseGadgetList()
  SetGadgetAttribute(#Scroollbar,#PB_ScrollArea_InnerHeight,y)
  ResizeGadget(1,#PB_Ignore,#PB_Ignore,#PB_Ignore,y)
  Gadget=500
  x=10:y=0
  Repertoire.s="E:\Photos\"
  FichierIni.s=Repertoire+"Fichiers.ini"
  HideWindow(#Windows2,0)
  For Compte=1 To 500
    Image.s=LireIni("Menu",Str(Compte))
    x+280
    If x=1410:x=0:y+219:EndIf
    position=GetGadgetAttribute(#Scroollbar,#PB_ScrollArea_Y)
    If Index=20 Or Index=40 Or Index=60 Or Index=80 Or Index=100 Or Index=120 Or Index=140
      SetGadgetAttribute(#Scroollbar,#PB_ScrollArea_Y,position+876)
    EndIf
    HideGadget(Gadget,0)
    If ReadFile(0,Repertoire+Image)
      LoadImage(Gadget,Repertoire+Image)
      ResizeImage(Gadget,270,210)
      SetGadgetState(Gadget,ImageID(Gadget))
      GadgetToolTip(Gadget,Image)
      Index+1
      Delay(50):While WindowEvent():Wend
      Gadget+1
      CloseFile(0)
    EndIf
  Next
  Debug GetGadgetAttribute(#Scroollbar,#PB_ScrollArea_InnerHeight)
EndProcedure
UseJPEGImageDecoder()
ExamineDesktops() 
Menu()
Repeat
  Event=WaitWindowEvent()
  Select Event
    Case #PB_Event_Menu ; We only have one shortcut
      Select EventMenu()
      EndSelect            
    Case #PB_Event_Gadget 
      Select EventGadget()
      EndSelect
    Default 
  EndSelect
Until Event=#PB_Event_CloseWindow

[Atomo]

C'est normal, c'est une limitation de Windows mais je ne sais pas si on peut repousser cette limite.

[Thyphoon]

la solution est de ne pas marcher dans ton scrollArea au pixel prêt mais a 100 pixel par exemple !

[Programmes]

Qu'es-ce que tu entends par ne pas marcher au pixel près?

[Thyphoon]

Désolé j'avais vu ta question, et je m'étais dit que je te répondrais plus tard, et j'ai oublié
alors :
et bien quand tu initialises ton scrollarea tu divises sa valeur part exemple part 100

Code : Tout sélectionner

SetGadgetAttribute(#Scroollbar,#PB_ScrollArea_InnerHeight,y/100)

puis quand tu as besoin de ta position et bien le multiplie part 100

Code : Tout sélectionner

position=GetGadgetAttribute(#Scroollbar,#PB_ScrollArea_Y)*100

et faudra aussi a cet endroit divisé part 100 aussi

Code : Tout sélectionner

SetGadgetAttribute(#Scroollbar,#PB_ScrollArea_Y,position+876/100)

J'ai pas testé mais ça devrais marcher !

[graph100]

c'est bizarre ce que tu dis !

InnerHeight = taille d'affichage interne ! et les pixels ne se divisent pas en 100 !

[Thyphoon]

c'est bizarre ce que tu dis !

InnerHeight = taille d'affichage interne ! et les pixels ne se divisent pas en 100 !

J'ai pas testé son code ...
la seul chose que j'ai dis puisqu'il veut dépasser les limites du scrollbar
c'est de /100 les valeurs du scrollbar... et lorsqu'il voudra les lire il les multiplie part 100 ainsi il multiplie la limite du scollaera part 100 !
la seul chose c'est que le defilement se fera de 100 pixel en 100 pixel ! c'est pas compliqué quand même si ????

[graph100]

bah non ^^

mais la fonction SetGadgetAttribute(#Scroollbar,#PB_ScrollArea_InnerHeight,y) n'accepte pas une valeur supérieure à 32270

la valeur de ScrollArea_InnerHeight n'influe pas sur les scroll bar puisque c'est des %
ce qu'il veux dépasser c'est à mon avis la valeur de la taille de l'affichage interne du gadget.

D'ailleurs pour lui répondre, je pense aussi que c'est une limitation du gadget, et qu'il devrais implémenter un truc pour n'afficher que la zone qu'il veux (donc pas un scrollarea gadget !)

[Thyphoon]

bah non ^^

mais la fonction SetGadgetAttribute(#Scroollbar,#PB_ScrollArea_InnerHeight,y) n'accepte pas une valeur supérieure à 32270

la valeur de ScrollArea_InnerHeight n'influe pas sur les scroll bar puisque c'est des %
ce qu'il veux dépasser c'est à mon avis la valeur de la taille de l'affichage interne du gadget.

D'ailleurs pour lui répondre, je pense aussi que c'est une limitation du gadget, et qu'il devrais implémenter un truc pour n'afficher que la zone qu'il veux (donc pas un scrollarea gadget !)

j'ai pas regardé la doc ! et je crois que j'ai confondu scrollaera avec ScrollBar, j'ai juste voulu expliqué un principe .. mais tu as raison , et je suis bien d'accord avec toi il ne devrait afficher que la zone visible
Très fatigué moi aujourd'hui ...

[Anonyme2]

Bonsoir à tous,

J'ai un soucis avec la commande SetGadgetAttribute(#Scroollbar,#PB_ScrollArea_InnerHeight,y). Je suis en train de créer un programme afin de visionner des images et j'en ai un nombre important. Afin de pouvoir toutes les visionner, je dois modifier la hauteur interne de ScrollAreaGadget() mais la fonction SetGadgetAttribute(#Scroollbar,#PB_ScrollArea_InnerHeight,y) n'accepte pas une valeur supérieure à 32270. Es-ce normal ou ai-je commis une erreur? Y-a t'il une solution?
Merçi

J'ai le même problème avec PureIconManager et depuis le début. J'ai toujours pensé à une limite de Windows.
J'avais cherché mais sans succès pour savoir si on pouvait contourner. Je suis preneur d'une solution.

[GallyHC]

La limitation ne serais pas plutot de 32767? si c'est le cas je me dirais qu'il est comme dans la donc de PB pour les "types de variables".

Word | .w | 2 octets | -32768 à +32767

Donc c'est juste une suposition ne peu ton pas partir de -32768? Je dis peu etre une grosse bétise mais j'aissais de faire avancer

Cordialement,
GallyHC