From 03e0cafaf93be93c3aa084758e890ddb6cada021 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Fri, 13 Apr 2012 20:31:58 +0000
Subject: [PATCH] lcl: remove TCustomListBox.Loaded. ItemIndex is initialized
 in InitializeWnd

git-svn-id: trunk@36756 -
---
 lcl/include/customlistbox.inc | 11 -----------
 lcl/stdctrls.pp               |  1 -
 2 files changed, 12 deletions(-)

diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc
index 8a8fdc7fbf..91c51b96b2 100644
--- a/lcl/include/customlistbox.inc
+++ b/lcl/include/customlistbox.inc
@@ -61,17 +61,6 @@ begin
   end;
 end;
 
-procedure TCustomListBox.Loaded;
-begin
-  inherited Loaded;
-  if HandleAllocated then
-  begin
-    LockSelectionChange;
-    SendItemIndex;
-    UnlockSelectionChange;
-  end;
-end;
-
 procedure TCustomListBox.CreateParams(var Params: TCreateParams);
 const
   MultiSelectStyle: array[Boolean] of DWord = (LBS_MULTIPLESEL, LBS_EXTENDEDSEL);
diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index ff2cfcb10f..5dd794c361 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -522,7 +522,6 @@ type
     procedure AssignCacheToItemData(const AIndex: Integer; const AData: Pointer); virtual; // called to restore the itemdata after a handle is created
     procedure BeginAutoDrag; override;
     function CalculateStandardItemHeight: Integer;
-    procedure Loaded; override;
     procedure CreateParams(var Params: TCreateParams); override;
     procedure InitializeWnd; override;
     procedure FinalizeWnd; override;