ButtonImageGadget: Keine Transparenz möglich?
Verfasst: 15.12.2005 22:01
Hallo,
ich habe ein ButtonImageGadget und will dort ein Bild reinsetzen, wo ein Teil transparent ist.
Ich habe es mit .ico und .bmp getestet, beide Male wird der auf transparent gesetzte Hintergrund trotzdem mit angezeigt
Die 2 Dateien:
http://www.rdn80.de/pure/zwischenablage.bmp
http://www.rdn80.de/pure/zwischenablage.ico
Der Code hier nimmt die originalen System-Icons, aber auch da Transparenz-Fehler:
ich habe ein ButtonImageGadget und will dort ein Bild reinsetzen, wo ein Teil transparent ist.
Ich habe es mit .ico und .bmp getestet, beide Male wird der auf transparent gesetzte Hintergrund trotzdem mit angezeigt

Code: Alles auswählen
Image15=CatchImage(15,?Image15):DataSection:Image15:IncludeBinary "zwischenablage.bmp":EndDataSection
Image16=CatchImage(16,?Image16):DataSection:Image16:IncludeBinary "zwischenablage.ico":EndDataSection
OpenWindow(0,0,0,100,100,#PB_Window_SystemMenu,"")
CreateGadgetList(WindowID(0))
ButtonImageGadget(1,5,5,20,20,Image15)
ButtonImageGadget(2,5,40,20,20,Image16)
Repeat
EventID = WaitWindowEvent()
If EventID=#PB_Event_CloseWindow:End:EndIf
ForEver
http://www.rdn80.de/pure/zwischenablage.bmp
http://www.rdn80.de/pure/zwischenablage.ico
Der Code hier nimmt die originalen System-Icons, aber auch da Transparenz-Fehler:
Code: Alles auswählen
Lib.l = OpenLibrary(0,"COMCTL32.DLL")
Imagelist.l = CallFunction(0,"ImageList_LoadImage",Lib,"#120",16,0,#CLR_NONE,#IMAGE_BITMAP,#LR_LOADTRANSPARENT)
OpenWindow(0, 200, 200, 200, 210, #PB_Window_MinimizeGadget, "")
CreateGadgetList(WindowID())
ButtonImageGadget(6,5,5,25,25,CallFunction(0,"ImageList_GetIcon",Imagelist,#PB_ToolBarIcon_Paste ,0))
Repeat
EventID.l = WaitWindowEvent()
Until EventID = #PB_EventCloseWindow
CallFunction(0,"ImageList_Destroy",Lib)
CloseLibrary(0)