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

jcf: fixed compilation

Browse Source 
git-svn-id: trunk@45309 -
This commit is contained in:
mattias 2014-06-02 21:16:16 +00:00
parent 15913d1179
commit 351c19894f
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/jcf2/IdePlugin/lazarus/jcfidemain.pas
View File

@ -38,7 +38,7 @@ interface
uses
{ freepascal }SysUtils, Classes,
{ lazarus design time }
LazIDEIntf, SrcEditorIntf, IDEMsgIntf, ProjectIntf,
LazIDEIntf, SrcEditorIntf, IDEMsgIntf, ProjectIntf, IDEExternToolIntf,
{ local}
EditorConverter, FileConverter, ConvertTypes, jcfuiconsts;
@ -250,6 +250,9 @@ procedure TJcfIdeMain.LogIDEMessage(const psFile, psMessage: string;
const piY, piX: integer);
var
lazMessages: TIDEMessagesWindowInterface;
{$IFDEF EnableNewExtTools}
Urgency: TMessageLineUrgency;
{$ENDIF}
begin
{ no empty lines in this log }
if psMessage = '' then
@ -259,12 +262,22 @@ begin
if lazMessages = nil then
exit;
{$IFDEF EnableNewExtTools}
case peMessageType of
mtException,mtInputError,mtParseError: Urgency:=mluError;
mtCodeWarning: Urgency:=mluWarning;
mtFinalSummary: Urgency:=mluImportant;
mtProgress: Urgency:=mluProgress;
end;
lazMessages.AddCustomMessage(Urgency,psMessage, psFile, piY, piX, 'JCF')
{$ELSE}
if (piY >= 0) and (piX >= 0) then
lazMessages.AddMsg('JCF: ' + psMessage, psFile, 0)
//lazMessages.AddToolMessage(psFile, psMessage, 'JCF', piY, piX)
else
lazMessages.AddMsg('JCF: ' + psFile + ' ' + psMessage, '', 0);
//lazMessages.AddTitleMessage('JCF: ' + psFile + ' ' + psMessage);
{$ENDIF}
end;
procedure TJcfIdeMain.MakeEditorConverter;