Changeset 250 for Common/UDebugLog.pas

Timestamp:

Jun 13, 2011, 8:00:17 AM (13 years ago)

Author:

george

Message:

• Modified: Unit UCommon in CoolWeb package used form package Common as dependency.

File:

• Common/UDebugLog.pas (modified) (4 diffs)

Common/UDebugLog.pas

@@ -21 +21 @@
   { TDebugLog }
 
-  TDebugLog = class
+  TDebugLog = class(TComponent)
   private
+    FFileName: string;
     FOnNewItem: TNewItemEvent;
   public
-    FileName: string;
     WriteToFileEnable: Boolean;
     Items: TThreadList;
@@ -32 +32 @@
     procedure WriteToFile(Text: string);
     property OnNewItem: TNewItemEvent read FOnNewItem write FOnNewItem;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+  published
+    property FileName: string read FFileName write FFileName;
   end;
 
@@ -85 +87 @@
 end;
 
-constructor TDebugLog.Create;
+constructor TDebugLog.Create(AOwner: TComponent);
 begin
+  inherited;
   Items := TThreadList.Create;
   MaxCount := 100;
@@ -105 +108 @@
 end;
 
-initialization
-
-DebugLog := TDebugLog.Create;
-
-finalization
-
-DebugLog.Free;
-
 end.