From 6f02c6c2296876c67565a93f37deb8c6b497635f Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Sat, 14 Apr 2012 11:12:05 +0000
Subject: [PATCH] lcl: cleanup TCustomListBox.Create

git-svn-id: trunk@36768 -
---
 lcl/include/customlistbox.inc | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc
index 3475dc385e..7451153909 100644
--- a/lcl/include/customlistbox.inc
+++ b/lcl/include/customlistbox.inc
@@ -527,7 +527,6 @@ end;
 constructor TCustomListBox.Create(TheOwner: TComponent);
 begin
   inherited Create(TheOwner);
-  LockSelectionChange;
   fCompStyle := csListBox;
   BorderStyle:= bsSingle;
   FItems := TExtendedStringList.Create(GetCachedDataSize);
@@ -535,14 +534,13 @@ begin
   FClickOnSelChange:= True;
   FItemIndex:=-1;
   FExtendedSelect := true;
-  FScrollWidth := 0;
+  //FScrollWidth := 0;
   FCanvas := TControlCanvas.Create;
   TControlCanvas(FCanvas).Control := Self;
   ParentColor := false;
   TabStop := true;
   with GetControlClassDefaultSize do
     SetInitialBounds(0, 0, CX, CY);
-  UnlockSelectionChange;
 end;
 
 {------------------------------------------------------------------------------