From b6faaef0cf63f511e940b15fa997b2a3d79d0754 Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 15 Nov 2004 12:37:52 +0000 Subject: [PATCH] added check handleallocated on loading memo git-svn-id: trunk@6247 - --- lcl/include/custommemo.inc | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lcl/include/custommemo.inc b/lcl/include/custommemo.inc index 5aa5a4cd74..d49db134f3 100644 --- a/lcl/include/custommemo.inc +++ b/lcl/include/custommemo.inc @@ -136,8 +136,10 @@ procedure TCustomMemo.Loaded; begin inherited Loaded; - TWSCustomMemoClass(WidgetSetClass).SetScrollbars(Self, FScrollbars); - TWSCustomMemoClass(WidgetSetClass).SetWordWrap(Self, FWordWrap); + if HandleAllocated then begin + TWSCustomMemoClass(WidgetSetClass).SetScrollbars(Self, FScrollbars); + TWSCustomMemoClass(WidgetSetClass).SetWordWrap(Self, FWordWrap); + end; end; {------------------------------------------------------------------------------ @@ -176,6 +178,9 @@ end; { ============================================================================= $Log$ + Revision 1.31 2004/11/15 12:37:52 mattias + added check handleallocated on loading memo + Revision 1.30 2004/09/22 16:13:01 micha convert LM_SETPROPERTIES message to interface methods for TCustomMemo