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

VirtualTreeView: fix SetWindowLongPtrW

Browse Source
This commit is contained in:
Martin 2022-01-25 17:10:32 +01:00
parent be48000561
commit 967ec6c4f6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/virtualtreeview/units/win32/laz.virtualpanningwindow.pas
View File

@ -92,7 +92,7 @@ begin
nil, WS_POPUP, X - lSize.CX div 2, Y - lSize.CY div 2, lSize.CX, lSize.CY,
OwnerHandle, 0, HInstance, nil);
//todo use SetWindowLongPtr later
SetWindowLong(FHandle,GWL_USERDATA,PtrInt(Self));
SetWindowLongPtrW(FHandle,GWL_USERDATA,PtrInt(Self));
FImage := TBitmap.Create;
end;