Call bullets abour a shortCut

Return to index

Author

Message

Jürgen

Posted: 07/18/2004 20:15:46

How can I use the component 'Bullets' by shortCut as shift+strg+b (the shortCut

is set in a popUpMenu

) ?

I use the same procedure as in

\RichView\Demos\Delphi\Assorted\ListStyles\Bullets\BulletsAndNumbering.dpr:

procedure TForm1.btnBulletsClick(Sender: TObject);

begin

  if not btnBullets.Down then

    RichViewEdit1.RemoveLists(False)

  else

    RichViewEdit1.ApplyListStyle(CreateBullets,0,0,False,False);

end;