paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 11:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fixed function result

Browse Source 
git-svn-id: trunk@36712 -
This commit is contained in:
mattias 2012-04-10 18:21:22 +00:00
parent c5accacd74
commit 0b5e5f6a0c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/listitem.inc
View File

@ -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;
{------------------------------------------------------------------------------}