Improved zoom handling

- Added TChromium.IncZoomPct procedure to increase the zoom percent value
- Added TChromium.DecZoomPct procedure to decrease the zoom percent value
- Added TChromium.ResetZoomLevel procedure to reset the zoom level value
- Added TChromium.ResetZoomPct procedure to reset the zoom percent value
- Added TChromium.ReadZoom procedure to trigger the TChromium.OnZoomPctAvailable event with the current zoom percent value.
- Added TChromium.OnZoomPctAvailable event.
- Added the new TChromium.OnZoomPctAvailable event to the MiniBrowser demo.

demos/Lazarus/CookieVisitor/CookieVisitor.lps

@@ -4,7 +4,7 @@
     <PathDelim Value="\"/>
     <Version Value="11"/>
     <BuildModes Active="Default"/>
-    <Units Count="4">
+    <Units Count="6">
       <Unit0>
         <Filename Value="CookieVisitor.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -52,128 +52,135 @@
         <CursorPos Y="413"/>
         <UsageCount Value="10"/>
       </Unit3>
+      <Unit4>
+        <Filename Value="..\..\..\source\uCEFChromiumCore.pas"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="40"/>
+        <CursorPos X="3" Y="61"/>
+        <UsageCount Value="10"/>
+      </Unit4>
+      <Unit5>
+        <Filename Value="C:\lazarus\lcl\lcltype.pp"/>
+        <UnitName Value="LCLType"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="54"/>
+        <CursorPos X="3" Y="68"/>
+        <UsageCount Value="10"/>
+      </Unit5>
     </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
+    <JumpHistory Count="28" HistoryIndex="27">
       <Position1>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="356" Column="81" TopLine="334"/>
+        <Caret Line="252" Column="3" TopLine="239"/>
       </Position1>
       <Position2>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="223" TopLine="206"/>
+        <Caret Line="79" Column="67" TopLine="75"/>
       </Position2>
       <Position3>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="251" Column="70" TopLine="234"/>
+        <Caret Line="352" Column="38" TopLine="336"/>
       </Position3>
       <Position4>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="252" Column="3" TopLine="239"/>
+        <Caret Line="41" Column="100" TopLine="29"/>
       </Position4>
       <Position5>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="79" Column="67" TopLine="75"/>
+        <Caret Line="99" Column="40" TopLine="71"/>
       </Position5>
       <Position6>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="352" Column="38" TopLine="336"/>
+        <Caret Line="119" Column="15" TopLine="103"/>
       </Position6>
       <Position7>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="41" Column="100" TopLine="29"/>
+        <Caret Line="191" Column="3" TopLine="182"/>
       </Position7>
       <Position8>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="99" Column="40" TopLine="71"/>
+        <Caret Line="339" Column="60" TopLine="324"/>
       </Position8>
       <Position9>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="119" Column="15" TopLine="103"/>
+        <Caret Line="191" Column="62" TopLine="176"/>
       </Position9>
       <Position10>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="191" Column="3" TopLine="182"/>
+        <Caret Line="120" Column="67" TopLine="106"/>
       </Position10>
       <Position11>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="339" Column="60" TopLine="324"/>
+        <Caret Line="339" Column="31" TopLine="324"/>
       </Position11>
       <Position12>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="191" Column="62" TopLine="176"/>
+        <Caret Line="117" Column="84" TopLine="94"/>
       </Position12>
       <Position13>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="120" Column="67" TopLine="106"/>
+        <Caret Line="115" Column="96" TopLine="95"/>
       </Position13>
       <Position14>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="339" Column="31" TopLine="324"/>
+        <Caret Line="119" Column="87" TopLine="95"/>
       </Position14>
       <Position15>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="117" Column="84" TopLine="94"/>
+        <Caret Line="245" Column="11" TopLine="222"/>
       </Position15>
       <Position16>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="115" Column="96" TopLine="95"/>
+        <Caret Line="340" TopLine="325"/>
       </Position16>
       <Position17>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="119" Column="87" TopLine="95"/>
+        <Caret Line="339" Column="74" TopLine="325"/>
       </Position17>
       <Position18>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="245" Column="11" TopLine="222"/>
+        <Caret Line="216" Column="51" TopLine="202"/>
       </Position18>
       <Position19>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="340" TopLine="325"/>
+        <Caret Line="340" Column="68" TopLine="326"/>
       </Position19>
       <Position20>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="339" Column="74" TopLine="325"/>
+        <Caret Line="121" Column="15" TopLine="109"/>
       </Position20>
       <Position21>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="216" Column="51" TopLine="202"/>
+        <Caret Line="198" Column="5" TopLine="190"/>
       </Position21>
       <Position22>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="340" Column="68" TopLine="326"/>
+        <Caret Line="221" Column="66" TopLine="208"/>
       </Position22>
       <Position23>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="121" Column="15" TopLine="109"/>
+        <Caret Line="198" Column="28" TopLine="178"/>
       </Position23>
       <Position24>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="198" Column="5" TopLine="190"/>
+        <Caret Line="83" Column="72" TopLine="75"/>
       </Position24>
       <Position25>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="221" Column="66" TopLine="208"/>
+        <Caret Line="236" Column="13" TopLine="232"/>
       </Position25>
       <Position26>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="198" Column="28" TopLine="178"/>
+        <Caret Line="66" Column="3" TopLine="37"/>
       </Position26>
       <Position27>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="83" Column="72" TopLine="75"/>
+        <Caret Line="252" Column="9" TopLine="233"/>
       </Position27>
       <Position28>
         <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="236" Column="13" TopLine="232"/>
+        <Caret Line="250" Column="17" TopLine="229"/>
       </Position28>
-      <Position29>
-        <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="66" Column="3" TopLine="37"/>
-      </Position29>
-      <Position30>
-        <Filename Value="uCookieVisitor.pas"/>
-        <Caret Line="252" Column="9" TopLine="233"/>
-      </Position30>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

demos/Lazarus/MiniBrowser/MiniBrowser.lps

@@ -22,13 +22,13 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="369"/>
-        <CursorPos X="98" Y="377"/>
+        <TopLine Value="391"/>
+        <CursorPos X="27" Y="394"/>
         <UsageCount Value="21"/>
         <Bookmarks Count="3">
-          <Item0 Y="819" ID="1"/>
+          <Item0 Y="821" ID="1"/>
           <Item1 X="49" Y="61" ID="2"/>
-          <Item2 X="65" Y="1044" ID="3"/>
+          <Item2 X="65" Y="1046" ID="3"/>
         </Bookmarks>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -98,123 +98,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="388" Column="5" TopLine="364"/>
+        <Caret Line="1228" Column="70" TopLine="1212"/>
       </Position1>
       <Position2>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="988" Column="26" TopLine="969"/>
+        <Caret Line="401" TopLine="396"/>
       </Position2>
       <Position3>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="258" Column="93" TopLine="245"/>
+        <Caret Line="989" Column="44" TopLine="989"/>
       </Position3>
       <Position4>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="288" Column="76" TopLine="276"/>
+        <Caret Line="406" Column="110" TopLine="387"/>
       </Position4>
       <Position5>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1221" Column="70" TopLine="1205"/>
+        <Caret Line="298" Column="62" TopLine="276"/>
       </Position5>
       <Position6>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1228" Column="70" TopLine="1212"/>
+        <Caret Line="794" Column="3" TopLine="780"/>
       </Position6>
       <Position7>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="401" TopLine="396"/>
+        <Caret Line="61" Column="49" TopLine="45"/>
       </Position7>
       <Position8>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="989" Column="44" TopLine="989"/>
+        <Caret Line="794" Column="3" TopLine="779"/>
       </Position8>
       <Position9>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="406" Column="110" TopLine="387"/>
+        <Caret Line="62" Column="46" TopLine="46"/>
       </Position9>
       <Position10>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="298" Column="62" TopLine="276"/>
+        <Caret Line="795" Column="3" TopLine="780"/>
       </Position10>
       <Position11>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="794" Column="3" TopLine="780"/>
+        <Caret Line="266" Column="20" TopLine="255"/>
       </Position11>
       <Position12>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="61" Column="49" TopLine="45"/>
+        <Caret Line="1032" Column="5" TopLine="1018"/>
       </Position12>
       <Position13>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="794" Column="3" TopLine="779"/>
+        <Caret Line="798" TopLine="783"/>
       </Position13>
       <Position14>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="62" Column="46" TopLine="46"/>
+        <Caret Line="1027" Column="28" TopLine="1012"/>
       </Position14>
       <Position15>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="795" Column="3" TopLine="780"/>
+        <Caret Line="806" TopLine="783"/>
       </Position15>
       <Position16>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="266" Column="20" TopLine="255"/>
+        <Caret Line="1035" Column="36" TopLine="1015"/>
       </Position16>
       <Position17>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1032" Column="5" TopLine="1018"/>
+        <Caret Line="62" TopLine="46"/>
       </Position17>
       <Position18>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="798" TopLine="783"/>
+        <Caret Line="798" Column="52" TopLine="783"/>
       </Position18>
       <Position19>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1027" Column="28" TopLine="1012"/>
+        <Caret Line="836" Column="84" TopLine="818"/>
       </Position19>
       <Position20>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="806" TopLine="783"/>
+        <Caret Line="1079" Column="54" TopLine="1055"/>
       </Position20>
       <Position21>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1035" Column="36" TopLine="1015"/>
+        <Caret Line="1157" Column="11" TopLine="1133"/>
       </Position21>
       <Position22>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="62" TopLine="46"/>
+        <Caret Line="1172" Column="75" TopLine="1153"/>
       </Position22>
       <Position23>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="798" Column="52" TopLine="783"/>
+        <Caret Line="1077" Column="74" TopLine="1065"/>
       </Position23>
       <Position24>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="836" Column="84" TopLine="818"/>
+        <Caret Line="749" Column="43" TopLine="735"/>
       </Position24>
       <Position25>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1079" Column="54" TopLine="1055"/>
+        <Caret Line="756" Column="43" TopLine="742"/>
       </Position25>
       <Position26>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1157" Column="11" TopLine="1133"/>
+        <Caret Line="379" Column="98" TopLine="350"/>
       </Position26>
       <Position27>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1172" Column="75" TopLine="1153"/>
+        <Caret Line="1130" Column="58" TopLine="1115"/>
       </Position27>
       <Position28>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="1077" Column="74" TopLine="1065"/>
+        <Caret Line="818" TopLine="813"/>
       </Position28>
       <Position29>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="749" Column="43" TopLine="735"/>
+        <Caret Line="395" Column="27" TopLine="393"/>
       </Position29>
       <Position30>
         <Filename Value="uMiniBrowser.pas"/>
-        <Caret Line="756" Column="43" TopLine="742"/>
+        <Caret Line="237" TopLine="223"/>
       </Position30>
     </JumpHistory>
     <RunParams>

demos/Lazarus/MiniBrowser/uMiniBrowser.lfm

@@ -245,6 +245,7 @@ object MiniBrowserFrm: TMiniBrowserFrm
     OnNavigationVisitorResultAvailable = Chromium1NavigationVisitorResultAvailable
     OnDownloadImageFinished = Chromium1DownloadImageFinished
     OnCookiesFlushed = Chromium1CookiesFlushed
+    OnZoomPctAvailable = Chromium1ZoomPctAvailable
     OnRenderCompMsg = Chromium1RenderCompMsg
     OnLoadEnd = Chromium1LoadEnd
     OnLoadError = Chromium1LoadError

demos/Lazarus/MiniBrowser/uMiniBrowser.pas

@@ -135,6 +135,8 @@ type
     procedure Chromium1CookiesFlushed(Sender: TObject);
     procedure Chromium1DownloadImageFinished(Sender: TObject;
       const imageUrl: ustring; httpStatusCode: Integer; const image: ICefImage);
+    procedure Chromium1ZoomPctAvailable(Sender: TObject; const aZoomPct: double
+      );
     procedure FormShow(Sender: TObject);
     procedure BackBtnClick(Sender: TObject);
     procedure ForwardBtnClick(Sender: TObject);
@@ -389,7 +391,7 @@ end;
 
 procedure TMiniBrowserFrm.Resetzoom1Click(Sender: TObject);
 begin
-  Chromium1.ResetZoomStep;
+  Chromium1.ResetZoomLevel;
 end;
 
 procedure TMiniBrowserFrm.Resolvehost1Click(Sender: TObject);
@@ -1116,6 +1118,12 @@ begin
   end;
 end;
 
+procedure TMiniBrowserFrm.Chromium1ZoomPctAvailable(Sender: TObject;
+  const aZoomPct: double);
+begin
+  ShowStatusText('Zoom : ' + floattostr(aZoomPct) + '%');
+end;
+
 procedure TMiniBrowserFrm.Timer1Timer(Sender: TObject);
 begin
   Timer1.Enabled := False;