OpenEuphoria

FlatToolBar

• Posted by Victor Churikov <phyvmc at ccunix.ccu.edu.tw> May 17, 2001
• 364 views

Hi, everybody!
I've written a simple code for displaying of flat button (see below).
It works perfectly well with the old win32lib 0.50c++ (Matthew Lewis 
extensions), both icons and hint "Save" are displyed.
However, the hint doesn't work with the latest win32lib 0.55.1. Could 
anyone tell me what's wrong? 
Thanks so much!! 


constant
Window1 = create(Window, "Window", 0, Default, Default, 300, 300, 0 ),
Tool  = create(FlatToolBar, "", Window1, 0, 0, 300, 46, 0)

integer image

constant 
i1  = extractIcon("disk05.ico"), -- I used the icons from Win32lib
i2  = extractIcon("disk06.ico"),
i3  = extractIcon("disks04.ico")
image = addIcon({i1, i2, i3}) 

constant
Butt  = create(PushButton, "Save", Tool, image, 0, 0, 0, 0)

onClick[Butt] = routine_id("one_onClick")

WinMain(Window1, Normal)

Victor Churikov