From 014f349a63c239cd69f69a3b2b21a8121d5922e6 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 29 May 2007 09:21:52 +0000
Subject: [PATCH] - forget wince (untested)

git-svn-id: trunk@11215 -
---
 lcl/interfaces/wince/wincewsextctrls.pp | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/lcl/interfaces/wince/wincewsextctrls.pp b/lcl/interfaces/wince/wincewsextctrls.pp
index 48a2cb0d26..9b59a6a81d 100644
--- a/lcl/interfaces/wince/wincewsextctrls.pp
+++ b/lcl/interfaces/wince/wincewsextctrls.pp
@@ -573,13 +573,15 @@ end;
 
 { TWinCEWSCustomSplitter }
 
-class procedure TWinCEWSCustomSplitter.DrawSplitter(const ASplitter: TCustomSplitter
-  );
+class procedure TWinCEWSCustomSplitter.DrawSplitter(const ASplitter: TCustomSplitter);
+var
+  ARect: TRect;
 begin
-  // TODO: beveled
-  LCLIntf.DrawSplitter(ASplitter.Canvas.Handle,
-                       Rect(0,0,ASplitter.Width,ASplitter.Height),
-                       ASplitter.ResizeAnchor in [akTop,akBottom]);
+  if ASplitter.Beveled then
+  begin
+    ARect := Rect(0, 0, ASplitter.Width, ASplitter.Height);
+    Frame3D(ASplitter.Canvas.Handle, ARect, 1, bvRaised);
+  end;
 end;
 
 initialization