Button pixmaps

BlitzMax Forums/MaxGUI Module/Button pixmaps

Adam Novagen

(Posted 2016) [#1]

I'm baffled. I have a button, styled explicitly as BUTTON_PUSH, and I'm trying to add an icon to it using SetGadgetPixmap(). For whatever reason, I am completely unable to do so. I even tested a self-contained example and nothing doing. See for yourself:

Import maxgui.Drivers
Import maxgui.ProxyGadgets

SuperStrict

' Load in the icons
Const ICONCOUNT:Int = 26
Global icons:TPixmap[ICONCOUNT]
Local iconStrip:TImage = LoadAnimImage("buttons.png",16,16,0,ICONCOUNT,DYNAMICIMAGE)
	For Local thisIcon:Int = 0 To ICONCOUNT - 1
		icons[thisIcon] = LockImage(iconStrip,thisIcon)
	Next

' Set up the GUI
Global mainWindow:tGadget = CreateWindow("SetGadgetPixmap Test",0,0,400,300,Null,WINDOW_DEFAULT + WINDOW_CENTER)

Global windowPanel:tGadget = CreatePanel(0,0,ClientWidth(mainWindow),ClientHeight(mainWindow),mainWindow,PANEL_GROUP)
	SetGadgetText windowPanel,"Test"
	SetGadgetPixmap windowPanel,icons[0],PANELPIXMAP_TILE ' This is to test that SetGadgetPixmap() is working - it properly sets the icon for the window panel

Global mainButton:tGadget = CreateButton("BUTTS",32,32,ClientWidth(windowPanel) - 64,ClientHeight(windowPanel) - 64,windowPanel,BUTTON_PUSH)
	SetGadgetPixmap(mainButton,icons[0],GADGETPIXMAP_ICON|GADGETPIXMAP_NOTEXT) ' This, for whatever reason, does not apply the icon

Repeat
	WaitEvent()
	Select EventSource()
		Case mainWindow
			If EventID() = EVENT_WINDOWCLOSE Then End
	EndSelect
Forever

The image I'm using can be downloaded from here:

I don't get it. SetGadgetPixmap() is working fine for the window panel, but it's not doing diddly on the button. My results are always as follows:

What gives?

Chapman7

(Posted 2016) [#2]

Add

?Win32
Import MaxGUI.XPManifest
?

Adam Novagen

(Posted 2016) [#3]

Perfect, and it even gave me a better look on the UI elements. Thanks Chap.