PureBasic Forums - English

Code: Select all

Procedure Resizewindow_EX()
  ResizeWindow(0,#PB_Ignore,#PB_Ignore,WindowWidth(0), WindowHeight(0)) 
  ResizeGadget(0,#PB_Ignore,#PB_Ignore,#PB_Ignore, WindowHeight(0)-20)
  ResizeGadget(1,#PB_Ignore,#PB_Ignore,WindowWidth(0)-230,WindowHeight(0)-20)
   ResizeGadget(2,#PB_Ignore,#PB_Ignore,WindowWidth(0)-20,WindowHeight(0)-20)
EndProcedure
 
 OpenLibrary(0,"Shell32.dll")
*FileIconInit = GetFunctionEntry(0,660)
*SystemGetIL = GetFunctionEntry(0,71)
If CallFunctionFast(*FileIconInit,1)
      CallFunctionFast(*SystemGetIL,@LargeIL,@SmallIL)
EndIf
Count = ImageList_GetImageCount_(LargeIL) - 1
newLargeIL = ImageList_Create_(64,64,#ILC_COLOR32| #ILC_MASK, 0, Count)
Icon_0 = ImageList_GetIcon_(LargeIL,0,#ILD_NORMAL)
    For x = 0 To Count
         If ImageList_GetIcon_(LargeIL,x,#ILD_NORMAL) = 0
             ImageList_AddIcon_(newLargeIL,ImageList_GetIcon_(LargeIL,0, #ILD_NORMAL))
         Else
             ImageList_AddIcon_(newLargeIL,ImageList_GetIcon_(LargeIL,x, #ILD_NORMAL))
         EndIf 
    Next
     
If OpenWindow(0,0,0,600,400,"Large Image List",#PB_Window_SystemMenu| #PB_Window_ScreenCentered| #PB_Window_SizeGadget)
    ExplorerTreeGadget(0, 0,0,0,0, "*.*") 
    ExplorerListGadget(1,0,0,0,0, "*.*",#PB_Explorer_NoFolders |#LVS_SHAREIMAGELISTS)
    SplitterGadget(2, 10, 10, 580, 380, 0,1, #PB_Splitter_Vertical|#PB_Splitter_Separator)
    SetGadgetState(2,180)

    SendMessage_(GadgetID(1),#LVM_SETVIEW,#LV_VIEW_ICON,0)
    SendMessage_(GadgetID(1),#LVM_SETIMAGELIST,#LVSIL_NORMAL, newLargeIL)
   
    BindEvent(#PB_Event_SizeWindow,@Resizewindow_EX())
Repeat
      Select WaitWindowEvent()
          Case #PB_Event_CloseWindow
                  ImageList_Destroy_(newLargeIL)
                  Quit = 1
                 
          Case #PB_Event_Gadget
                Select EventGadget()
                  Case 0                         
                          Select EventType()
                             Case #PB_EventType_Change
                                      SetGadgetText(1,"*.*")
                                      Text$ = GetGadgetText(0)
                                      SetGadgetText(1,Text$)
                          EndSelect
                   
                  Case 1
                    Select EventType()
                              Case #PB_EventType_LeftDoubleClick
                                       ShellExecute_(0,"open",GetGadgetText(1)+GetGadgetItemText(1, GetGadgetState(1) ,0),0,0,1)
                              EndSelect
          EndSelect
      EndSelect
Until Quit = 1
If IsLibrary(0)
    CloseLibrary(0)
EndIf
EndIf

Code: Select all

Icon_WH = 48
Icon_NO = 1024

Procedure Resizewindow_EX()
  ResizeWindow(0,#PB_Ignore,#PB_Ignore,WindowWidth(0), WindowHeight(0))
  ResizeGadget(10,#PB_Ignore,#PB_Ignore,WindowWidth(0)-20,WindowHeight(0)-50) 
  ;ResizeGadget(0,#PB_Ignore,#PB_Ignore,#PB_Ignore, WindowHeight(0)-50)
  ;ResizeGadget(1,#PB_Ignore,#PB_Ignore,WindowWidth(0)-230,WindowHeight(0)-50)
  ResizeGadget(2,#PB_Ignore,#PB_Ignore,WindowWidth(0)-20,WindowHeight(0)-50)
  ResizeGadget(3,#PB_Ignore,WindowHeight(0)-30,#PB_Ignore,#PB_Ignore)
EndProcedure

  If OpenWindow(0,0,0,600,400,"Large Image List",#PB_Window_SystemMenu| #PB_Window_ScreenCentered| #PB_Window_SizeGadget |#PB_Window_Invisible)
    SetWindowColor(0,$AAAAAB)
    ContainerGadget(10, 10, 10, 580, 350, #PB_Container_Raised)
        ExplorerTreeGadget(0, 0,0,0,0, "*.*",#PB_Explorer_NoFiles)
        SetGadgetColor(0, #PB_Gadget_BackColor, $D2D2D2)
        ExplorerListGadget(1, 0,0,0,0, "",#PB_Explorer_NoFolders|#PB_Explorer_NoParentFolder)
        SetGadgetColor(1, #PB_Gadget_BackColor, $EFEFEF)
        SplitterGadget(2, 0, 0, 580, 350, 0,1, #PB_Splitter_Vertical|#PB_Splitter_Separator)
        SetGadgetState(2,160)
    CloseGadgetList()
    ButtonGadget(3,10,370,80,22,"Change IL")
    
  SendMessage_(GadgetID(1),#LVM_SETVIEW,#LV_VIEW_ICON,0)
  IL = SendMessage_(GadgetID(1),#LVM_GETIMAGELIST,#LVSIL_NORMAL, 0)
  Large_IL = ImageList_Create_(Icon_WH,Icon_WH,#ILC_COLOR32|#ILC_MASK, 0, Icon_NO)  
  CreateImage(0,Icon_WH,Icon_WH,24)     
  Icon.ICONINFO 
  Icon\fIcon = 1
  Icon\hbmMask = ImageID(0) 
  Icon\hbmColor = ImageID(0) 
  Dummy_icon = CreateIconIndirect_(Icon) 
  For x = 0 To Icon_NO
        ImageList_AddIcon_( Large_IL,Dummy_icon)
  Next
  SetGadgetText(1,GetGadgetText(0))
  For x = 0 To CountGadgetItems(1)-1
         SHGetFileInfo_(GetGadgetText(0) +GetGadgetItemText(1, x ,0),0,fi.SHFILEINFO,SizeOf(fi),#SHGFI_ICON)
        ImageList_ReplaceIcon_( Large_IL,fi\iIcon,fi\hIcon)
  Next
   SendMessage_(GadgetID(1),#LVM_SETIMAGELIST,#LVSIL_NORMAL, Large_IL)
   HideWindow(0,0)   
   BindEvent(#PB_Event_SizeWindow,@Resizewindow_EX()) 
  Repeat 
      Select WaitWindowEvent() 
          Case #PB_Event_CloseWindow 
                  ImageList_Destroy_(Large_IL) 
                  Quit = 1
                  
          Case #PB_Event_Gadget 
                Select EventGadget() 
                  Case 0
                          Select EventType()
                             Case #PB_EventType_Change
                               SetGadgetText(1,GetGadgetText(0))
                               For x = 0 To CountGadgetItems(1)-1
                                      SHGetFileInfo_(GetGadgetText(0) + GetGadgetItemText(1, x ,0),0,fi.SHFILEINFO,SizeOf(fi),#SHGFI_ICON)
                                      ImageList_ReplaceIcon_( Large_IL,fi\iIcon,fi\hIcon)
                               Next
                                      
                          EndSelect 
                    
                  Case 1
                    Select EventType()
                              Case #PB_EventType_LeftDoubleClick 
                                     ShellExecute_(0,"open",GetGadgetText(1)+GetGadgetItemText(1, GetGadgetState(1) ,0),0,0,1) 
                              EndSelect 
                              
                  Case 3
                         Run ! 1
                         If Run = 1
                            SendMessage_(GadgetID(1),#LVM_SETIMAGELIST,#LVSIL_NORMAL,IL)
                         Else
                            SendMessage_(GadgetID(1),#LVM_SETIMAGELIST,#LVSIL_NORMAL, Large_IL)
                         EndIf   
          EndSelect 
      EndSelect
  Until Quit = 1 
  EndIf