paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:59:11 +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 uses
Classes, SysUtils, fpwebdata, Classes, SysUtils, fpwebdata,
sqldbwebdata, LazIDEIntf,srceditorintf,idemsgintf, sqldbwebdata,
ProjectIntf, fpextjs, LazIDEIntf, SrcEditorIntf, IDEMsgIntf, ProjectIntf,
{$IFDEF EnableNewExtTools}
IDEExternToolIntf,
{$ENDIF}
fpextjs,
extjsjson, extjsxml, extjsjson, extjsxml,
fpjsonrpc, controls, dialogs, forms, fpjsonrpc, Controls, Dialogs, Forms,
jstree,jsparser, jstree,jsparser,
fpextdirect, fpextdirect,
webjsonrpc; webjsonrpc;
@ -424,7 +428,11 @@ end;
procedure TJSSyntaxChecker.ShowMessage(const Msg: String); procedure TJSSyntaxChecker.ShowMessage(const Msg: String);
begin begin
{$IFDEF EnableNewExtTools}
IDEMessagesWindow.AddCustomMessage(mluImportant,Msg,SourceFileName);
{$ELSE}
IDEMessagesWindow.AddMsg(SourceFileName+' : '+Msg,'',0,Nil); IDEMessagesWindow.AddMsg(SourceFileName+' : '+Msg,'',0,Nil);
{$ENDIF}
end; end;
procedure TJSSyntaxChecker.ShowMessage(const Fmt: String; procedure TJSSyntaxChecker.ShowMessage(const Fmt: String;
@ -471,7 +479,9 @@ Var
S : TStringStream; S : TStringStream;
begin begin
{$IFNDEF EnableNewExtTools}
IDEMessagesWindow.BeginBlock(False); IDEMessagesWindow.BeginBlock(False);
{$ENDIF}
try try
try try
Handled:=False; Handled:=False;
@ -498,7 +508,9 @@ begin
ShowException('Error during syntax check',E); ShowException('Error during syntax check',E);
end; end;
finally finally
{$IFNDEF EnableNewExtTools}
IDEMessagesWindow.EndBlock; IDEMessagesWindow.EndBlock;
{$ENDIF}
end; end;
end; end;