Create Icon?

BlitzMax Forums/Brucey's Modules/Create Icon?

Warner

(Posted 2009) [#1]

Can I somehow create an wxIcon from inside my program, for instance a color matte or something copied from a TImage?

Warner

(Posted 2009) [#2]

Hold on, I seem to have worked something out:

Function MatteIcon:wxIcon(r:Int, g:Int, b:Int)

		Local imagePtr:Byte Ptr = bmx_wximage_createempty(16, 16)		
		bmx_wximage_setrgbrange(imagePtr, 0, 0, 16, 16, r, g, b)
		Local bitmapPtr:Byte Ptr = bmx_wxbitmap_createfromimage(imagePtr, -1)
		
		Local icon:wxIcon = New wxIcon.Create()
		bmx_wxicon_copyfrombitmap(icon.wxObjectPtr, bitmapPtr)
						
		bmx_wximage_delete(imagePtr)
		bmx_wxbitmap_delete(bitmapPtr)
	
		Return icon
	
End Function

And this:

	'create icon from image
	Function PixmapToIcon:wxIcon(pm:TPixmap)
				
		Local imagePtr:Byte Ptr = bmx_wximage_createempty(16, 16)		
			
		Local x:Int, y:Int
		For x = 0 To 15
		For y = 0 To 15
			Local col:Int = pm.ReadPixel(x * pm.width / 16, y * pm.height / 16)
			Local b:Int = col Mod 256
			Local g:Int = (col / 256) Mod 256
			Local r:Int = (col / 65536) Mod 256
			bmx_wximage_setrgb(imagePtr, x, y, r, g, b)
		Next
		Next	
		
		Local bitmapPtr:Byte Ptr = bmx_wxbitmap_createfromimage(imagePtr, -1)
		
		Local icon:wxIcon = New wxIcon.Create()
		bmx_wxicon_copyfrombitmap(icon.wxObjectPtr, bitmapPtr)
						
		bmx_wximage_delete(imagePtr)
		bmx_wxbitmap_delete(bitmapPtr)
	
		Return icon
		
	End Function