From f4a1e520cd9d7dd2f16a5a6148f087adb68e2d6a Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 19 Sep 2009 09:34:41 +0000
Subject: [PATCH] lcl: cleanup

git-svn-id: trunk@21766 -
---
 lcl/include/custommemo.inc              | 5 ++---
 lcl/interfaces/win32/win32wsstdctrls.pp | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/lcl/include/custommemo.inc b/lcl/include/custommemo.inc
index 5c40e27a67..bc140b1d29 100644
--- a/lcl/include/custommemo.inc
+++ b/lcl/include/custommemo.inc
@@ -33,9 +33,7 @@ begin
   FWantReturns := true;
   FWantTabs := false;
   FWordWrap := True;
-  //FLines := TMemoStrings.Create(Self);
   FLines := TTextStrings.Create;
-  //TMemoStrings(FLines).MemoWidgetClass := TWSCustomMemoClass(WidgetSetClass);
   FVertScrollbar := TMemoScrollBar.Create(Self, sbVertical);
   FHorzScrollbar := TMemoScrollBar.Create(Self, sbHorizontal);
   AutoSize := False;
@@ -276,7 +274,8 @@ end;
  ------------------------------------------------------------------------------}
 procedure TCustomMemo.SetWordWrap(const Value : boolean);
 begin
-  if Value <> FWordWrap then begin
+  if Value <> FWordWrap then
+  begin
     //DebugLn('TCustomMemo.SetWordWrap ',Name,' Old=',FWordWrap,' New=',Value);
     FWordWrap := Value;
     if HandleAllocated and (not (csLoading in ComponentState)) then
diff --git a/lcl/interfaces/win32/win32wsstdctrls.pp b/lcl/interfaces/win32/win32wsstdctrls.pp
index 1300ab9375..c647e10028 100644
--- a/lcl/interfaces/win32/win32wsstdctrls.pp
+++ b/lcl/interfaces/win32/win32wsstdctrls.pp
@@ -1218,7 +1218,7 @@ begin
       Flags := Flags and not WS_HSCROLL
     else
       Flags := Flags or ES_AUTOHSCROLL;
-    if ACustomMemo.BorderStyle=bsSingle then
+    if ACustomMemo.BorderStyle = bsSingle then
       FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
     pClassName := @EditClsName[0];
     WindowTitle := StrCaption;