Sergey Tkachenko
Site Admin
Joined: 27 Aug 2005
Posts: 6607
|
 Posted: Wed Dec 16, 2009 5:26 pm Post subject: [RichViewActions] adding items in TRVAPopupMenu |
 |
|
TRVAPopupMenu provides a quick access to the most frequently used actions. It always contains some default set of actions (clipboard, font, paragraph, bullets&numbering, hyperlink) and may be some additional actions (when clicking on a picture or a table).
Items in TRVAPopupMenu are recreated each time before it is displayed. If you want to add a new item, you need to do it in OnPopup event.
This example adds "Paste Special" command below "Paste":
| Code: | procedure TForm3.RVAPopupMenu1Popup(Sender: TObject);
var i: Integer;
mi: TMenuItem;
begin
for i := 0 to RVAPopupMenu1.Items.Count-1 do
if RVAPopupMenu1.Items[i].Action is TrvActionPaste then begin
mi := TMenuItem.Create(RVAPopupMenu1);
mi.Action := rvActionsResource.rvActionPasteSpecial1;
RVAPopupMenu1.Items.Insert(i+1, mi);
break;
end;
end; |
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
