From 90cb8f39ac04f6b271b6872d06b14a313e5dc480 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 26 Jul 2008 16:59:54 +0000
Subject: [PATCH] syendit: fixed SetScrollBars calling RecreateWnd

git-svn-id: trunk@15877 -
---
 components/synedit/synedit.pp | 7 +++----
 lcl/controls.pp               | 1 +
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 353f36b547..699ca74c4c 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -4998,10 +4998,9 @@ procedure TCustomSynEdit.SetScrollBars(const Value: TScrollStyle);
 begin
   if (FScrollBars <> Value) then begin
     FScrollBars := Value;
-    // TODO: MWE: check if there is a better solution in lazarus
-    // RecreateWnd is depriciated in Lazarus
-    RecreateWnd{$IFDEF SYN_LAZARUS}(Self){$ENDIF};
-
+    {$IFNDEF SYN_LAZARUS}
+    RecreateWnd(Self)
+    {$ENDIF};
     UpdateScrollBars;
     Invalidate;
   end;
diff --git a/lcl/controls.pp b/lcl/controls.pp
index 1c84c994dd..f326b6bab6 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -2340,6 +2340,7 @@ begin
     // since only the interface (or custom interface dependent controls) should
     // call us, the handle is always created
     DebugLN('WARNING: obsolete call to RecreateWnd for %s', [AWinControl.ClassName]);
+    DumpStack;
   end;
 
   IsFocused := AWinControl.Focused;