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.