From c9f9f10d1a334d304156afb8d3d32f5fb7199ed7 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 21 May 2004 21:58:01 +0000
Subject: [PATCH] Added if HandleAllocated to SetBorderStyle

git-svn-id: trunk@5498 -
---
 lcl/include/wincontrol.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 0ce62f713a..04c61d123e 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -992,7 +992,8 @@ end;
 procedure TWinControl.SetBorderStyle(NewStyle: TBorderStyle);
 begin
   FBorderStyle := NewStyle;
-  TWSWinControlClass(WidgetSetClass).SetBorderStyle(Self, NewStyle);
+  if HandleAllocated then
+    TWSWinControlClass(WidgetSetClass).SetBorderStyle(Self, NewStyle);
 end;
 
 {------------------------------------------------------------------------------}
@@ -3544,6 +3545,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.232  2004/05/21 21:58:01  vincents
+  Added if HandleAllocated to SetBorderStyle
+
   Revision 1.231  2004/05/21 10:02:59  micha
   consistent BorderStyle naming