From cc81fa77a5b0f45c4d7fdf13960f5d95f1cb3802 Mon Sep 17 00:00:00 2001 From: Ondrej Pokorny Date: Fri, 30 Dec 2022 22:43:56 +0100 Subject: [PATCH] IDEMessages: add OpenSelection function --- components/ideintf/idemsgintf.pas | 1 + ide/etmessageswnd.pas | 6 ++++++ 2 files changed, 7 insertions(+) diff --git a/components/ideintf/idemsgintf.pas b/components/ideintf/idemsgintf.pas index 2a59976171..e24f19e335 100644 --- a/components/ideintf/idemsgintf.pas +++ b/components/ideintf/idemsgintf.pas @@ -91,6 +91,7 @@ type WithSrcPos: boolean): boolean; virtual; abstract; function SelectNextUrgentMessage(aMinUrgency: TMessageLineUrgency; WithSrcPos, Downwards: boolean): boolean; virtual; abstract; + function OpenSelection: Boolean; virtual; abstract; function AddCustomMessage(TheUrgency: TMessageLineUrgency; Msg: string; aSrcFilename: string = ''; LineNumber: integer = 0; Column: integer = 0; diff --git a/ide/etmessageswnd.pas b/ide/etmessageswnd.pas index 333970dc91..522a85408c 100644 --- a/ide/etmessageswnd.pas +++ b/ide/etmessageswnd.pas @@ -81,6 +81,7 @@ type function AddCustomMessage(TheUrgency: TMessageLineUrgency; Msg: string; aSrcFilename: string=''; LineNumber: integer=0; Column: integer=0; const ViewCaption: string=''): TMessageLine; override; + function OpenSelection: Boolean; override; // misc procedure SourceEditorPopup(MarkLine: TSynEditMarkLine; const LogicalCaretXY: TPoint); @@ -142,6 +143,11 @@ begin end; end; +function TMessagesView.OpenSelection: Boolean; +begin + Result := MessagesFrame1.MessagesCtrl.OpenSelection; +end; + procedure TMessagesView.SetDblClickJumps(AValue: boolean); begin if AValue then