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

sqldb: fixed compilation

Browse Source 
git-svn-id: trunk@45131 -
This commit is contained in:
mattias 2014-05-21 10:55:46 +00:00
parent f9b1fa12ee
commit 5049a0d73d
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/sqldb/registersqldb.pas
View File

@ -111,7 +111,10 @@ uses
lazideintf,
srceditorintf,
ProjectIntf,
idemsgintf,
IDEMsgIntf,
{$IFDEF EnableNewExtTools}
IDEExternToolIntf,
{$ENDIF}
CodeCache,
CodeToolManager;
@ -421,7 +424,11 @@ end;
procedure TSQLSyntaxChecker.ShowMessage(const Msg: String);
begin
{$IFDEF EnableNewExtTools}
IDEMessagesWindow.AddCustomMessage(mluImportant,Msg,SourceFileName);
{$ELSE}
IDEMessagesWindow.AddMsg(SourceFileName+' : '+Msg,'',0,Nil);
{$ENDIF}
end;
procedure TSQLSyntaxChecker.ShowMessage(const Fmt: String; Args: array of const);
@ -470,7 +477,9 @@ Var
S : TStringStream;
begin
{$IFNDEF EnableNewExtTools}
IDEMessagesWindow.BeginBlock(False);
{$ENDIF}
try
try
Handled:=False;
@ -496,7 +505,9 @@ begin
ShowException('Error during syntax check',E);
end;
finally
{$IFNDEF EnableNewExtTools}
IDEMessagesWindow.EndBlock;
{$ENDIF}
end;
end;