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

IDE: messages: do not use popupclose event for clear

Browse Source 
git-svn-id: trunk@45362 -
This commit is contained in:
mattias 2014-06-05 21:20:00 +00:00
parent 8f5d1856f2
commit b61e6c6f47
3 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/etmessageframe.lfm
View File

@ -83,7 +83,6 @@ object MessagesFrame: TMessagesFrame
end
object MsgCtrlPopupMenu: TPopupMenu
OnPopup = MsgCtrlPopupMenuPopup
OnClose = MsgCtrlPopupMenuClose
left = 240
top = 25
end

6
ide/etmessageframe.pas
View File

@ -325,7 +325,6 @@ type
procedure FilterMsgOfTypeMenuItemClick(Sender: TObject);
procedure FilterUrgencyMenuItemClick(Sender: TObject);
procedure HideSearchSpeedButtonClick(Sender: TObject);
procedure MsgCtrlPopupMenuClose(Sender: TObject);
procedure MsgCtrlPopupMenuPopup(Sender: TObject);
procedure OnSelectFilterClick(Sender: TObject);
procedure OpenToolsOptionsMenuItemClick(Sender: TObject);
@ -3020,11 +3019,6 @@ begin
SearchEdit.Text:=GetDefaultSearchText;
end;
procedure TMessagesFrame.MsgCtrlPopupMenuClose(Sender: TObject);
begin
IDEQuickFixes.ClearLines;
end;
procedure TMessagesFrame.CopyFilenameMenuItemClick(Sender: TObject);
begin
CopyMsgToClipboard(true);

4
ide/etquickfixes.pas
View File

@ -125,10 +125,10 @@ type
public
constructor Create(aOwner: TComponent); override;
destructor Destroy; override;
procedure OnPopupMenu(aParentMenuItem: TIDEMenuSection);
procedure ClearLines;
procedure SetMsgLines(aMsg: TMessageLine);
procedure AddMsgLine(aMsg: TMessageLine);
procedure ClearLines;
procedure OnPopupMenu(aParentMenuItem: TIDEMenuSection);
function AddMenuItem(Fix: TMsgQuickFix; Msg: TMessageLine; aCaption: string;
aTag: PtrInt=0): TIDEMenuCommand; override;
function OpenMsg(Msg: TMessageLine): boolean;