TCustomListView: trying to implement OnChanging (Win32):

* add reference to MS documentation of LVN_ITEMCHANGING
This commit is contained in:
Bart 2024-01-05 19:10:52 +01:00
parent f1cea4404f
commit 646f47d2d2

View File

@ -311,10 +311,13 @@ var
if Assigned(Item) then
begin
//https://learn.microsoft.com/en-us/windows/win32/controls/lvn-itemchanging
//Returns TRUE to prevent the change, or FALSE to allow the change
//So the opposite of the result of CanChange function
if ALV.CanChange(Item, nm^.uChanged) then
MsgResult := 0
MsgResult := 0 //Ord(BOOL(False))
else
MsgResult := 1;
MsgResult := 1; //Ord(BOOL(True))
end;
WinProcess := False;
end;