OpenEuphoria

colored buttons

• Posted by wolfgang fritz <wolfritz at KING.IGS.NET> Apr 26, 2000
• 367 views

...are a lot of extra work.
Here's an example:
----
include win32lib.ew
without warning

constant
Win=create(Window,"button demo",0,10,10,200,150,0),
buttonpix=create(Pixmap,"",0,0,0,80,25,0)
setPenColor(buttonpix,BrightBlue)
drawRectangle(buttonpix,1,0,0,80,25)
setTextColor(buttonpix,BrightRed)
setPosition(buttonpix,7,4)
setFont(buttonpix,"System",0,0)
wPuts(buttonpix,"Bye Bye !")
constant
yourbutton=create(PictureButton,"",
                  Win,10,10,80,25,getHandle(buttonpix))

procedure quit()
closeWindow(Win)
end procedure

onClick[yourbutton]=routine_id("quit")
WinMain(Win,Normal)