Procedure TWPToolbar.DoStyleDropDown(Sender:TObject)Unit: WPTbarClass: WPTbar.TWPToolbarParameters Sender:TObject