Re: Call bullets abour a shortCut

Return to index

Author

Message

Pieter Zijlstra

Posted: 07/18/2004 22:57:38

J�rgen wrote...

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

> (the shortCut is set in a PopupMenu) ?

> I use the same method as in [snipped].

# The hotkeys and click on the menuitem don't work correct when using

# this method.

You need to set/toggle the Down state of the SpeedButton which is

normally done by the SpeedButton itself when you click on it.

procedure TForm1.btnBulletsClick(Sender: TObject);

begin

  if not (Sender is TSpeedButton) then         // add this and

    btnBullets.Down := not btnBullets.Down;    // try it again

  if not btnBullets.Down then

    RichViewEdit1.RemoveLists(False)

  else

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

end;

;-) 

--

Pieter