From 306e5ea3d4343c501e2c5076052091a9dddf714f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 16 Jan 2009 17:19:52 +0000
Subject: [PATCH] OI: clearing combobox items on error

git-svn-id: trunk@18308 -
---
 ideintf/objectinspector.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ideintf/objectinspector.pp b/ideintf/objectinspector.pp
index 0b834b76c0..823a57176d 100644
--- a/ideintf/objectinspector.pp
+++ b/ideintf/objectinspector.pp
@@ -942,13 +942,13 @@ begin
         ValueComboBox.Items.Assign(FNewComboBoxItems);
       end;
       //debugln('TOICustomPropertyGrid.FillComboboxItems "',FNewComboBoxItems.Text,'" Cur="',ValueComboBox.Items.Text,'" ValueComboBox.Items.Count=',dbgs(ValueComboBox.Items.Count));
-      FreeAndNil(FNewComboBoxItems);
     end else begin
       ValueComboBox.Items.Text:='';
       ValueComboBox.Items.Clear;
       //debugln('TOICustomPropertyGrid.FillComboboxItems FNewComboBoxItems=nil Cur="',ValueComboBox.Items.Text,'" ValueComboBox.Items.Count=',dbgs(ValueComboBox.Items.Count));
     end;
   finally
+    FreeAndNil(FNewComboBoxItems);
     ValueComboBox.Items.EndUpdate;
     if ExcludeUpdateFlag then
       Exclude(FStates,pgsUpdatingEditControl);