PureBoard

Code: Alles auswählen

#Window=0
#ScrollAreaGadget=0

Global newH=130
Global newY=10

UseJPEGImageDecoder():UseJPEGImageEncoder()

OpenWindow(0,0,0,200,360,"test",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)

ScrollAreaGadget(#ScrollAreaGadget,10,10,180,300,158,300,0)

Directory$="d:\speed\"

If ExamineDirectory(0, Directory$, "*.*")  
  
  While NextDirectoryEntry(0)
      
      If DirectoryEntryType(0) = #PB_DirectoryEntry_File
      
        If GetExtensionPart(DirectoryEntryName(0))="JPG"
          
          pic=LoadImage(#PB_Any,Directory$+DirectoryEntryName(0))
          ButtonImageGadget(#PB_Any,10,newY,160,120,ImageID(pic))
   		    
   		    newY+newH
   		    
   		    anzahl=anzahl+1
   		    
   		    SetGadgetAttribute(#ScrollAreaGadget,#PB_ScrollArea_InnerHeight,anzahl*130)
 		      SetGadgetAttribute(#ScrollAreaGadget,#PB_ScrollArea_Y,anzahl*130)

          While WindowEvent():Wend

        EndIf
        
      EndIf
      
    Wend
    
    FinishDirectory(0)
    
  EndIf
  
   		    
Repeat
 
EventID=WaitWindowEvent()
If EventID=#PB_Event_CloseWindow:End:EndIf
	
ForEver

Code: Alles auswählen

SetGadgetAttribute(#ScrollAreaGadget,#PB_ScrollArea_Y,anzahl*130)