Procedure TWPToolbar.SetFontSelect(fon:TFont)Unit: WPTbarClass: WPTbar.TWPToolbarParameters fon:TFont