! Now only 1 Package for Both Components

! Working Styles on TGradTabControl

#2

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1111 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/gradcontrols/src/dummylogger.pas

@@ -0,0 +1,68 @@
+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.
+