paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 04:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEMessages: add OpenSelection function

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-12-30 22:43:56 +01:00
parent ba918c5eb2
commit cc81fa77a5
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/ideintf/idemsgintf.pas
View File

@ -91,6 +91,7 @@ type
WithSrcPos: boolean): boolean; virtual; abstract; WithSrcPos: boolean): boolean; virtual; abstract;
function SelectNextUrgentMessage(aMinUrgency: TMessageLineUrgency; function SelectNextUrgentMessage(aMinUrgency: TMessageLineUrgency;
WithSrcPos, Downwards: boolean): boolean; virtual; abstract; WithSrcPos, Downwards: boolean): boolean; virtual; abstract;
function OpenSelection: Boolean; virtual; abstract;
function AddCustomMessage(TheUrgency: TMessageLineUrgency; Msg: string; function AddCustomMessage(TheUrgency: TMessageLineUrgency; Msg: string;
aSrcFilename: string = ''; LineNumber: integer = 0; Column: integer = 0; aSrcFilename: string = ''; LineNumber: integer = 0; Column: integer = 0;

6
ide/etmessageswnd.pas
View File

@ -81,6 +81,7 @@ type
function AddCustomMessage(TheUrgency: TMessageLineUrgency; Msg: string; function AddCustomMessage(TheUrgency: TMessageLineUrgency; Msg: string;
aSrcFilename: string=''; LineNumber: integer=0; Column: integer=0; aSrcFilename: string=''; LineNumber: integer=0; Column: integer=0;
const ViewCaption: string=''): TMessageLine; override; const ViewCaption: string=''): TMessageLine; override;
function OpenSelection: Boolean; override;
// misc // misc
procedure SourceEditorPopup(MarkLine: TSynEditMarkLine; const LogicalCaretXY: TPoint); procedure SourceEditorPopup(MarkLine: TSynEditMarkLine; const LogicalCaretXY: TPoint);
@ -142,6 +143,11 @@ begin
end; end;
end; end;
function TMessagesView.OpenSelection: Boolean;
begin
Result := MessagesFrame1.MessagesCtrl.OpenSelection;
end;
procedure TMessagesView.SetDblClickJumps(AValue: boolean); procedure TMessagesView.SetDblClickJumps(AValue: boolean);
begin begin
if AValue then if AValue then