From 8adbc8ab548d1f0ed134d0a2fac2aa804acee560 Mon Sep 17 00:00:00 2001
From: christian_u <christian_u@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 25 Mar 2009 10:24:27 +0000
Subject: [PATCH] Removed Ctl3D

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@751 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview/virtualdrawtree.pas   |  2 --
 components/virtualtreeview/virtualstringtree.pas |  2 --
 components/virtualtreeview/virtualtrees.pas      | 14 ++------------
 3 files changed, 2 insertions(+), 16 deletions(-)

diff --git a/components/virtualtreeview/virtualdrawtree.pas b/components/virtualtreeview/virtualdrawtree.pas
index 694a3d606..46d5313a7 100644
--- a/components/virtualtreeview/virtualdrawtree.pas
+++ b/components/virtualtreeview/virtualdrawtree.pas
@@ -61,7 +61,6 @@ type
     property Color;
     property Colors;
     property Constraints;
-    property Ctl3D;
     property CustomCheckImages;
     property DefaultNodeHeight;
     property DefaultPasteMode;
@@ -90,7 +89,6 @@ type
       property ParentBackground;
     {$endif COMPILER_7_UP}
     property ParentColor default False;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;
diff --git a/components/virtualtreeview/virtualstringtree.pas b/components/virtualtreeview/virtualstringtree.pas
index 81e6beb87..802877769 100644
--- a/components/virtualtreeview/virtualstringtree.pas
+++ b/components/virtualtreeview/virtualstringtree.pas
@@ -248,7 +248,6 @@ type
     property Color;
     property Colors;
     property Constraints;
-    property Ctl3D;
     property CustomCheckImages;
     property DefaultNodeHeight;
     property DefaultPasteMode;
@@ -278,7 +277,6 @@ type
       property ParentBackground;
     {$endif COMPILER_7_UP}
     property ParentColor default False;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;
diff --git a/components/virtualtreeview/virtualtrees.pas b/components/virtualtreeview/virtualtrees.pas
index e17b16914..0ed5a886e 100644
--- a/components/virtualtreeview/virtualtrees.pas
+++ b/components/virtualtreeview/virtualtrees.pas
@@ -15482,15 +15482,7 @@ begin
     else
       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;
-    end
+      Style := Style or WS_BORDER
     else
       Style := Style and not WS_BORDER;
 
@@ -19026,7 +19018,7 @@ begin
     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]);
+        Ctl3DStyles[False]);
 
       EdgeSize := 0;
 //      if BevelInner <> bvNone then
@@ -20650,7 +20642,6 @@ begin
       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 +20661,6 @@ begin
       Self.TreeOptions := TreeOptions;
 //b      Self.ParentBiDiMode := ParentBiDiMode;
       Self.ParentColor := ParentColor;
-      Self.ParentCtl3D := ParentCtl3D;
       Self.ParentFont := ParentFont;
       Self.ParentShowHint := ParentShowHint;
       Self.PopupMenu := PopupMenu;