From 0b5e5f6a0c35f7fa94225449c7d83f165aa8b7b8 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 10 Apr 2012 18:21:22 +0000
Subject: [PATCH] lcl: fixed function result

git-svn-id: trunk@36712 -
---
 lcl/include/listitem.inc | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lcl/include/listitem.inc b/lcl/include/listitem.inc
index c349835fc5..ebb022c3af 100644
--- a/lcl/include/listitem.inc
+++ b/lcl/include/listitem.inc
@@ -380,8 +380,10 @@ begin
   LV := FOwner.FOwner;
   LV.Selected := Nil;           // First clear all selections,
   LV.Selected := Self;          // then set this item as the only selected.
-  if not LV.ReadOnly and Assigned(LV.FEditor) then
-    LV.ShowEditor;
+  if LV.ReadOnly or (LV.FEditor=nil) then
+    exit(false);
+  LV.ShowEditor;
+  Result:=true;
 end;
 
 {------------------------------------------------------------------------------}