paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 22:59:15 +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 // progress and error messages
function ShowProgress(const SomeText: string; function ShowProgress(const SomeText: string;
Step, MaxStep: integer): boolean; virtual; abstract; // False if canceled by user Step, MaxStep: integer): boolean; virtual; abstract; // False if canceled by user
function GetSelectedCompilerMessage: TMessageLine; virtual; abstract;
function DoJumpToCompilerMessage(FocusEditor: boolean; function DoJumpToCompilerMessage(FocusEditor: boolean;
Msg: TMessageLine = nil // if nil then it jumps to first message Msg: TMessageLine = nil // if nil then it jumps to first message
): boolean; virtual; abstract; ): 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; procedure DoShowMessagesView(BringToFront: boolean = true); virtual; abstract;
function DoCheckFilesOnDisk(Instantaneous: boolean = false): TModalResult; virtual; abstract; function DoCheckFilesOnDisk(Instantaneous: boolean = false): TModalResult; virtual; abstract;
// call this after changing TargetOS/TargetCPU of the ActiveProject // call this after changing TargetOS/TargetCPU of the ActiveProject
@ -630,6 +632,11 @@ begin
AComponentPaletteClassSelected); AComponentPaletteClassSelected);
end; end;
procedure TLazIDEInterface.DoJumpToNextError(DirectionDown: boolean);
begin
DoJumpToNextCompilerMessage(mluError, DirectionDown);
end;
constructor TLazIDEInterface.Create(TheOwner: TComponent); constructor TLazIDEInterface.Create(TheOwner: TComponent);
begin begin
LazarusIDE:=Self; LazarusIDE:=Self;

13
ide/main.pp
View File

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