pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix 64-bit issues with the new Jv*Viewer components (patch by Michal Gawrycki, issue #34104)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6579 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-08-10 07:17:58 +00:00
parent 1da8569c84
commit c1d593b600
6 changed files with 41 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jvcllaz/run/JvCustomControls/JvCustomItemViewer.pas
View File

@ -946,7 +946,7 @@ begin
BeginUpdate;
try
for I := 0 to Count - 1 do
if (Integer(Items[I]) <> Msg.LParam) and
if (PtrInt(Items[I]) <> Msg.LParam) and
(cdsSelected in Items[I].State) then
Items[I].State := Items[I].State - [cdsSelected];
finally

2
components/jvcllaz/run/JvCustomControls/JvImageListViewer.pas
View File

@ -140,7 +140,7 @@ type
implementation
uses
CommCtrl, LCLType, LCLProc, LCLIntf,
LCLType, LCLProc, LCLIntf,
Math,
JvJCLUtils, JvJVCLUtils;