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

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

View File

@ -7079,7 +7079,6 @@ type
R, G, B, A: byte;
end;
var
i: Integer;
c: Int32;
begin
if AText[1] = '#' then AText[1] := '$';

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

View File

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