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

lazwebextra: fixed compilation

Browse Source 
git-svn-id: trunk@45133 -
This commit is contained in:
mattias 2014-05-21 11:11:25 +00:00
parent 865f8fbc22
commit d84e4a5a95
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/fpweb/reglazwebextra.pp
View File

@ -6,10 +6,14 @@ interface
uses
Classes, SysUtils, fpwebdata,
sqldbwebdata, LazIDEIntf,srceditorintf,idemsgintf,
ProjectIntf, fpextjs,
sqldbwebdata,
LazIDEIntf, SrcEditorIntf, IDEMsgIntf, ProjectIntf,
{$IFDEF EnableNewExtTools}
IDEExternToolIntf,
{$ENDIF}
fpextjs,
extjsjson, extjsxml,
fpjsonrpc, controls, dialogs, forms,
fpjsonrpc, Controls, Dialogs, Forms,
jstree,jsparser,
fpextdirect,
webjsonrpc;
@ -424,7 +428,11 @@ end;
procedure TJSSyntaxChecker.ShowMessage(const Msg: String);
begin
{$IFDEF EnableNewExtTools}
IDEMessagesWindow.AddCustomMessage(mluImportant,Msg,SourceFileName);
{$ELSE}
IDEMessagesWindow.AddMsg(SourceFileName+' : '+Msg,'',0,Nil);
{$ENDIF}
end;
procedure TJSSyntaxChecker.ShowMessage(const Fmt: String;
@ -471,7 +479,9 @@ Var
S : TStringStream;
begin
{$IFNDEF EnableNewExtTools}
IDEMessagesWindow.BeginBlock(False);
{$ENDIF}
try
try
Handled:=False;
@ -498,7 +508,9 @@ begin
ShowException('Error during syntax check',E);
end;
finally
{$IFNDEF EnableNewExtTools}
IDEMessagesWindow.EndBlock;
{$ENDIF}
end;
end;