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

TCustomListView: trying to implement OnChanging (Win32):

Browse Source 
* 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
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32wscustomlistview.inc
View File

@ -311,10 +311,13 @@ var
if Assigned(Item) then if Assigned(Item) then
begin 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 if ALV.CanChange(Item, nm^.uChanged) then
MsgResult := 0 MsgResult := 0 //Ord(BOOL(False))
else else
MsgResult := 1; MsgResult := 1; //Ord(BOOL(True))
end; end;
WinProcess := False; WinProcess := False;
end; end;