Changeset 59 for trunk/Packages/Common/UDebugLog.pas

Timestamp:

Dec 3, 2014, 9:09:42 PM (9 years ago)

Author:

chronos

Message:

• Added: Support for high DPI screens. If not detected automatically correctly then user can specify desired values.
• Updated: Common package to newer version.

File:

• trunk/Packages/Common/UDebugLog.pas (modified) (3 diffs)

trunk/Packages/Common/UDebugLog.pas

@@ -31 +31 @@
     Items: TListObject;
     Lock: TCriticalSection;
-    procedure Add(Group: string; Text: string);
+    procedure Add(Text: string; Group: string = '');
     procedure WriteToFile(Text: string);
     constructor Create(AOwner: TComponent); override;
@@ -52 +52 @@
 procedure Register;
 begin
-  RegisterComponents('Samples', [TDebugLog]);
+  RegisterComponents('Common', [TDebugLog]);
 end;
 
@@ -69 +69 @@
 end;
 
-procedure TDebugLog.Add(Group: string; Text: string);
+procedure TDebugLog.Add(Text: string; Group: string = '');
 var
   NewItem: TDebugLogItem;