paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 13:37:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: enhance LazIDEIntf with more MessagesView capabilities.

Browse Source 
git-svn-id: trunk@50213 -
This commit is contained in:
ondrej 2015-11-03 15:06:42 +00:00
parent 0d90822293
commit c8cb925526
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/ideintf/lazideintf.pas
View File

@ -339,10 +339,12 @@ type
// progress and error messages
function ShowProgress(const SomeText: string;
Step, MaxStep: integer): boolean; virtual; abstract; // False if canceled by user
function GetSelectedCompilerMessage: TMessageLine; virtual; abstract;
function DoJumpToCompilerMessage(FocusEditor: boolean;
Msg: TMessageLine = nil // if nil then it jumps to first message
): boolean; virtual; abstract;
procedure DoJumpToNextError(DirectionDown: boolean); virtual; abstract;
procedure DoJumpToNextCompilerMessage(aMinUrgency: TMessageLineUrgency; DirectionDown: boolean); virtual; abstract;
procedure DoJumpToNextError(DirectionDown: boolean);
procedure DoShowMessagesView(BringToFront: boolean = true); virtual; abstract;
function DoCheckFilesOnDisk(Instantaneous: boolean = false): TModalResult; virtual; abstract;
// call this after changing TargetOS/TargetCPU of the ActiveProject
@ -630,6 +632,11 @@ begin
AComponentPaletteClassSelected);
end;
procedure TLazIDEInterface.DoJumpToNextError(DirectionDown: boolean);
begin
DoJumpToNextCompilerMessage(mluError, DirectionDown);
end;
constructor TLazIDEInterface.Create(TheOwner: TComponent);
begin
LazarusIDE:=Self;

13
ide/main.pp
View File

@ -917,9 +917,10 @@ type
function DoConvertDelphiPackage(const DelphiFilename: string): TModalResult;
// message view
function GetSelectedCompilerMessage: TMessageLine; override;
function DoJumpToCompilerMessage(FocusEditor: boolean; Msg: TMessageLine = nil
): boolean; override;
procedure DoJumpToNextError(DirectionDown: boolean); override;
procedure DoJumpToNextCompilerMessage(aMinUrgency: TMessageLineUrgency; DirectionDown: boolean); override;
procedure DoShowMessagesView(BringToFront: boolean = true); override;
// methods for debugging, compiling and external tools
@ -8302,11 +8303,12 @@ begin
end;
end;
procedure TMainIDE.DoJumpToNextError(DirectionDown: boolean);
procedure TMainIDE.DoJumpToNextCompilerMessage(
aMinUrgency: TMessageLineUrgency; DirectionDown: boolean);
var
Msg: TMessageLine;
begin
if not MessagesView.SelectNextUrgentMessage(mluError,true,DirectionDown) then
if not MessagesView.SelectNextUrgentMessage(aMinUrgency,true,DirectionDown) then
exit;
Msg:=MessagesView.GetSelectedLine;
if Msg=nil then exit;
@ -11893,6 +11895,11 @@ begin
Result:=nil;
end;
function TMainIDE.GetSelectedCompilerMessage: TMessageLine;
begin
Result:=MessagesView.GetSelectedLine;
end;
function TMainIDE.GetProjectFileWithDesigner(ADesigner: TIDesigner): TLazProjectFile;
var
AComponent: TComponent;