You've already forked lazarus-ccr
4db6f37d8c
! Working Styles on TGradTabControl #2 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1111 8e941d3f-bd1b-0410-a28a-d453659cc2b4
69 lines
1.0 KiB
ObjectPascal
69 lines
1.0 KiB
ObjectPascal
unit DummyLogger;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, variants;
|
|
|
|
type
|
|
|
|
{ TDummyLogger }
|
|
|
|
TDummyLogger = class
|
|
public
|
|
procedure EnterMethod(AStr: string);
|
|
procedure ExitMethod(AStr: string);
|
|
procedure EnterMethod(AObj: TObject; AStr: string);
|
|
procedure ExitMethod(AObj: TObject; AStr: string);
|
|
procedure Send(AStr: string; AVar: Variant = 0);
|
|
procedure Watch(AStr: string; AVar: Variant = 0);
|
|
end;
|
|
|
|
var
|
|
Logger : TDummyLogger = nil;
|
|
|
|
implementation
|
|
|
|
{ TDummyLogger }
|
|
|
|
procedure TDummyLogger.EnterMethod(AStr: string);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TDummyLogger.ExitMethod(AStr: string);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TDummyLogger.EnterMethod(AObj: TObject; AStr: string);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TDummyLogger.ExitMethod(AObj: TObject; AStr: string);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TDummyLogger.Send(AStr: string; AVar: Variant);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TDummyLogger.Watch(AStr: string; AVar: Variant);
|
|
begin
|
|
|
|
end;
|
|
|
|
initialization
|
|
Logger := TDummyLogger.Create;
|
|
|
|
finalization
|
|
Logger.Free;
|
|
|
|
end.
|
|
|