class ToolBar example

Here’s an example of an object definition program, MYTOOLBR.PRG, which defines a basic two-button toolbar for use in any form or application.

parameter FormObj

if pcount() < 1

msgbox("DO mytoolbr.prg WITH <form reference>") 

return 

endif

t = findinstance("myTBar")

if empty(t)

? "Creating toolbar" 

t = new myTBar() 

endif

try

t.attach(FormObj) 

catch (Exception e)

// Ignore already attached error 

? "Already attached" 

endtry

class myTBar of toolbar

this.imagewidth = 16 

this.flat = true 

this.floating = false 

this.b1 = new toolbutton(this) 

this.b1.bitmap = 'filename ..\artwork\button\dooropen.bmp'  

this.b1.onClick = {;msgbox("door is open")} 

this.b1.speedtip = 'button1' 

this.b2 = new toolbutton(this) 

this.b2.bitmap = 'filename ..\artwork\button\doorshut.bmp'  

this.b2.onClick = {;msgbox("door is shut")} 

this.b2.speedtip = 'button2' 

endclass