You've already forked lazarus-ccr
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:
@ -7079,7 +7079,6 @@ type
|
||||
R, G, B, A: byte;
|
||||
end;
|
||||
var
|
||||
i: Integer;
|
||||
c: Int32;
|
||||
begin
|
||||
if AText[1] = '#' then AText[1] := '$';
|
||||
|
@ -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
|
||||
|
@ -140,7 +140,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
CommCtrl, LCLType, LCLProc, LCLIntf,
|
||||
LCLType, LCLProc, LCLIntf,
|
||||
Math,
|
||||
JvJCLUtils, JvJVCLUtils;
|
||||
|
||||
|
Reference in New Issue
Block a user