paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 10:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: further migration external tools

Browse Source 
git-svn-id: trunk@42286 -
This commit is contained in:
mattias 2013-08-03 15:13:53 +00:00
parent 21990f5b89
commit fff8bce9a0
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ide/checklfmdlg.pas
View File

@ -44,8 +44,8 @@ uses
{$ELSE}
OutputFilter,
{$ENDIF}
IDEProcs, IDEOptionDefs,
EditorOptions, ExtCtrls, JITForms, PropEditUtils, IDEMsgIntf;
IDEProcs, IDEOptionDefs, EditorOptions, ExtCtrls, JITForms, PropEditUtils,
IDEMsgIntf, IDEExternToolIntf;
type
@ -412,20 +412,20 @@ end;
procedure TLFMChecker.WriteUnitError(Code: TCodeBuffer; X, Y: integer;
const ErrorMessage: string);
var
Dir: String;
Filename: String;
Msg: String;
begin
if (not ShowMessages) or (IDEMessagesWindow=nil) then exit;
if Code=nil then
Code:=fPascalBuffer;
Dir:=ExtractFilePath(Code.Filename);
Filename:=ExtractFilename(Code.Filename);
Msg:=Filename
{$IFDEF EnableNewExtTools}
IDEMessagesWindow.AddCustomMessage(mluError,ErrorMessage,Filename,Y,X);
{$ELSE}
IDEMessagesWindow.AddMsg(Filename
+'('+IntToStr(Y)+','+IntToStr(X)+')'
+' Error: '
+ErrorMessage;
IDEMessagesWindow.AddMsg(Msg,Dir,-1);
+' Error: '+ErrorMessage,
ExtractFilePath(Code.Filename),-1);
{$ENDIF}
Application.ProcessMessages;
end;
@ -438,20 +438,21 @@ end;
procedure TLFMChecker.WriteLFMErrors;
var
CurError: TLFMError;
Dir: String;
Msg: String;
Filename: String;
begin
if (not ShowMessages) or (IDEMessagesWindow=nil) then exit;
CurError:=fLFMTree.FirstError;
Dir:=ExtractFilePath(fLFMBuffer.Filename);
Filename:=ExtractFilename(fLFMBuffer.Filename);
while CurError<>nil do begin
Msg:=Filename
{$IFDEF EnableNewExtTools}
IDEMessagesWindow.AddCustomMessage(mluError,CurError.ErrorMessage,
Filename,CurError.Caret.Y,CurError.Caret.X);
{$ELSE}
IDEMessagesWindow.AddMsg(Filename
+'('+IntToStr(CurError.Caret.Y)+','+IntToStr(CurError.Caret.X)+')'
+' Error: '
+CurError.ErrorMessage;
IDEMessagesWindow.AddMsg(Msg,Dir,-1);
+' Error: '+CurError.ErrorMessage,
ExtractFilePath(fLFMBuffer.Filename),-1);
{$ENDIF}
CurError:=CurError.NextError;
end;
Application.ProcessMessages;