david
e4d0fcb01d
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@46 b6239004-a887-0f4b-9937-50029ccdca16
57 lines
1.6 KiB
ObjectPascal
57 lines
1.6 KiB
ObjectPascal
unit uEWOTAMessages;
|
|
|
|
{$INCLUDE eDefines.inc}
|
|
|
|
interface
|
|
|
|
procedure ClearIDEMessages(const aGroupName: string);
|
|
procedure AddIDEMessage(const aGroupName: string; const aMessageStr: string; aLine : integer = -1; aColumn: integer = -1; const aFileName: string = ''; const aPrefixStr: string = '');
|
|
|
|
implementation
|
|
|
|
uses
|
|
ToolsAPI;
|
|
|
|
{$IFDEF DELPHI7UP}
|
|
procedure ClearIDEMessages(const aGroupName: string);
|
|
var
|
|
lGroup: IOTAMessageGroup;
|
|
begin
|
|
with BorlandIDEServices as IOTAMessageServices60 do begin
|
|
lGroup := GetGroup(aGroupName);
|
|
if Assigned(lGroup) then
|
|
RemoveMessageGroup(lGroup);
|
|
end;
|
|
end;
|
|
|
|
procedure AddIDEMessage(const aGroupName: string; const aMessageStr: string; aLine: integer = -1; aColumn: integer = -1; const aFileName: string = ''; const aPrefixStr: string = '');
|
|
var
|
|
lGroup: IOTAMessageGroup;
|
|
lDummyLineRef: pointer;
|
|
lPrefix: string;
|
|
begin
|
|
with BorlandIDEServices as IOTAMessageServices60 do begin
|
|
lGroup := GetGroup(aGroupName);
|
|
ShowMessageView(lGroup);
|
|
if not Assigned(lGroup) then lGroup := AddMessageGroup(aGroupName);
|
|
|
|
lPrefix := aPrefixStr;
|
|
if lPrefix = '' then lPrefix := 'Note';
|
|
AddToolMessage(aFilename, aMessageStr, lPrefix, aLine, aColumn, nil, lDummyLineRef, lGroup);
|
|
end;
|
|
end;
|
|
|
|
{$ELSE}
|
|
|
|
procedure ClearIDEMessages(const aGroupName: string);
|
|
begin
|
|
end;
|
|
|
|
procedure AddIDEMessage(const aGroupName: string; const aMessageStr: string; aLine : integer = -1; aColumn: integer = -1; const aFileName: string = ''; const aPrefixStr: string = '');
|
|
begin
|
|
end;
|
|
|
|
{$ENDIF}
|
|
|
|
end.
|