From 1d750fac102f7094a4893b4d52f4c5ed4b41645f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Salvador=20D=C3=ADaz=20Fau?= Date: Fri, 8 May 2020 17:47:49 +0200 Subject: [PATCH] Compatibility fix for D7 --- source/uCEFChromiumCore.pas | 5 ++++- update_CEF4Delphi.json | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/source/uCEFChromiumCore.pas b/source/uCEFChromiumCore.pas index a3946368..4e5f176e 100644 --- a/source/uCEFChromiumCore.pas +++ b/source/uCEFChromiumCore.pas @@ -6093,7 +6093,10 @@ begin while (i < Count) do if (TBrowserInfo(Items[i]).ID = aID) then - exit(i) + begin + Result := i; + exit; + end else inc(i); diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json index 89afc513..aa5f25bd 100644 --- a/update_CEF4Delphi.json +++ b/update_CEF4Delphi.json @@ -2,7 +2,7 @@ "UpdateLazPackages" : [ { "ForceNotify" : true, - "InternalVersion" : 133, + "InternalVersion" : 134, "Name" : "cef4delphi_lazarus.lpk", "Version" : "81.3.2.0" }