Bildbetrachter im ListIconGadget ...

[Xaby]

Hoffe, ihr seid nicht enttäuscht. Ich weiß doch auch nicht, wie die Icons größer werden.

Code: Alles auswählen

; Folker Linstedt
; for PB 4.00 
; 
Enumeration 
  #MainWindow = 0 
  #ListIconGadget = 0  
  #Image = 1
EndEnumeration 


;{- Abfrage 
If OpenWindow(#MainWindow, 0, 0, 530, 530, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu) 
  If CreateGadgetList(WindowID(#MainWindow)) And ListIconGadget(#ListIconGadget, 10, 10, 500, 500, "", 0, #PB_ListIcon_MultiSelect | #PB_ListIcon_GridLines | #PB_ListIcon_HeaderDragDrop | #PB_ListIcon_FullRowSelect) 
    
    If LoadImage(#ListIconGadget,OpenFileRequester("Bitte ICON aussuchen!","C:\F\PureBasic\Icons\Zusatz\Zmielie.ico","ico",0))<>0
         
        For x=0 To 31 
          AddGadgetColumn(  #ListIconGadget,x,"",15)
        Next 
        For y=0 To 31
          AddGadgetItem(#ListIconGadget,y," ")
        Next
        
        CreateImage(#Image,32,32)
        
        StartDrawing(ImageOutput(#Image))
        Box(0,0,32,32,RGB(255,255,255)) ; Wichtig für Transparente ICONs
        DrawImage(ImageID(#ListIconGadget),0,0,32,32)
        For y=0 To 31
          For x=0 To 31  
            SetGadgetItemColor(#ListIconGadget,y,#PB_Gadget_BackColor,Point(x,y),x)
          Next
        Next  
        StopDrawing()
      
    EndIf  
    
    
    Repeat 
      Select WaitWindowEvent() 
        Case #PB_Event_CloseWindow 
          Quit + 1 
      EndSelect 
    Until Quit 
  EndIf 
EndIf 
End 

Probiert ruhig mal das Header-Drag'n'Drop aus ...

Ist doch sicherlich inspirierend. Da fallen mir diese Schiebpuzzel ein.
Oder auch Premiere-Dekodierung ein ...

Viel Spaß damit, mal schauen, was ihr noch aus dem Listview / ListIconGadget rausholt

Ps.: 10 Meter Abstand vom Bildschirm sollten reichen, um zu erkennen, was es ist