mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-20 01:29:30 +02:00
TCustomListView: trying to implement OnChanging (Win32):
* add reference to MS documentation of LVN_ITEMCHANGING
This commit is contained in:
parent
f1cea4404f
commit
646f47d2d2
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user