paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 09:21:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

added msg view clear menun item

Browse Source 
git-svn-id: trunk@8880 -
This commit is contained in:
mattias 2006-03-07 12:02:55 +00:00
parent 90502c4356
commit b0df4cc0b7
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/msgview.pp
View File

@ -87,6 +87,7 @@ type
procedure CopyMenuItemClick(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure HelpMenuItemClick(Sender: TObject);
procedure ClearMenuItemClick(Sender: TObject);
procedure MainPopupMenuPopup(Sender: TObject);
procedure MessageViewDblClicked(Sender: TObject);
procedure MessageViewClicked(Sender: TObject);
@ -160,6 +161,7 @@ type
var
MessagesView: TMessagesView;
MsgClearIDEMenuCommand: TIDEMenuCommand;
MsgCopyIDEMenuCommand: TIDEMenuCommand;
MsgCopyAllIDEMenuCommand: TIDEMenuCommand;
MsgCopyAllAndHiddenIDEMenuCommand: TIDEMenuCommand;
@ -230,6 +232,8 @@ var
begin
MessagesMenuRoot := RegisterIDEMenuRoot(MessagesMenuRootName);
Path := MessagesMenuRoot.Name;
MsgClearIDEMenuCommand :=
RegisterIDEMenuCommand(Path, 'Clear', srVK_CLEAR);
MsgCopyIDEMenuCommand := RegisterIDEMenuCommand(Path, 'Copy selected',
lisCopySelectedMessagesToClipboard);
MsgCopyAllIDEMenuCommand := RegisterIDEMenuCommand(Path, 'Copy all',
@ -298,6 +302,7 @@ begin
//MainPopupMenu.Items.WriteDebugReport('TMessagesView.Create ');
MsgHelpIDEMenuCommand.OnClick := @HelpMenuItemClick;
MsgClearIDEMenuCommand.OnClick := @ClearMenuItemClick;
MsgCopyIDEMenuCommand.OnClick := @CopyMenuItemClick;
MsgCopyAllIDEMenuCommand.OnClick := @CopyAllMenuItemClick;
MsgCopyAllAndHiddenIDEMenuCommand.OnClick := @CopyAllAndHiddenMenuItemClick;
@ -752,6 +757,11 @@ begin
ExecuteIDECommand(Self, ecContextHelp);
end;
procedure TMessagesView.ClearMenuItemClick(Sender: TObject);
begin
Clear;
end;
procedure TMessagesView.MainPopupMenuPopup(Sender: TObject);
var
i: LongInt;