class MainToolBar of Toolbar
   with (this)
      imagewidth = 18
      imageheight = 14
      flat = true
      floating = false
   endwith
   this.newbutton = new toolbutton(this)
   this.newbutton.bitmap = 'FILENAME :Images:new.bmp'
   this.newbutton.speedtip = 'Add new...'
   this.Savebutton = new toolbutton(this)
   this.Savebutton.bitmap = 'FILENAME :Images:Save.bmp'
   this.Savebutton.speedtip = 'Save changes'
   this.Abandonbutton = new toolbutton(this)
   this.Abandonbutton.bitmap = 'FILENAME :Images:Erase.bmp'
   this.Abandonbutton.speedtip = 'Abandon changes'

   this.Deletebutton = new toolbutton(this)
   this.Deletebutton.bitmap = 'FILENAME :Images:Delete.bmp'
   this.Deletebutton.speedtip = 'Delete...'


 
endclass