From 23762136b6f8f648d6b79957daaf09cd94aeda79 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 6 Jan 2013 12:53:48 +0000
Subject: [PATCH] LCL: published TListBox.ItemIndex, TCheckListBox.ItemIndex

git-svn-id: trunk@39779 -
---
 lcl/checklst.pas | 1 +
 lcl/stdctrls.pp  | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/checklst.pas b/lcl/checklst.pas
index 1b45c9a0a2..d62ee8ee18 100644
--- a/lcl/checklst.pas
+++ b/lcl/checklst.pas
@@ -109,6 +109,7 @@ type
     property IntegralHeight;
     property Items;
     property ItemHeight;
+    property ItemIndex;
     property MultiSelect;
     property OnChangeBounds;
     property OnClick;
diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index ad732eb509..e29b84c79e 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -578,7 +578,7 @@ type
     property Font;
     property IntegralHeight: boolean read FIntegralHeight write FIntegralHeight default False; // not implemented
     property ItemHeight: Integer read GetItemHeight write SetItemHeight;
-    property ItemIndex: integer read GetItemIndex write SetItemIndex;
+    property ItemIndex: integer read GetItemIndex write SetItemIndex default -1;
     property Items: TStrings read FItems write SetItems;
     property MultiSelect: boolean read FMultiSelect write SetMultiSelect default False;
     property OnChangeBounds;
@@ -642,6 +642,7 @@ type
     property IntegralHeight;
     property Items;
     property ItemHeight;
+    property ItemIndex;
     property MultiSelect;
     property OnChangeBounds;
     property OnClick;