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

Components, H2Pas: fixed compilation after r42342 #f7c7f989ee

Browse Source 
git-svn-id: trunk@42390 -
This commit is contained in:
maxim 2013-08-11 18:07:12 +00:00
parent 2dcaeb39e0
commit b246d4bbcd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/h2pas/h2pasconvert.pas
View File

@ -1976,7 +1976,7 @@ var
ErrMsg:=ErrMsg+' Error: '+ErrorTool.ErrorMsg+' ('+ErrorTool.Caption+')';
DebugLn(['TH2PasConverter.ConvertFile Failed: ',ErrMsg]);
IDEMessagesWindow.AddMsg(ErrMsg,BaseDir,-1);
LazarusIDE.DoJumpToCompilerMessage(IDEMessagesWindow.LinesCount-1,true);
LazarusIDE.DoJumpToCompilerMessage(true, IDEMessagesWindow.LinesCount-1);
Result:=mrAbort;
end;

2
components/h2pas/h2pasdlg.pas
View File

@ -1125,7 +1125,7 @@ begin
exit;
end;
LazarusIDE.DoJumpToCompilerMessage(MsgLine,true);
LazarusIDE.DoJumpToCompilerMessage(true, MsgLine);
end;
function TH2PasDialog.SaveSettings: TModalResult;