paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:59:21 +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+')'; ErrMsg:=ErrMsg+' Error: '+ErrorTool.ErrorMsg+' ('+ErrorTool.Caption+')';
DebugLn(['TH2PasConverter.ConvertFile Failed: ',ErrMsg]); DebugLn(['TH2PasConverter.ConvertFile Failed: ',ErrMsg]);
IDEMessagesWindow.AddMsg(ErrMsg,BaseDir,-1); IDEMessagesWindow.AddMsg(ErrMsg,BaseDir,-1);
LazarusIDE.DoJumpToCompilerMessage(IDEMessagesWindow.LinesCount-1,true); LazarusIDE.DoJumpToCompilerMessage(true, IDEMessagesWindow.LinesCount-1);
Result:=mrAbort; Result:=mrAbort;
end; end;

2
components/h2pas/h2pasdlg.pas
View File

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