
Ich will Ordner-Icons aus einer ImageList so modifizieren das sie "unsichtbar" werden sowie auf dem Bild oben.
Die drei Stati: Normal, geöffnet und ausgewählt habe ich mir bereits zusammengefriemelt:
Code: Alles auswählen
OpenWindow(0,0,0,320,240,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
hdc = StartDrawing(WindowOutput(0))
Box(0,0,320,240,#White)
Flags = #SHGFI_ICON | #SHGFI_SYSICONINDEX | #SHGFI_OPENICON | #SHGFI_SMALLICON
himlSystem = SHGetFileInfo_("",0,shif.SHFILEINFO,SizeOf(SHFILEINFO),Flags)
ImageList_Draw_(himlSystem,5,hdc,20,20,#ILD_TRANSPARENT)
ImageList_Draw_(himlSystem,4,hdc,60,20,#ILD_TRANSPARENT)
ImageList_Draw_(himlSystem,4,hdc,100,20,#ILD_TRANSPARENT | #ILD_SELECTED)
Flags = #SHGFI_ICON | #SHGFI_SYSICONINDEX | #SHGFI_OPENICON
himlSystem = SHGetFileInfo_("",0,shif.SHFILEINFO,SizeOf(SHFILEINFO),Flags)
ImageList_Draw_(himlSystem,5,hdc,20,50,#ILD_TRANSPARENT)
ImageList_Draw_(himlSystem,4,hdc,70,50,#ILD_TRANSPARENT)
ImageList_Draw_(himlSystem,4,hdc,120,50,#ILD_TRANSPARENT | #ILD_SELECTED)
StopDrawing()
While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend
