Index: virtualdrawtree.pas
===================================================================
--- virtualdrawtree.pas	(revision 596)
+++ virtualdrawtree.pas	(working copy)
@@ -61,7 +61,6 @@
     property Color;
     property Colors;
     property Constraints;
-    property Ctl3D;
     property CustomCheckImages;
     property DefaultNodeHeight;
     property DefaultPasteMode;
@@ -90,7 +89,6 @@
       property ParentBackground;
     {$endif COMPILER_7_UP}
     property ParentColor default False;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;
Index: virtualstringtree.pas
===================================================================
--- virtualstringtree.pas	(revision 596)
+++ virtualstringtree.pas	(working copy)
@@ -248,7 +248,6 @@
     property Color;
     property Colors;
     property Constraints;
-    property Ctl3D;
     property CustomCheckImages;
     property DefaultNodeHeight;
     property DefaultPasteMode;
@@ -278,7 +277,6 @@
       property ParentBackground;
     {$endif COMPILER_7_UP}
     property ParentColor default False;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;
Index: virtualtrees.pas
===================================================================
--- virtualtrees.pas	(revision 596)
+++ virtualtrees.pas	(working copy)
@@ -15483,13 +15483,7 @@
       WindowClass.style := WindowClass.style and not (CS_HREDRAW or CS_VREDRAW);
     if FBorderStyle = bsSingle then
     begin
-      if Ctl3D then
-      begin
-        ExStyle := ExStyle or WS_EX_CLIENTEDGE;
-        Style := Style and not WS_BORDER;
-      end
-      else
-        Style := Style or WS_BORDER;
+      Style := Style or WS_BORDER;
     end
     else
       Style := Style and not WS_BORDER;
@@ -19025,8 +19019,7 @@
 
     if True{todoBevelKind <> bkNone} then
     begin
-      DrawEdge(DC, RC, BDR_RAISEDINNER{InnerStyles[BevelInner]} or 0{OuterStyles[BevelOuter]}, 15{Byte(BevelEdges)} or 0{EdgeStyles[BevelKind]} or
-        Ctl3DStyles[Ctl3D]);
+      DrawEdge(DC, RC, BDR_RAISEDINNER{InnerStyles[BevelInner]} or 0{OuterStyles[BevelOuter]}, 15{Byte(BevelEdges)} or 0{EdgeStyles[BevelKind]});
 
       EdgeSize := 0;
 //      if BevelInner <> bvNone then
@@ -20650,7 +20643,6 @@
       Self.Color := Color;
       Self.Colors.Assign(Colors);
       Self.Constraints.Assign(Constraints);
-      Self.Ctl3D := Ctl3D;
       Self.DefaultNodeHeight := DefaultNodeHeight;
       Self.DefaultPasteMode := DefaultPasteMode;
       Self.DragCursor := DragCursor;
@@ -20670,7 +20662,6 @@
       Self.TreeOptions := TreeOptions;
 //b      Self.ParentBiDiMode := ParentBiDiMode;
       Self.ParentColor := ParentColor;
-      Self.ParentCtl3D := ParentCtl3D;
       Self.ParentFont := ParentFont;
       Self.ParentShowHint := ParentShowHint;
       Self.PopupMenu := PopupMenu;