paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 05:58:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/ListView: Disable editing of virtual list items when multiple items are selected to avoid transferring the edited caption to the wrong node.

Browse Source
This commit is contained in:
wp_xyz 2022-04-13 14:45:03 +02:00
parent c0aa681113
commit 451f75e3ce
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customlistview.inc
View File

@ -333,7 +333,7 @@ begin
DoItemChecked(Item);
// end editing
if FEditor.Visible then
if IsEditing then
HideEditor;
// focus
@ -1222,8 +1222,8 @@ end;
function TCustomListView.CanEdit(Item: TListItem): Boolean;
begin
Result := True;
if Assigned(FOnEditing) then
Result := not (OwnerData and MultiSelect and (SelCount > 1));
if Result and Assigned(FOnEditing) then
FOnEditing(Self, Item, Result);
end;