unit uCompLog;

interface

uses
	Windows, Messages, SysUtils, Classes,
	Menus, ToolsAPI;

type
	TAddInNotifier = class(TNotifierObject, IOTAIDENotifier, IOTAIDENotifier50, IOTAIDENotifier80)
	public
		procedure BeforeCompile(const Project: IOTAProject; var Cancel: Boolean); overload;
		procedure BeforeCompile(const Project: IOTAProject; IsCodeInsight: Boolean; var Cancel: Boolean); overload;
		procedure AfterCompile(const Project: IOTAProject; Succeeded:
			Boolean; IsCodeInsight: Boolean); overload;
		procedure AfterCompile(Succeeded: Boolean; IsCodeInsight: Boolean); overload;
		procedure AfterCompile(Succeeded: Boolean); overload;
		procedure FileNotification(NotifyCode: TOTAFileNotification; const FileName: string; var Cancel: Boolean);
	end;

implementation

uses uTypes, uMyAfterCompile, uFiles, uStrings;

var
	NotifierIndex: SG;

{ TAddInNotifier }

procedure TAddInNotifier.AfterCompile(Succeeded: Boolean);
begin
	//
end;

procedure TAddInNotifier.AfterCompile(Succeeded, IsCodeInsight: Boolean);
begin
	//
end;

procedure TAddInNotifier.AfterCompile(const Project: IOTAProject; Succeeded,
	IsCodeInsight: Boolean);
begin
	MyAfterCompile(Project.FileName, Succeeded, IsCodeInsight);
end;

procedure TAddInNotifier.BeforeCompile(const Project: IOTAProject;
	IsCodeInsight: Boolean; var Cancel: Boolean);
begin
	//
end;

procedure TAddInNotifier.BeforeCompile(const Project: IOTAProject;
	var Cancel: Boolean);
begin
	//
end;

procedure TAddInNotifier.FileNotification(NotifyCode: TOTAFileNotification;
	const FileName: string; var Cancel: Boolean);
begin
	//
end;

initialization
{$IFNDEF NoInitialization}
	NotifierIndex := (BorlandIDEServices as IOTAServices50).AddNotifier(TAddInNotifier.Create);
{$ENDIF NoInitialization}
finalization
{$IFNDEF NoFinalization}
	(BorlandIDEServices as IOTAServices50).RemoveNotifier(NotifierIndex);
{$ENDIF NoFinalization}
end.
