diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
index 3facdfe66..5696f3fa5 100644
--- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
+++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
@@ -334,7 +334,7 @@ uses
   virtualpanningwindow,
   VTGraphics, //alpha blend functions
   {$ifdef DEBUG_VTV}
-  vtlogger,
+  VTLogger,
   {$endif}
   LCLType, LResources, LMessages, Types,
   SysUtils, Classes, Graphics, Controls, Forms, ImgList, StdCtrls, Menus, Printers,
diff --git a/components/virtualtreeview-new/branches/4.8/virtualtreeview_package.pas b/components/virtualtreeview-new/branches/4.8/virtualtreeview_package.pas
index 417587f2b..0b89ab304 100644
--- a/components/virtualtreeview-new/branches/4.8/virtualtreeview_package.pas
+++ b/components/virtualtreeview-new/branches/4.8/virtualtreeview_package.pas
@@ -2,8 +2,9 @@
   This source is only used to compile and install the package.
  }
 
-unit virtualtreeview_package; 
+unit virtualtreeview_package;
 
+{$warn 5023 off : no warning about unused units}
 interface
 
 uses
@@ -12,11 +13,11 @@ uses
 
 implementation
 
-procedure Register; 
+procedure Register;
 begin
-  RegisterUnit('registervirtualtreeview', @registervirtualtreeview.Register); 
-end; 
+  RegisterUnit('registervirtualtreeview', @registervirtualtreeview.Register);
+end;
 
 initialization
-  RegisterPackage('virtualtreeview_package', @Register); 
+  RegisterPackage('virtualtreeview_package', @Register);
 end.
diff --git a/components/virtualtreeview-new/branches/4.8/vtlogger.pas b/components/virtualtreeview-new/branches/4.8/vtlogger.pas
index 7066deda6..a38e1e86d 100644
--- a/components/virtualtreeview-new/branches/4.8/vtlogger.pas
+++ b/components/virtualtreeview-new/branches/4.8/vtlogger.pas
@@ -1,44 +1,47 @@
-unit vtlogger;
+unit VTLogger;
 
 {$mode objfpc}{$H+}
 
 interface
 
 uses
-  multiloglcl, multilog;
+  LCLLogger, MultiLog;
 
 const
-  //lc stands for LogClass
-  //it's possible to define the constants to suit any need
   lcAll = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31];
   lcDebug = 0;
   lcError = 1;
   lcInfo = 2;
   lcWarning = 3;
-  
   lcEvents = 4;
-  lcPaint = 5;
-  lcPaintHeader = 6;
-  lcDummyFunctions = 7;
-  lcMessages = 8;
-  lcPaintSelection = 9;
-  lcSetCursor = 10;//it generates a lot of messages. so it will be debugged alone
-  lcPaintBitmap = 11;
-  lcScroll = 12;
-  lcPaintDetails = 13;
-  lcCheck = 14;
-  lcEditLink = 15;
-  lcEraseBkgnd = 16;
-  lcColumnPosition = 17;
-  lcTimer = 18;
-  lcDrag = 19;
-  lcOle = 20;
-  lcPanning = 21;
-  lcHeaderOffset = 22;
-  lcSelection = 23;
-  lcAlphaBlend = 24;
-  lcHint = 25;
-  lcMouseEvent = 26;
+  //reserved
+  lcUser = 8;
+
+  lcVTEvents = lcUser + 1;
+  lcPaint = lcUser + 2;
+  lcPaintHeader = lcUser + 3;
+  lcDummyFunctions = lcUser + 4;
+  lcMessages = lcUser + 5;
+  lcPaintSelection = lcUser + 6;
+  lcSetCursor = lcUser + 7;//it generates a lot of messages. so it will be debugged alone
+  lcPaintBitmap = lcUser + 8;
+  lcScroll = lcUser + 8;
+  lcPaintDetails = lcUser + 9;
+  lcCheck = lcUser + 10;
+  lcEditLink = lcUser + 11;
+  lcEraseBkgnd = lcUser + 12;
+  lcColumnPosition = lcUser + 13;
+  lcTimer = lcUser + 14;
+  lcDrag = lcUser + 15;
+  lcOle = lcUser + 16;
+  lcPanning = lcUser + 17;
+  lcHeaderOffset = lcUser + 18;
+  lcSelection = lcUser + 19;
+  lcAlphaBlend = lcUser + 20;
+  lcHint = lcUser + 21;
+  lcMouseEvent = lcUser + 22;
+
+  lcVT = [lcEvents..lcMouseEvent];
   
 var
   Logger: TLCLLogger;