pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-17 06:57:13 +02:00
Code Issues Actions Releases Activity

Added TBufferPanel.OnMouseEnter and TBufferPanel.OnMouseLeave on Lazarus

Browse Source 
Fixed building in Windows
Issue #337 : First implementation. It's incomplete.
This commit is contained in:
Salvador Diaz Fau 2021-02-08 10:28:36 +01:00
parent a1f3e133ed
commit e45839bb90
17 changed files with 881 additions and 293 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
demos/Lazarus_Linux/ExternalPumpBrowser/ExternalPumpBrowser.lps
View File

@ -3,7 +3,7 @@
<ProjectSession> <ProjectSession>
<Version Value="11"/> <Version Value="11"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="58"> <Units Count="60">
<Unit0> <Unit0>
<Filename Value="ExternalPumpBrowser.lpr"/> <Filename Value="ExternalPumpBrowser.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -20,7 +20,7 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="235"/> <TopLine Value="235"/>
<CursorPos X="6" Y="271"/> <CursorPos X="49" Y="264"/>
<UsageCount Value="49"/> <UsageCount Value="49"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 Y="273" ID="3"/> <Item0 Y="273" ID="3"/>
@ -167,8 +167,8 @@
<Filename Value="/usr/share/lazarus/2.0.10/lcl/controls.pp"/> <Filename Value="/usr/share/lazarus/2.0.10/lcl/controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1958"/> <TopLine Value="1137"/>
<CursorPos X="3" Y="1981"/> <CursorPos X="13" Y="1158"/>
<UsageCount Value="14"/> <UsageCount Value="14"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
@ -432,6 +432,20 @@
<CursorPos Y="234"/> <CursorPos Y="234"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit57> </Unit57>
<Unit58>
<Filename Value="../../../source/uCEFBufferPanel.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="37"/>
<UsageCount Value="10"/>
</Unit58>
<Unit59>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/extctrls.pp"/>
<UnitName Value="ExtCtrls"/>
<EditorIndex Value="-1"/>
<TopLine Value="1023"/>
<CursorPos X="3" Y="1046"/>
<UsageCount Value="10"/>
</Unit59>
</Units> </Units>
<JumpHistory Count="13" HistoryIndex="12"> <JumpHistory Count="13" HistoryIndex="12">
<Position1> <Position1>

9
demos/Lazarus_Linux/MiniBrowser/MiniBrowser.lpi
View File

@ -25,13 +25,16 @@
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="0"/> <Modes Count="0"/>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="3">
<Item1> <Item1>
<PackageName Value="CEF4Delphi_Lazarus"/> <PackageName Value="Printer4Lazarus"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="LCL"/> <PackageName Value="CEF4Delphi_Lazarus"/>
</Item2> </Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
</RequiredPackages> </RequiredPackages>
<Units Count="3"> <Units Count="3">
<Unit0> <Unit0>

2
demos/Lazarus_Linux/MiniBrowser/MiniBrowser.lpr
View File

@ -44,7 +44,7 @@ uses
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, uMiniBrowser Forms, printer4lazarus, uMiniBrowser
{ you can add units after this }, { you can add units after this },
uCEFApplication; uCEFApplication;

441
demos/Lazarus_Linux/MiniBrowser/MiniBrowser.lps
View File

@ -3,15 +3,14 @@
<ProjectSession> <ProjectSession>
<Version Value="11"/> <Version Value="11"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="13"> <Units Count="48">
<Unit0> <Unit0>
<Filename Value="MiniBrowser.lpr"/> <Filename Value="MiniBrowser.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="-1"/>
<TopLine Value="26"/> <TopLine Value="26"/>
<CursorPos X="62" Y="52"/> <CursorPos X="62" Y="52"/>
<UsageCount Value="22"/> <UsageCount Value="33"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="uMiniBrowser.pas"/> <Filename Value="uMiniBrowser.pas"/>
@ -20,10 +19,15 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="168"/> <TopLine Value="780"/>
<CursorPos X="52" Y="196"/> <CursorPos X="3" Y="782"/>
<FoldState Value=" TJmA1{32 pjZlg1@311]B8qW1JF"/> <FoldState Value=" TJnR1{3122{"/>
<UsageCount Value="22"/> <UsageCount Value="33"/>
<Bookmarks Count="3">
<Item0 X="66" Y="1049" ID="1"/>
<Item1 Y="936" ID="9"/>
<Item2 X="12" Y="618" ID="8"/>
</Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@ -33,7 +37,7 @@
<UnitName Value="Interfaces"/> <UnitName Value="Interfaces"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="11" Y="9"/> <CursorPos X="11" Y="9"/>
<UsageCount Value="22"/> <UsageCount Value="33"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="uminibrowser.pas"/> <Filename Value="uminibrowser.pas"/>
@ -44,21 +48,21 @@
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="29"/> <TopLine Value="29"/>
<CursorPos X="45" Y="36"/> <CursorPos X="45" Y="36"/>
<UsageCount Value="20"/> <UsageCount Value="19"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/include/winapi.inc"/> <Filename Value="/usr/share/lazarus/2.0.10/lcl/include/winapi.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="306"/> <TopLine Value="306"/>
<CursorPos Y="329"/> <CursorPos Y="329"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/include/application.inc"/> <Filename Value="/usr/share/lazarus/2.0.10/lcl/include/application.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="420"/> <TopLine Value="420"/>
<CursorPos Y="439"/> <CursorPos Y="439"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/forms.pp"/> <Filename Value="/usr/share/lazarus/2.0.10/lcl/forms.pp"/>
@ -66,84 +70,431 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1462"/> <TopLine Value="1462"/>
<CursorPos X="25" Y="1499"/> <CursorPos X="25" Y="1499"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="../../../source/uCEFChromium.pas"/> <Filename Value="../../../source/uCEFChromium.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="130"/> <TopLine Value="183"/>
<CursorPos X="3" Y="146"/> <CursorPos X="68" Y="201"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
<Bookmarks Count="1">
<Item0 Y="198" ID="9"/>
</Bookmarks>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="../../../source/uCEFMiscFunctions.pas"/> <Filename Value="../../../source/uCEFMiscFunctions.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="780"/> <TopLine Value="700"/>
<CursorPos X="70" Y="807"/> <CursorPos X="77" Y="725"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
<Bookmarks Count="1">
<Item0 X="68" Y="793" ID="2"/>
</Bookmarks>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="../../../source/uCEFChromiumCore.pas"/> <Filename Value="../../../source/uCEFChromiumCore.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1950"/> <TopLine Value="728"/>
<CursorPos X="71" Y="1975"/> <CursorPos X="32" Y="735"/>
<UsageCount Value="10"/> <UsageCount Value="12"/>
<Bookmarks Count="1"> <Bookmarks Count="5">
<Item0 X="56" Y="1966" ID="1"/> <Item0 X="7" Y="59" ID="3"/>
<Item1 X="35" Y="1230" ID="4"/>
<Item2 X="3" Y="2733" ID="8"/>
<Item3 Y="4621" ID="7"/>
<Item4 X="37" Y="6383" ID="6"/>
</Bookmarks> </Bookmarks>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="/usr/share/fpcsrc/3.2.0/packages/gtk2/src/gtk+/gtk/gtkwidget.inc"/> <Filename Value="/usr/share/fpcsrc/3.2.0/packages/gtk2/src/gtk+/gtk/gtkwidget.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="82"/> <CursorPos X="20"/>
<CursorPos X="9" Y="105"/> <UsageCount Value="9"/>
<UsageCount Value="10"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="../../../source/uCEFTypes.pas"/> <Filename Value="../../../source/uCEFTypes.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1228"/> <TopLine Value="505"/>
<CursorPos X="53" Y="1251"/> <CursorPos X="9" Y="528"/>
<UsageCount Value="10"/> <UsageCount Value="11"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="../../../source/uCEFApplicationCore.pas"/> <Filename Value="../../../source/uCEFApplicationCore.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="7"/>
<TopLine Value="220"/> <TopLine Value="545"/>
<UsageCount Value="10"/> <CursorPos Y="570"/>
<UsageCount Value="15"/>
<Loaded Value="True"/>
</Unit12> </Unit12>
<Unit13>
<Filename Value="../../../source/uCEFLibFunctions.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="316"/>
<CursorPos X="3" Y="356"/>
<UsageCount Value="10"/>
</Unit13>
<Unit14>
<Filename Value="/usr/share/lazarus/2.0.10/components/opengl/glgtkglxcontext.pas"/>
<UnitName Value="GLGtkGlxContext"/>
<EditorIndex Value="-1"/>
<CursorPos X="56" Y="24"/>
<UsageCount Value="10"/>
</Unit14>
<Unit15>
<Filename Value="/usr/share/fpcsrc/3.2.0/packages/gtk2/src/gtk2x11/include/gdkx.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="18"/>
<CursorPos X="10" Y="41"/>
<UsageCount Value="10"/>
</Unit15>
<Unit16>
<Filename Value="/usr/share/fpcsrc/3.2.0/packages/gtk2/src/gtk2x11/include/gdk2x11includes.inc"/>
<EditorIndex Value="-1"/>
<CursorPos X="5" Y="12"/>
<UsageCount Value="10"/>
</Unit16>
<Unit17>
<Filename Value="/usr/share/fpcsrc/3.2.0/packages/gtk2/src/gtk2x11/gdk2x.pas"/>
<EditorIndex Value="-1"/>
<CursorPos X="11" Y="16"/>
<UsageCount Value="10"/>
</Unit17>
<Unit18>
<Filename Value="../../../source/uCEFLinuxTypes.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="16"/>
<CursorPos X="42" Y="40"/>
<UsageCount Value="10"/>
</Unit18>
<Unit19>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas"/>
<UnitName Value="LazGtk3"/>
<EditorIndex Value="2"/>
<TopLine Value="12147"/>
<CursorPos X="10" Y="12129"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit19>
<Unit20>
<Filename Value="../../../source/uCEFLinuxFunctions.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="40"/>
<CursorPos Y="73"/>
<UsageCount Value="10"/>
</Unit20>
<Unit21>
<Filename Value="/usr/share/fpcsrc/3.2.0/packages/gtk1/src/gdk/gdkx.pp"/>
<EditorIndex Value="-1"/>
<CursorPos X="67" Y="15"/>
<UsageCount Value="10"/>
</Unit21>
<Unit22>
<Filename Value="/usr/share/fpcsrc/3.2.0/packages/gtk1/src/gdk/gdkprivate.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="13"/>
<CursorPos X="6" Y="11"/>
<UsageCount Value="9"/>
</Unit22>
<Unit23>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/interfaces/gtk/gtk1extra.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="276"/>
<CursorPos X="57" Y="279"/>
<UsageCount Value="9"/>
</Unit23>
<Unit24>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/interfaces/gtk/gtkwinapi.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="6852"/>
<CursorPos X="48" Y="6875"/>
<UsageCount Value="9"/>
</Unit24>
<Unit25>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/interfaces/gtk/gtkproc.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="763"/>
<CursorPos X="36" Y="779"/>
<UsageCount Value="9"/>
</Unit25>
<Unit26>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/interfaces/gtk2/gtk2proc.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="714"/>
<CursorPos X="18" Y="730"/>
<UsageCount Value="9"/>
</Unit26>
<Unit27>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/interfaces/gtk/gtk1extrah.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="36"/>
<CursorPos X="48" Y="59"/>
<UsageCount Value="9"/>
</Unit27>
<Unit28>
<Filename Value="/usr/share/fpcsrc/3.2.0/packages/gtk2/src/gtk+/gdk/gdkdrawable.inc"/>
<EditorIndex Value="-1"/>
<CursorPos X="4" Y="10"/>
<UsageCount Value="9"/>
</Unit28>
<Unit29>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/interfaces/gtk2/gtk2trayicon.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="144"/>
<CursorPos X="54" Y="167"/>
<UsageCount Value="9"/>
</Unit29>
<Unit30>
<Filename Value="../../../source/uCEFLinkedWindowParent.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="146"/>
<UsageCount Value="9"/>
</Unit30>
<Unit31>
<Filename Value="../../../source/uCEFFMXChromium.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="171"/>
<CursorPos X="42" Y="191"/>
<UsageCount Value="9"/>
</Unit31>
<Unit32>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/controls.pp"/>
<UnitName Value="Controls"/>
<EditorIndex Value="-1"/>
<TopLine Value="2312"/>
<CursorPos X="14" Y="2333"/>
<UsageCount Value="9"/>
</Unit32>
<Unit33>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/include/wincontrol.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="7414"/>
<CursorPos X="3" Y="7435"/>
<UsageCount Value="9"/>
</Unit33>
<Unit34>
<Filename Value="/usr/share/fpcsrc/3.2.0/packages/x11/src/xlib.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="110"/>
<CursorPos X="4" Y="133"/>
<UsageCount Value="9"/>
</Unit34>
<Unit35>
<Filename Value="../../../source/uCEFTask.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="639"/>
<CursorPos Y="683"/>
<UsageCount Value="9"/>
</Unit35>
<Unit36>
<Filename Value="../../../source/uCEFInterfaces.pas"/>
<EditorIndex Value="5"/>
<TopLine Value="2274"/>
<CursorPos X="53" Y="2312"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit36>
<Unit37>
<Filename Value="../../../source/uCEFPrintHandler.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="31"/>
<UsageCount Value="12"/>
</Unit37>
<Unit38>
<Filename Value="../../../source/uCEFPrintDialogCallback.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="19"/>
<UsageCount Value="12"/>
</Unit38>
<Unit39>
<Filename Value="../../../source/uCEFPrintSettings.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="38"/>
<CursorPos X="63" Y="70"/>
<UsageCount Value="12"/>
</Unit39>
<Unit40>
<Filename Value="../../../source/uCEFPrintJobCallback.pas"/>
<EditorIndex Value="6"/>
<TopLine Value="22"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit40>
<Unit41>
<Filename Value="../../../source/uCEFPDFPrintOptions.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="58"/>
<CursorPos X="3" Y="60"/>
<UsageCount Value="11"/>
</Unit41>
<Unit42>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/printers.pas"/>
<UnitName Value="Printers"/>
<EditorIndex Value="1"/>
<TopLine Value="270"/>
<CursorPos X="23" Y="303"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit42>
<Unit43>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/graphics.pp"/>
<UnitName Value="Graphics"/>
<EditorIndex Value="-1"/>
<TopLine Value="940"/>
<CursorPos X="3" Y="966"/>
<UsageCount Value="10"/>
</Unit43>
<Unit44>
<Filename Value="../../../source/uCEFProcessMessage.pas"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit44>
<Unit45>
<Filename Value="/usr/share/lazarus/2.0.10/components/printers/printersdlgs.pp"/>
<UnitName Value="PrintersDlgs"/>
<EditorIndex Value="3"/>
<TopLine Value="90"/>
<CursorPos X="14" Y="128"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit45>
<Unit46>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/dialogs.pp"/>
<UnitName Value="Dialogs"/>
<EditorIndex Value="4"/>
<TopLine Value="936"/>
<CursorPos X="3" Y="961"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit46>
<Unit47>
<Filename Value="/usr/share/fpcsrc/3.2.0/packages/gtk1/src/glib/glib.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="641"/>
<CursorPos X="16" Y="668"/>
<UsageCount Value="10"/>
</Unit47>
</Units> </Units>
<OtherDefines Count="1"> <OtherDefines Count="1">
<Define0 Value="UseCThreads"/> <Define0 Value="UseCThreads"/>
</OtherDefines> </OtherDefines>
<JumpHistory Count="6" HistoryIndex="5"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="uMiniBrowser.pas"/> <Filename Value="uMiniBrowser.pas"/>
<Caret Line="865" TopLine="829"/> <Caret Line="932" Column="22" TopLine="909"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="uMiniBrowser.pas"/> <Filename Value="uMiniBrowser.pas"/>
<Caret Line="158" Column="15" TopLine="137"/> <Caret Line="935" Column="57" TopLine="909"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="uMiniBrowser.pas"/> <Filename Value="uMiniBrowser.pas"/>
<Caret Line="863" Column="3" TopLine="829"/> <Caret Line="59" Column="5" TopLine="33"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="uMiniBrowser.pas"/> <Filename Value="/usr/share/lazarus/2.0.10/components/printers/printersdlgs.pp"/>
<Caret Line="849" Column="74" TopLine="829"/> <Caret Line="114" Column="3" TopLine="82"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="uMiniBrowser.pas"/> <Filename Value="/usr/share/lazarus/2.0.10/lcl/dialogs.pp"/>
<Caret Line="222" Column="47" TopLine="210"/> <Caret Line="506" Column="3" TopLine="492"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="uMiniBrowser.pas"/> <Filename Value="uMiniBrowser.pas"/>
<Caret Line="352" TopLine="188"/> <Caret Line="59" Column="5" TopLine="33"/>
</Position6> </Position6>
<Position7>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="938" Column="50" TopLine="904"/>
</Position7>
<Position8>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="940" Column="82" TopLine="904"/>
</Position8>
<Position9>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="1037" TopLine="1001"/>
</Position9>
<Position10>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="945" Column="9" TopLine="919"/>
</Position10>
<Position11>
<Filename Value="/usr/share/lazarus/2.0.10/components/printers/printersdlgs.pp"/>
<Caret Line="128" Column="14" TopLine="102"/>
</Position11>
<Position12>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/dialogs.pp"/>
<Caret Line="506" Column="3" TopLine="486"/>
</Position12>
<Position13>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="945" Column="9" TopLine="919"/>
</Position13>
<Position14>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="1028" Column="25" TopLine="1008"/>
</Position14>
<Position15>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="927" Column="16" TopLine="904"/>
</Position15>
<Position16>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="1038" TopLine="1010"/>
</Position16>
<Position17>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="976" Column="57" TopLine="936"/>
</Position17>
<Position18>
<Filename Value="/usr/share/lazarus/2.0.10/components/printers/printersdlgs.pp"/>
<Caret Line="128" Column="14" TopLine="102"/>
</Position18>
<Position19>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/dialogs.pp"/>
<Caret Line="518" Column="25" TopLine="489"/>
</Position19>
<Position20>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/dialogs.pp"/>
<Caret Line="961" Column="3" TopLine="936"/>
</Position20>
<Position21>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="976" Column="57" TopLine="936"/>
</Position21>
<Position22>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="620" Column="7" TopLine="573"/>
</Position22>
<Position23>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="979" Column="54" TopLine="915"/>
</Position23>
<Position24>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="1089" Column="53" TopLine="1053"/>
</Position24>
<Position25>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="620" Column="48" TopLine="614"/>
</Position25>
<Position26>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="54" Column="84" TopLine="22"/>
</Position26>
<Position27>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/printers.pas"/>
</Position27>
<Position28>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="54" Column="84" TopLine="22"/>
</Position28>
<Position29>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="624" TopLine="576"/>
</Position29>
<Position30>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="436" Column="74" TopLine="413"/>
</Position30>
</JumpHistory> </JumpHistory>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>

9
demos/Lazarus_Linux/MiniBrowser/uMiniBrowser.lfm
View File

@ -236,6 +236,7 @@ object MiniBrowserFrm: TMiniBrowserFrm
OnAddressChange = Chromium1AddressChange OnAddressChange = Chromium1AddressChange
OnTitleChange = Chromium1TitleChange OnTitleChange = Chromium1TitleChange
OnStatusMessage = Chromium1StatusMessage OnStatusMessage = Chromium1StatusMessage
OnJsdialog = Chromium1Jsdialog
OnAfterCreated = Chromium1AfterCreated OnAfterCreated = Chromium1AfterCreated
OnBeforeClose = Chromium1BeforeClose OnBeforeClose = Chromium1BeforeClose
OnClose = Chromium1Close OnClose = Chromium1Close
@ -270,12 +271,10 @@ object MiniBrowserFrm: TMiniBrowserFrm
end end
object Print1: TMenuItem object Print1: TMenuItem
Caption = 'Print' Caption = 'Print'
Enabled = False
OnClick = Print1Click OnClick = Print1Click
end end
object PrintinPDF1: TMenuItem object PrintinPDF1: TMenuItem
Caption = 'Print to PDF' Caption = 'Print to PDF'
Enabled = False
OnClick = PrintinPDF1Click OnClick = PrintinPDF1Click
end end
object N3: TMenuItem object N3: TMenuItem
@ -313,4 +312,10 @@ object MiniBrowserFrm: TMiniBrowserFrm
Left = 32 Left = 32
Top = 344 Top = 344
end end
object PrintDialog1: TPrintDialog
FromPage = 1
ToPage = 1
Left = 32
Top = 416
end
end end

251
demos/Lazarus_Linux/MiniBrowser/uMiniBrowser.pas
View File

@ -45,7 +45,7 @@ interface
uses uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
Menus, ComCtrls, SyncObjs, LMessages, Menus, ComCtrls, SyncObjs, LMessages, Printers, PrintersDlgs,
uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFTypes, uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFTypes,
uCEFConstants, uCEFWinControl, uCEFChromiumEvents, uCEFLinkedWindowParent; uCEFConstants, uCEFWinControl, uCEFChromiumEvents, uCEFLinkedWindowParent;
@ -56,6 +56,7 @@ type
HideDevTools1: TMenuItem; HideDevTools1: TMenuItem;
NavControlPnl: TPanel; NavControlPnl: TPanel;
NavButtonPnl: TPanel; NavButtonPnl: TPanel;
PrintDialog1: TPrintDialog;
StatusBar1: TStatusBar; StatusBar1: TStatusBar;
URLEditPnl: TPanel; URLEditPnl: TPanel;
BackBtn: TButton; BackBtn: TButton;
@ -89,6 +90,7 @@ type
procedure Chromium1BeforeClose(Sender: TObject; const browser: ICefBrowser); procedure Chromium1BeforeClose(Sender: TObject; const browser: ICefBrowser);
procedure Chromium1BeforePluginLoad(Sender: TObject; const mimeType, pluginUrl: ustring; isMainFrame: boolean; const topOriginUrl: ustring; const pluginInfo: ICefWebPluginInfo; var pluginPolicy: TCefPluginPolicy; var aResult: boolean); procedure Chromium1BeforePluginLoad(Sender: TObject; const mimeType, pluginUrl: ustring; isMainFrame: boolean; const topOriginUrl: ustring; const pluginInfo: ICefWebPluginInfo; var pluginPolicy: TCefPluginPolicy; var aResult: boolean);
procedure Chromium1GotFocus(Sender: TObject; const browser: ICefBrowser); procedure Chromium1GotFocus(Sender: TObject; const browser: ICefBrowser);
procedure Chromium1Jsdialog(Sender: TObject; const browser: ICefBrowser; const originUrl: ustring; dialogType: TCefJsDialogType; const messageText, defaultPromptText: ustring; const callback: ICefJsDialogCallback; out suppressMessage: Boolean; out Result: Boolean);
procedure Chromium1LoadingStateChange(Sender: TObject; const browser: ICefBrowser; isLoading, canGoBack, canGoForward: Boolean); procedure Chromium1LoadingStateChange(Sender: TObject; const browser: ICefBrowser; isLoading, canGoBack, canGoForward: Boolean);
procedure Chromium1TitleChange(Sender: TObject; const browser: ICefBrowser; const title: ustring); procedure Chromium1TitleChange(Sender: TObject; const browser: ICefBrowser; const title: ustring);
procedure Chromium1AddressChange(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const url: ustring); procedure Chromium1AddressChange(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const url: ustring);
@ -140,6 +142,13 @@ type
FBrowserStatusText : string; FBrowserStatusText : string;
FBrowserTitle : string; FBrowserTitle : string;
FPrintJobCallback : ICefPrintJobCallback;
FPrintJobDocumentName : ustring;
FPrintJobPDFFilePath : ustring;
FPrintDialogCallback : ICefPrintDialogCallback;
FPrintDialogHasSelection : boolean;
procedure SetBrowserAddress(const aValue : string); procedure SetBrowserAddress(const aValue : string);
procedure SetBrowserIsLoading(aValue : boolean); procedure SetBrowserIsLoading(aValue : boolean);
procedure SetBrowserCanGoBack(aValue : boolean); procedure SetBrowserCanGoBack(aValue : boolean);
@ -174,6 +183,10 @@ type
procedure BrowserShowDevToolsMsg(Data: PtrInt); procedure BrowserShowDevToolsMsg(Data: PtrInt);
procedure BrowserHideDevToolsMsg(Data: PtrInt); procedure BrowserHideDevToolsMsg(Data: PtrInt);
procedure BrowserPrintPDFEndMsg(Data: PtrInt); procedure BrowserPrintPDFEndMsg(Data: PtrInt);
procedure BrowserShowPrintDlgMsg(Data: PtrInt);
procedure BrowserPrintJobStartedMsg(Data: PtrInt);
procedure BrowserPrintStartMsg(Data: PtrInt);
procedure BrowserPrintResetMsg(Data: PtrInt);
property BrowserAddress : string read GetBrowserAddress write SetBrowserAddress; property BrowserAddress : string read GetBrowserAddress write SetBrowserAddress;
property BrowserIsLoading : boolean read GetBrowserIsLoading write SetBrowserIsLoading; property BrowserIsLoading : boolean read GetBrowserIsLoading write SetBrowserIsLoading;
@ -181,6 +194,12 @@ type
property BrowserCanGoForward : boolean read GetBrowserCanGoForward write SetBrowserCanGoForward; property BrowserCanGoForward : boolean read GetBrowserCanGoForward write SetBrowserCanGoForward;
property BrowserStatusText : string read GetBrowserStatusText write SetBrowserStatusText; property BrowserStatusText : string read GetBrowserStatusText write SetBrowserStatusText;
property BrowserTitle : string read GetBrowserTitle write SetBrowserTitle; property BrowserTitle : string read GetBrowserTitle write SetBrowserTitle;
public
procedure HandlePrintStart(const browser: ICefBrowser);
procedure HandlePrintSettings(const browser: ICefBrowser; const settings: ICefPrintSettings; getDefaults: boolean);
procedure HandlePrintDialog(const browser: ICefBrowser; hasSelection: boolean; const callback: ICefPrintDialogCallback; var aResult : boolean);
procedure HandlePrintJob(const browser: ICefBrowser; const documentName, PDFFilePath: ustring; const callback: ICefPrintJobCallback; var aResult : boolean);
procedure HandlePrintReset(const browser: ICefBrowser);
end; end;
var var
@ -193,7 +212,7 @@ implementation
{$R *.lfm} {$R *.lfm}
uses uses
uCEFMiscFunctions, uCefClient, uCEFLinuxConstants; uCEFMiscFunctions, uCefClient, uCEFLinuxConstants, uCEFPrintSettings;
const const
CEF_UPDATEADDRESS = 1; CEF_UPDATEADDRESS = 1;
@ -203,6 +222,10 @@ const
CEF_SHOWDEVTOOLS = 5; CEF_SHOWDEVTOOLS = 5;
CEF_HIDEDEVTOOLS = 6; CEF_HIDEDEVTOOLS = 6;
CEF_PDFPRINTEND = 7; CEF_PDFPRINTEND = 7;
CEF_SHOWPRINTDIALOG = 8;
CEF_PRINTJOBSTARTED = 9;
CEF_PRINTSTART = 10;
CEF_PRINTRESET = 11;
MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS = MENU_ID_USER_FIRST + 1; MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS = MENU_ID_USER_FIRST + 1;
MINIBROWSER_CONTEXTMENU_HIDEDEVTOOLS = MENU_ID_USER_FIRST + 2; MINIBROWSER_CONTEXTMENU_HIDEDEVTOOLS = MENU_ID_USER_FIRST + 2;
@ -213,13 +236,50 @@ const
// 2. TChromium.OnClose sends a CEFBROWSER_DESTROY message to destroy CEFWindowParent1 in the main thread, which triggers the TChromium.OnBeforeClose event. // 2. TChromium.OnClose sends a CEFBROWSER_DESTROY message to destroy CEFWindowParent1 in the main thread, which triggers the TChromium.OnBeforeClose event.
// 3. TChromium.OnBeforeClose sets FCanClose := True and sends WM_CLOSE to the form. // 3. TChromium.OnBeforeClose sets FCanClose := True and sends WM_CLOSE to the form.
procedure GlobalCEFApp_OnPrintStart(const browser: ICefBrowser);
begin
MiniBrowserFrm.HandlePrintStart(browser);
end;
procedure GlobalCEFApp_OnPrintSettings(const browser: ICefBrowser; const settings: ICefPrintSettings; getDefaults: boolean);
begin
MiniBrowserFrm.HandlePrintSettings(browser, settings, getDefaults);
end;
procedure GlobalCEFApp_OnPrintDialog(const browser: ICefBrowser; hasSelection: boolean; const callback: ICefPrintDialogCallback; var aResult : boolean);
begin
MiniBrowserFrm.HandlePrintDialog(browser, hasSelection, callback, aResult);
end;
procedure GlobalCEFApp_OnPrintJob(const browser: ICefBrowser; const documentName, PDFFilePath: ustring; const callback: ICefPrintJobCallback; var aResult : boolean);
begin
MiniBrowserFrm.HandlePrintJob(browser, documentName, PDFFilePath, callback, aResult);
end;
procedure GlobalCEFApp_OnPrintReset(const browser: ICefBrowser);
begin
MiniBrowserFrm.HandlePrintReset(browser);
end;
procedure GlobalCEFApp_OnGetPDFPaperSize(deviceUnitsPerInch: Integer; var aResult : TCefSize);
begin
aResult.width := Printer.PaperSize.Width;
aResult.height := Printer.PaperSize.Height;
end;
procedure CreateGlobalCEFApp; procedure CreateGlobalCEFApp;
begin begin
GlobalCEFApp := TCefApplication.Create; GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.cache := 'cache'; GlobalCEFApp.cache := 'cache';
//GlobalCEFApp.LogFile := 'debug.log'; GlobalCEFApp.LogFile := 'debug.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO; GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
//GlobalCEFApp.EnablePrintPreview := True; GlobalCEFApp.EnablePrintPreview := True;
GlobalCEFApp.OnPrintStart := @GlobalCEFApp_OnPrintStart;
GlobalCEFApp.OnPrintSettings := @GlobalCEFApp_OnPrintSettings;
GlobalCEFApp.OnPrintDialog := @GlobalCEFApp_OnPrintDialog;
GlobalCEFApp.OnPrintJob := @GlobalCEFApp_OnPrintJob;
GlobalCEFApp.OnPrintReset := @GlobalCEFApp_OnPrintReset;
GlobalCEFApp.OnGetPDFPaperSize := @GlobalCEFApp_OnGetPDFPaperSize;
end; end;
{Property setters and getters} {Property setters and getters}
@ -367,22 +427,16 @@ end;
procedure TMiniBrowserFrm.Print1Click(Sender: TObject); procedure TMiniBrowserFrm.Print1Click(Sender: TObject);
begin begin
// TODO: Linux applications need to use the Printer Handler events in Chromium1.Print;
// GlobalCEFApp before printing.
//Chromium1.Print;
end; end;
procedure TMiniBrowserFrm.PrintinPDF1Click(Sender: TObject); procedure TMiniBrowserFrm.PrintinPDF1Click(Sender: TObject);
begin begin
// TODO: Linux applications need to use the Printer Handler events in
// GlobalCEFApp before printing.
{
SaveDialog1.DefaultExt := 'pdf'; SaveDialog1.DefaultExt := 'pdf';
SaveDialog1.Filter := 'PDF files (*.pdf)|*.PDF'; SaveDialog1.Filter := 'PDF files (*.pdf)|*.PDF';
if SaveDialog1.Execute and (length(SaveDialog1.FileName) > 0) then if SaveDialog1.Execute and (length(SaveDialog1.FileName) > 0) then
Chromium1.PrintToPDF(SaveDialog1.FileName, Chromium1.DocumentURL, Chromium1.DocumentURL); Chromium1.PrintToPDF(SaveDialog1.FileName, Chromium1.DocumentURL, Chromium1.DocumentURL);
}
end; end;
procedure TMiniBrowserFrm.ShowDevTools1Click(Sender: TObject); procedure TMiniBrowserFrm.ShowDevTools1Click(Sender: TObject);
@ -482,6 +536,9 @@ begin
FBrowserStatusText := ''; FBrowserStatusText := '';
FBrowserTitle := ''; FBrowserTitle := '';
FPrintDialogCallback := nil;
FPrintJobCallback := nil;
FBrowserCS := TCriticalSection.Create; FBrowserCS := TCriticalSection.Create;
// The MultiBrowserMode store all the browser references in TChromium. // The MultiBrowserMode store all the browser references in TChromium.
@ -503,6 +560,9 @@ end;
procedure TMiniBrowserFrm.FormDestroy(Sender: TObject); procedure TMiniBrowserFrm.FormDestroy(Sender: TObject);
begin begin
FPrintDialogCallback := nil;
FPrintJobCallback := nil;
FBrowserCS.Free; FBrowserCS.Free;
end; end;
{%Endregion} {%Endregion}
@ -549,10 +609,20 @@ end;
{%Region} {%Region}
procedure TMiniBrowserFrm.Timer1Timer(Sender: TObject); procedure TMiniBrowserFrm.Timer1Timer(Sender: TObject);
begin begin
if Chromium1.Initialized then
begin
if (FPrintJobCallback <> nil) and not(Printer.Printing) then
begin
FPrintJobCallback.Cont();
FPrintJobCallback := nil;
end;
end
else
begin
Timer1.Enabled := False; Timer1.Enabled := False;
if not(Chromium1.CreateBrowser(CEFLinkedWindowParent1.Handle, CEFLinkedWindowParent1.BoundsRect)) and if not(Chromium1.CreateBrowser(CEFLinkedWindowParent1.Handle, CEFLinkedWindowParent1.BoundsRect)) then
not(Chromium1.Initialized) then
Timer1.Enabled := True; Timer1.Enabled := True;
end;
end; end;
{%Endregion} {%Endregion}
@ -756,6 +826,20 @@ procedure TMiniBrowserFrm.Chromium1GotFocus(Sender: TObject;
begin begin
CEFLinkedWindowParent1.SetFocus; CEFLinkedWindowParent1.SetFocus;
end; end;
procedure TMiniBrowserFrm.Chromium1Jsdialog(Sender: TObject;
const browser: ICefBrowser; const originUrl: ustring;
dialogType: TCefJsDialogType; const messageText, defaultPromptText: ustring;
const callback: ICefJsDialogCallback; out suppressMessage: Boolean; out
Result: Boolean);
begin
// We skip JS dialogs to avoid a crash due to the CEF issue #3087
// https://bitbucket.org/chromiumembedded/cef/issues/3087/linux-multi-threaded-message-loop-not
// Even with this workaround the application may have issues if a JS dialog is suppressed.
suppressMessage := True;
Result := False;
end;
{%Endregion} {%Endregion}
{Custom form messages} {Custom form messages}
@ -839,6 +923,72 @@ begin
Caption := BrowserTitle; Caption := BrowserTitle;
end; end;
procedure TMiniBrowserFrm.BrowserShowPrintDlgMsg(Data: PtrInt);
var
TempSettings : ICefPrintSettings;
TempRanges : TCefRangeArray;
TempSize : TCefSize;
TempArea : TCefRect;
begin
if (FPrintDialogCallback = nil) then exit;
try
if PrintDialog1.Execute then
begin
TempSettings := TCefPrintSettingsRef.New();
if (PrintDialog1.PrintRange = TPrintRange.prPageNums) then
begin
SetLength(TempRanges, 1);
TempRanges[0].from := PrintDialog1.FromPage;
TempRanges[0].to_ := PrintDialog1.ToPage;
end
else
SetLength(TempRanges, 0);
TempSettings.SetPageRanges(TempRanges);
TempSettings.SetSelectionOnly(PrintDialog1.PrintRange = TPrintRange.prSelection);
TempSettings.DeviceName := Printer.PrinterName;
TempSettings.Dpi := Printer.XDPI;
TempSize.width := Printer.PaperSize.Width;
TempSize.height := Printer.PaperSize.Height;
TempArea.x := TPrinterCanvas(Printer.Canvas).LeftMargin;
TempArea.y := TPrinterCanvas(Printer.Canvas).TopMargin;
TempArea.width := TPrinterCanvas(Printer.Canvas).PageWidth;
TempArea.height := TPrinterCanvas(Printer.Canvas).PageHeight;
TempSettings.SetOrientation(Printer.Orientation in [TPrinterOrientation.poLandscape, TPrinterOrientation.poReverseLandscape]);
TempSettings.SetPrinterPrintableArea(@TempSize, @TempArea, Printer.Orientation = TPrinterOrientation.poReverseLandscape);
FPrintDialogCallback.Cont(TempSettings);
end
else
FPrintDialogCallback.Cancel;
finally
TempSettings := nil;
FPrintDialogCallback := nil;
end;
end;
procedure TMiniBrowserFrm.BrowserPrintJobStartedMsg(Data: PtrInt);
begin
StatusBar1.Panels[0].Text := 'Print job started';
Timer1.Enabled := True;
end;
procedure TMiniBrowserFrm.BrowserPrintStartMsg(Data: PtrInt);
begin
StatusBar1.Panels[0].Text := 'Print start';
end;
procedure TMiniBrowserFrm.BrowserPrintResetMsg(Data: PtrInt);
begin
StatusBar1.Panels[0].Text := 'Print reset';
end;
procedure TMiniBrowserFrm.SendCompMessage(aMsg : cardinal; Data: PtrInt); procedure TMiniBrowserFrm.SendCompMessage(aMsg : cardinal; Data: PtrInt);
begin begin
case aMsg of case aMsg of
@ -851,6 +1001,10 @@ begin
CEF_SHOWDEVTOOLS : Application.QueueAsyncCall(@BrowserShowDevToolsMsg, Data); CEF_SHOWDEVTOOLS : Application.QueueAsyncCall(@BrowserShowDevToolsMsg, Data);
CEF_HIDEDEVTOOLS : Application.QueueAsyncCall(@BrowserHideDevToolsMsg, Data); CEF_HIDEDEVTOOLS : Application.QueueAsyncCall(@BrowserHideDevToolsMsg, Data);
CEF_PDFPRINTEND : Application.QueueAsyncCall(@BrowserPrintPDFEndMsg, Data); CEF_PDFPRINTEND : Application.QueueAsyncCall(@BrowserPrintPDFEndMsg, Data);
CEF_SHOWPRINTDIALOG : Application.QueueAsyncCall(@BrowserShowPrintDlgMsg, Data);
CEF_PRINTJOBSTARTED : Application.QueueAsyncCall(@BrowserPrintJobStartedMsg, Data);
CEF_PRINTSTART : Application.QueueAsyncCall(@BrowserPrintStartMsg, Data);
CEF_PRINTRESET : Application.QueueAsyncCall(@BrowserPrintResetMsg, Data);
end; end;
end; end;
{%Endregion} {%Endregion}
@ -877,4 +1031,73 @@ begin
end; end;
{%Endregion} {%Endregion}
{Printing procedures}
{%Region}
procedure TMiniBrowserFrm.HandlePrintStart(const browser: ICefBrowser);
begin
if (browser <> nil) and Chromium1.IsSameBrowser(browser) then
SendCompMessage(CEF_PRINTSTART);
end;
procedure TMiniBrowserFrm.HandlePrintSettings(const browser: ICefBrowser; const settings: ICefPrintSettings; getDefaults: boolean);
var
TempSize : TCefSize;
TempArea : TCefRect;
begin
if (settings <> nil) and (browser <> nil) and settings.IsValid and not(settings.IsReadOnly) and Chromium1.IsSameBrowser(browser) then
begin
// if getDefaults then ...
TempSize.width := Printer.PaperSize.Width;
TempSize.height := Printer.PaperSize.Height;
TempArea.x := TPrinterCanvas(Printer.Canvas).LeftMargin;
TempArea.y := TPrinterCanvas(Printer.Canvas).TopMargin;
TempArea.width := TPrinterCanvas(Printer.Canvas).PageWidth;
TempArea.height := TPrinterCanvas(Printer.Canvas).PageHeight;
settings.DeviceName := Printer.PrinterName;
settings.Dpi := Printer.XDPI;
settings.SetOrientation(Printer.Orientation in [TPrinterOrientation.poLandscape, TPrinterOrientation.poReverseLandscape]);
settings.SetPrinterPrintableArea(@TempSize, @TempArea, Printer.Orientation = TPrinterOrientation.poReverseLandscape);
end;
end;
procedure TMiniBrowserFrm.HandlePrintDialog(const browser: ICefBrowser; hasSelection: boolean; const callback: ICefPrintDialogCallback; var aResult : boolean);
begin
if (browser <> nil) and (callback <> nil) and Chromium1.IsSameBrowser(browser) then
begin
FPrintDialogCallback := callback;
FPrintDialogHasSelection := hasSelection;
aResult := True;
SendCompMessage(CEF_SHOWPRINTDIALOG);
end
else
aResult := False;
end;
procedure TMiniBrowserFrm.HandlePrintJob(const browser: ICefBrowser; const documentName, PDFFilePath: ustring; const callback: ICefPrintJobCallback; var aResult : boolean);
begin
if (browser <> nil) and (callback <> nil) and Chromium1.IsSameBrowser(browser) then
begin
FPrintJobCallback := callback;
FPrintJobDocumentName := documentName;
FPrintJobPDFFilePath := PDFFilePath;
aResult := True;
SendCompMessage(CEF_PRINTJOBSTARTED);
end
else
aResult := False;
end;
procedure TMiniBrowserFrm.HandlePrintReset(const browser: ICefBrowser);
begin
if (browser <> nil) and Chromium1.IsSameBrowser(browser) then
SendCompMessage(CEF_PRINTRESET);
end;
{%Endregion}
end. end.

112
demos/Lazarus_Linux/OSRExternalPumpBrowser/OSRExternalPumpBrowser.lps
View File

@ -7,11 +7,10 @@
<Unit0> <Unit0>
<Filename Value="OSRExternalPumpBrowser.lpr"/> <Filename Value="OSRExternalPumpBrowser.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="4"/> <EditorIndex Value="-1"/>
<TopLine Value="31"/> <TopLine Value="31"/>
<CursorPos X="20" Y="72"/> <CursorPos X="20" Y="72"/>
<UsageCount Value="91"/> <UsageCount Value="91"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
@ -21,16 +20,16 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="uOSRExternalPumpBrowser"/> <UnitName Value="uOSRExternalPumpBrowser"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="177"/> <TopLine Value="342"/>
<CursorPos X="21" Y="195"/> <CursorPos X="67" Y="379"/>
<UsageCount Value="91"/> <UsageCount Value="91"/>
<Bookmarks Count="6"> <Bookmarks Count="6">
<Item0 Y="705" ID="2"/> <Item0 Y="731" ID="2"/>
<Item1 X="9" Y="603" ID="3"/> <Item1 X="9" Y="629" ID="3"/>
<Item2 X="13" Y="316" ID="9"/> <Item2 X="13" Y="318" ID="9"/>
<Item3 Y="690" ID="8"/> <Item3 Y="716" ID="8"/>
<Item4 X="41" Y="281" ID="7"/> <Item4 X="41" Y="283" ID="7"/>
<Item5 X="52" Y="187" ID="1"/> <Item5 X="52" Y="189" ID="1"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -94,11 +93,10 @@
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../../../source/uCEFMiscFunctions.pas"/> <Filename Value="../../../source/uCEFMiscFunctions.pas"/>
<EditorIndex Value="3"/> <EditorIndex Value="-1"/>
<TopLine Value="40"/> <TopLine Value="40"/>
<CursorPos X="51" Y="63"/> <CursorPos X="51" Y="63"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
<Loaded Value="True"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/interfaces/gtk2/gtk2int.pas"/> <Filename Value="/usr/share/lazarus/2.0.10/lcl/interfaces/gtk2/gtk2int.pas"/>
@ -146,11 +144,10 @@
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="../../../source/uCEFApplicationCore.pas"/> <Filename Value="../../../source/uCEFApplicationCore.pas"/>
<EditorIndex Value="1"/> <EditorIndex Value="-1"/>
<TopLine Value="604"/> <TopLine Value="604"/>
<CursorPos X="71" Y="623"/> <CursorPos X="71" Y="623"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="../../../source/uCEFApplication.pas"/> <Filename Value="../../../source/uCEFApplication.pas"/>
@ -399,8 +396,8 @@
<Unit52> <Unit52>
<Filename Value="../../../source/uCEFChromiumCore.pas"/> <Filename Value="../../../source/uCEFChromiumCore.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="6966"/> <TopLine Value="6328"/>
<CursorPos X="78" Y="6355"/> <CursorPos X="68" Y="6353"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit52> </Unit52>
<Unit53> <Unit53>
@ -813,8 +810,8 @@
<Filename Value="../SimpleOSRBrowser/usimpleosrbrowser.pas"/> <Filename Value="../SimpleOSRBrowser/usimpleosrbrowser.pas"/>
<UnitName Value="uSimpleOSRBrowser"/> <UnitName Value="uSimpleOSRBrowser"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="772"/> <TopLine Value="351"/>
<CursorPos X="9" Y="817"/> <CursorPos X="60" Y="372"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit110> </Unit110>
<Unit111> <Unit111>
@ -827,138 +824,113 @@
</Unit111> </Unit111>
<Unit112> <Unit112>
<Filename Value="../../../source/uCEFLinuxFunctions.pas"/> <Filename Value="../../../source/uCEFLinuxFunctions.pas"/>
<EditorIndex Value="2"/> <EditorIndex Value="-1"/>
<TopLine Value="62"/> <TopLine Value="62"/>
<CursorPos X="19" Y="81"/> <CursorPos X="19" Y="81"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit112> </Unit112>
</Units> </Units>
<OtherDefines Count="2"> <OtherDefines Count="2">
<Define0 Value="UseCthreads"/> <Define0 Value="UseCthreads"/>
<Define1 Value="EnabledGtkThreading"/> <Define1 Value="EnabledGtkThreading"/>
</OtherDefines> </OtherDefines>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="24" HistoryIndex="23">
<Position1> <Position1>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="328" Column="58" TopLine="308"/> <Caret Line="86" Column="24" TopLine="81"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="216" Column="77" TopLine="205"/> <Caret Line="768" TopLine="54"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="87" Column="22" TopLine="60"/> <Caret Line="195" Column="47" TopLine="172"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="73" Column="13" TopLine="63"/> <Caret Line="220" Column="36" TopLine="197"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="410" Column="3" TopLine="406"/> <Caret Line="221" Column="51" TopLine="197"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="277" Column="73" TopLine="237"/> <Caret Line="235" Column="62" TopLine="208"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="86" Column="24" TopLine="81"/> <Caret Line="240" Column="47" TopLine="205"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="768" TopLine="54"/> <Caret Line="331" TopLine="310"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="195" Column="47" TopLine="172"/> <Caret Line="722" TopLine="713"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="220" Column="36" TopLine="197"/> <Caret Line="96" TopLine="74"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="221" Column="51" TopLine="197"/> <Caret Line="95" TopLine="73"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="235" Column="62" TopLine="208"/> <Caret Line="317" Column="82" TopLine="291"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="240" Column="47" TopLine="205"/> <Caret Line="79" Column="15" TopLine="65"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="331" TopLine="310"/> <Caret Line="620" Column="34" TopLine="596"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="722" TopLine="713"/> <Caret Line="689" TopLine="644"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="96" TopLine="74"/> <Caret Line="687" Column="3" TopLine="644"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="95" TopLine="73"/> <Caret Line="231" TopLine="174"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="317" Column="82" TopLine="291"/> <Caret Line="199" Column="4" TopLine="189"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="79" Column="15" TopLine="65"/> <Caret Line="191" Column="60" TopLine="189"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="620" Column="34" TopLine="596"/> <Caret Line="196" Column="21" TopLine="178"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="OSRExternalPumpBrowser.lpr"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="72" Column="20" TopLine="31"/> <Caret Line="352" Column="53" TopLine="333"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="689" TopLine="644"/> <Caret Line="349" Column="56" TopLine="332"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="687" Column="3" TopLine="644"/> <Caret Line="355" Column="53" TopLine="333"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="uosrexternalpumpbrowser.pas"/> <Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="231" TopLine="174"/> <Caret Line="404" TopLine="369"/>
</Position24> </Position24>
<Position25>
<Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="199" Column="4" TopLine="189"/>
</Position25>
<Position26>
<Filename Value="../../../source/uCEFApplicationCore.pas"/>
<Caret Line="623" Column="71" TopLine="604"/>
</Position26>
<Position27>
<Filename Value="../../../source/uCEFMiscFunctions.pas"/>
<Caret Line="70" Column="7" TopLine="39"/>
</Position27>
<Position28>
<Filename Value="../../../source/uCEFLinuxFunctions.pas"/>
<Caret Line="55" Column="19" TopLine="33"/>
</Position28>
<Position29>
<Filename Value="../../../source/uCEFMiscFunctions.pas"/>
<Caret Line="74" Column="66" TopLine="39"/>
</Position29>
<Position30>
<Filename Value="uosrexternalpumpbrowser.pas"/>
<Caret Line="191" Column="60" TopLine="189"/>
</Position30>
</JumpHistory> </JumpHistory>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>

2
demos/Lazarus_Linux/OSRExternalPumpBrowser/uosrexternalpumpbrowser.lfm
View File

@ -86,6 +86,8 @@ object Form1: TForm1
OnMouseMove = Panel1MouseMove OnMouseMove = Panel1MouseMove
OnMouseUp = Panel1MouseUp OnMouseUp = Panel1MouseUp
OnMouseWheel = Panel1MouseWheel OnMouseWheel = Panel1MouseWheel
OnMouseEnter = Panel1MouseEnter
OnMouseLeave = Panel1MouseLeave
OnResize = Panel1Resize OnResize = Panel1Resize
end end
object Chromium1: TChromium object Chromium1: TChromium

30
demos/Lazarus_Linux/OSRExternalPumpBrowser/uosrexternalpumpbrowser.pas
View File

@ -63,6 +63,8 @@ type
procedure Panel1Enter(Sender: TObject); procedure Panel1Enter(Sender: TObject);
procedure Panel1Exit(Sender: TObject); procedure Panel1Exit(Sender: TObject);
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseEnter(Sender: TObject);
procedure Panel1MouseLeave(Sender: TObject);
procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); procedure Panel1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
@ -330,7 +332,6 @@ procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
var var
TempEvent : TCefMouseEvent; TempEvent : TCefMouseEvent;
TempTime : integer;
begin begin
Panel1.SetFocus; Panel1.SetFocus;
@ -341,11 +342,36 @@ begin
Chromium1.SendMouseClickEvent(@TempEvent, GetButton(Button), False, 1); Chromium1.SendMouseClickEvent(@TempEvent, GetButton(Button), False, 1);
end; end;
procedure TForm1.Panel1MouseEnter(Sender: TObject);
var
TempEvent : TCefMouseEvent;
TempPoint : TPoint;
begin
TempPoint := Panel1.ScreenToClient(mouse.CursorPos);
TempEvent.x := TempPoint.x;
TempEvent.y := TempPoint.y;
TempEvent.modifiers := EVENTFLAG_NONE;
DeviceToLogical(TempEvent, Panel1.ScreenScale);
Chromium1.SendMouseMoveEvent(@TempEvent, False);
end;
procedure TForm1.Panel1MouseLeave(Sender: TObject);
var
TempEvent : TCefMouseEvent;
TempPoint : TPoint;
begin
TempPoint := Panel1.ScreenToClient(mouse.CursorPos);
TempEvent.x := TempPoint.x;
TempEvent.y := TempPoint.y;
TempEvent.modifiers := EVENTFLAG_NONE;
DeviceToLogical(TempEvent, Panel1.ScreenScale);
Chromium1.SendMouseMoveEvent(@TempEvent, True);
end;
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); Y: Integer);
var var
TempEvent : TCefMouseEvent; TempEvent : TCefMouseEvent;
TempTime : integer;
begin begin
TempEvent.x := x; TempEvent.x := x;
TempEvent.y := y; TempEvent.y := y;

35
demos/Lazarus_Linux/SimpleBrowser2/SimpleBrowser2.lps
View File

@ -3,14 +3,14 @@
<ProjectSession> <ProjectSession>
<Version Value="11"/> <Version Value="11"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="62"> <Units Count="64">
<Unit0> <Unit0>
<Filename Value="SimpleBrowser2.lpr"/> <Filename Value="SimpleBrowser2.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="18"/> <TopLine Value="18"/>
<CursorPos X="74" Y="42"/> <CursorPos X="74" Y="42"/>
<UsageCount Value="49"/> <UsageCount Value="52"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="usimplebrowser2.pas"/> <Filename Value="usimplebrowser2.pas"/>
@ -21,8 +21,8 @@
<UnitName Value="uSimpleBrowser2"/> <UnitName Value="uSimpleBrowser2"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="225"/> <TopLine Value="225"/>
<CursorPos X="57" Y="246"/> <CursorPos X="49" Y="250"/>
<UsageCount Value="49"/> <UsageCount Value="52"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 X="57" Y="243" ID="3"/> <Item0 X="57" Y="243" ID="3"/>
<Item1 Y="239" ID="9"/> <Item1 Y="239" ID="9"/>
@ -35,7 +35,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="Interfaces"/> <UnitName Value="Interfaces"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="47"/> <UsageCount Value="50"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../../../source/uCEFConstants.pas"/> <Filename Value="../../../../source/uCEFConstants.pas"/>
@ -143,9 +143,9 @@
<Unit18> <Unit18>
<Filename Value="../../../source/uCEFChromiumCore.pas"/> <Filename Value="../../../source/uCEFChromiumCore.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="6390"/> <TopLine Value="6342"/>
<CursorPos X="25" Y="6396"/> <CursorPos X="3" Y="6346"/>
<UsageCount Value="23"/> <UsageCount Value="24"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 Y="4727" ID="2"/> <Item0 Y="4727" ID="2"/>
</Bookmarks> </Bookmarks>
@ -262,9 +262,9 @@
<Unit35> <Unit35>
<Filename Value="../../../source/uCEFApplicationCore.pas"/> <Filename Value="../../../source/uCEFApplicationCore.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="520"/> <TopLine Value="2367"/>
<CursorPos X="53" Y="563"/> <CursorPos X="77" Y="2398"/>
<UsageCount Value="10"/> <UsageCount Value="11"/>
</Unit35> </Unit35>
<Unit36> <Unit36>
<Filename Value="../../../source/uCEFApplication.pas"/> <Filename Value="../../../source/uCEFApplication.pas"/>
@ -459,6 +459,19 @@
<CursorPos X="54" Y="232"/> <CursorPos X="54" Y="232"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit61> </Unit61>
<Unit62>
<Filename Value="../../../source/uCEFLinuxConstants.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="3896"/>
<CursorPos X="40" Y="3736"/>
<UsageCount Value="10"/>
</Unit62>
<Unit63>
<Filename Value="../../../source/uCEFLinuxFunctions.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="514"/>
<UsageCount Value="10"/>
</Unit63>
</Units> </Units>
<JumpHistory Count="11" HistoryIndex="10"> <JumpHistory Count="11" HistoryIndex="10">
<Position1> <Position1>

166
demos/Lazarus_Linux/SimpleOSRBrowser/SimpleOSRBrowser.lps
View File

@ -3,14 +3,14 @@
<ProjectSession> <ProjectSession>
<Version Value="11"/> <Version Value="11"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="108"> <Units Count="111">
<Unit0> <Unit0>
<Filename Value="SimpleOSRBrowser.lpr"/> <Filename Value="SimpleOSRBrowser.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="29"/> <TopLine Value="29"/>
<CursorPos X="57" Y="58"/> <CursorPos X="57" Y="58"/>
<UsageCount Value="83"/> <UsageCount Value="85"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="usimpleosrbrowser.pas"/> <Filename Value="usimpleosrbrowser.pas"/>
@ -20,12 +20,11 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="uSimpleOSRBrowser"/> <UnitName Value="uSimpleOSRBrowser"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="213"/> <TopLine Value="341"/>
<CursorPos X="78" Y="229"/> <CursorPos X="27" Y="359"/>
<UsageCount Value="83"/> <UsageCount Value="85"/>
<Bookmarks Count="2"> <Bookmarks Count="1">
<Item0 X="49" Y="223" ID="2"/> <Item0 X="80" Y="554" ID="6"/>
<Item1 X="80" Y="528" ID="6"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -36,7 +35,7 @@
<UnitName Value="Interfaces"/> <UnitName Value="Interfaces"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="40" Y="20"/> <CursorPos X="40" Y="20"/>
<UsageCount Value="79"/> <UsageCount Value="81"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="/usr/share/lazarus/2.0.6/lcl/lcltype.pp"/> <Filename Value="/usr/share/lazarus/2.0.6/lcl/lcltype.pp"/>
@ -90,8 +89,8 @@
<Unit10> <Unit10>
<Filename Value="../../../source/uCEFMiscFunctions.pas"/> <Filename Value="../../../source/uCEFMiscFunctions.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="184"/> <TopLine Value="721"/>
<CursorPos X="22" Y="211"/> <CursorPos X="3" Y="756"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
@ -105,9 +104,9 @@
<Unit12> <Unit12>
<Filename Value="../../../source/uCEFChromium.pas"/> <Filename Value="../../../source/uCEFChromium.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="62"/> <TopLine Value="294"/>
<CursorPos X="17" Y="86"/> <CursorPos X="3" Y="302"/>
<UsageCount Value="8"/> <UsageCount Value="10"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="../../../source/uCEFConstants.pas"/> <Filename Value="../../../source/uCEFConstants.pas"/>
@ -126,14 +125,14 @@
<Unit15> <Unit15>
<Filename Value="../../../source/uCEFBufferPanel.pas"/> <Filename Value="../../../source/uCEFBufferPanel.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1034"/> <TopLine Value="231"/>
<CursorPos X="3" Y="1037"/> <CursorPos Y="257"/>
<UsageCount Value="29"/> <UsageCount Value="29"/>
<Bookmarks Count="4"> <Bookmarks Count="4">
<Item0 Y="1036" ID="9"/> <Item0 Y="1038" ID="9"/>
<Item1 X="63" Y="589" ID="8"/> <Item1 X="63" Y="591" ID="8"/>
<Item2 X="5" Y="350" ID="7"/> <Item2 X="5" Y="352" ID="7"/>
<Item3 X="5" Y="380" ID="1"/> <Item3 X="5" Y="382" ID="1"/>
</Bookmarks> </Bookmarks>
</Unit15> </Unit15>
<Unit16> <Unit16>
@ -184,15 +183,15 @@
<Filename Value="/usr/share/lazarus/2.0.10/lcl/controls.pp"/> <Filename Value="/usr/share/lazarus/2.0.10/lcl/controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1718"/> <TopLine Value="1472"/>
<CursorPos X="29" Y="1745"/> <CursorPos Y="1502"/>
<UsageCount Value="16"/> <UsageCount Value="16"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/extctrls.pp"/> <Filename Value="/usr/share/lazarus/2.0.10/lcl/extctrls.pp"/>
<UnitName Value="ExtCtrls"/> <UnitName Value="ExtCtrls"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1025"/> <TopLine Value="1034"/>
<CursorPos X="3" Y="1046"/> <CursorPos X="3" Y="1046"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
</Unit23> </Unit23>
@ -401,9 +400,15 @@
<Unit52> <Unit52>
<Filename Value="../../../source/uCEFChromiumCore.pas"/> <Filename Value="../../../source/uCEFChromiumCore.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1122"/> <TopLine Value="2506"/>
<CursorPos Y="1147"/> <CursorPos Y="2529"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Bookmarks Count="4">
<Item0 Y="4619" ID="2"/>
<Item1 X="41" Y="2931" ID="9"/>
<Item2 Y="6346" ID="1"/>
<Item3 Y="2529" ID="3"/>
</Bookmarks>
</Unit52> </Unit52>
<Unit53> <Unit53>
<Filename Value="/usr/share/lazarus/2.0.10/lcl/include/wincontrol.inc"/> <Filename Value="/usr/share/lazarus/2.0.10/lcl/include/wincontrol.inc"/>
@ -579,9 +584,9 @@
<Unit76> <Unit76>
<Filename Value="../../../source/uCEFTypes.pas"/> <Filename Value="../../../source/uCEFTypes.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="1243"/> <TopLine Value="1404"/>
<CursorPos X="9" Y="1271"/> <CursorPos X="17" Y="1427"/>
<UsageCount Value="9"/> <UsageCount Value="10"/>
</Unit76> </Unit76>
<Unit77> <Unit77>
<Filename Value="/usr/share/fpcsrc/3.2.0/rtl/inc/objpash.inc"/> <Filename Value="/usr/share/fpcsrc/3.2.0/rtl/inc/objpash.inc"/>
@ -797,96 +802,37 @@
<CursorPos X="77" Y="127"/> <CursorPos X="77" Y="127"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit107> </Unit107>
<Unit108>
<Filename Value="../../../source/uCEFLinuxFunctions.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="538"/>
<CursorPos X="127" Y="573"/>
<UsageCount Value="10"/>
</Unit108>
<Unit109>
<Filename Value="../../../source/uCEFInterfaces.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="452"/>
<CursorPos Y="488"/>
<UsageCount Value="10"/>
</Unit109>
<Unit110>
<Filename Value="../../../source/uCEFTask.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="641"/>
<CursorPos Y="684"/>
<UsageCount Value="10"/>
</Unit110>
</Units> </Units>
<OtherDefines Count="2"> <OtherDefines Count="2">
<Define0 Value="UseCthreads"/> <Define0 Value="UseCthreads"/>
<Define1 Value="EnabledGtkThreading"/> <Define1 Value="EnabledGtkThreading"/>
</OtherDefines> </OtherDefines>
<JumpHistory Count="21" HistoryIndex="20"> <JumpHistory Count="1">
<Position1> <Position1>
<Filename Value="usimpleosrbrowser.pas"/> <Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="56" Column="63" TopLine="51"/> <Caret Line="359" Column="27" TopLine="341"/>
</Position1> </Position1>
<Position2>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="634" Column="63" TopLine="619"/>
</Position2>
<Position3>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="80" Column="15" TopLine="64"/>
</Position3>
<Position4>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="501" Column="35" TopLine="478"/>
</Position4>
<Position5>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="512" Column="52" TopLine="478"/>
</Position5>
<Position6>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="514" Column="38" TopLine="497"/>
</Position6>
<Position7>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="506" Column="70" TopLine="497"/>
</Position7>
<Position8>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="558" Column="39" TopLine="536"/>
</Position8>
<Position9>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="569" Column="56" TopLine="475"/>
</Position9>
<Position10>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="469" Column="61" TopLine="460"/>
</Position10>
<Position11>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="89" Column="15" TopLine="56"/>
</Position11>
<Position12>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="663" Column="3" TopLine="660"/>
</Position12>
<Position13>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="309" Column="3" TopLine="280"/>
</Position13>
<Position14>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="90" Column="24" TopLine="45"/>
</Position14>
<Position15>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="679" Column="12" TopLine="661"/>
</Position15>
<Position16>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="85" Column="15" TopLine="68"/>
</Position16>
<Position17>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="319" Column="12" TopLine="306"/>
</Position17>
<Position18>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="90" Column="15" TopLine="63"/>
</Position18>
<Position19>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="675" TopLine="671"/>
</Position19>
<Position20>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="85" Column="15" TopLine="68"/>
</Position20>
<Position21>
<Filename Value="usimpleosrbrowser.pas"/>
<Caret Line="225" Column="72" TopLine="187"/>
</Position21>
</JumpHistory> </JumpHistory>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>

2
demos/Lazarus_Linux/SimpleOSRBrowser/usimpleosrbrowser.lfm
View File

@ -85,6 +85,8 @@ object Form1: TForm1
OnMouseMove = Panel1MouseMove OnMouseMove = Panel1MouseMove
OnMouseUp = Panel1MouseUp OnMouseUp = Panel1MouseUp
OnMouseWheel = Panel1MouseWheel OnMouseWheel = Panel1MouseWheel
OnMouseEnter = Panel1MouseEnter
OnMouseLeave = Panel1MouseLeave
OnResize = Panel1Resize OnResize = Panel1Resize
end end
object Chromium1: TChromium object Chromium1: TChromium

30
demos/Lazarus_Linux/SimpleOSRBrowser/usimpleosrbrowser.pas
View File

@ -64,6 +64,8 @@ type
procedure Panel1Enter(Sender: TObject); procedure Panel1Enter(Sender: TObject);
procedure Panel1Exit(Sender: TObject); procedure Panel1Exit(Sender: TObject);
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseEnter(Sender: TObject);
procedure Panel1MouseLeave(Sender: TObject);
procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); procedure Panel1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
@ -344,7 +346,6 @@ procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
var var
TempEvent : TCefMouseEvent; TempEvent : TCefMouseEvent;
TempTime : integer;
begin begin
Panel1.SetFocus; Panel1.SetFocus;
@ -355,11 +356,36 @@ begin
Chromium1.SendMouseClickEvent(@TempEvent, GetButton(Button), False, 1); Chromium1.SendMouseClickEvent(@TempEvent, GetButton(Button), False, 1);
end; end;
procedure TForm1.Panel1MouseEnter(Sender: TObject);
var
TempEvent : TCefMouseEvent;
TempPoint : TPoint;
begin
TempPoint := Panel1.ScreenToClient(mouse.CursorPos);
TempEvent.x := TempPoint.x;
TempEvent.y := TempPoint.y;
TempEvent.modifiers := EVENTFLAG_NONE;
DeviceToLogical(TempEvent, Panel1.ScreenScale);
Chromium1.SendMouseMoveEvent(@TempEvent, False);
end;
procedure TForm1.Panel1MouseLeave(Sender: TObject);
var
TempEvent : TCefMouseEvent;
TempPoint : TPoint;
begin
TempPoint := Panel1.ScreenToClient(mouse.CursorPos);
TempEvent.x := TempPoint.x;
TempEvent.y := TempPoint.y;
TempEvent.modifiers := EVENTFLAG_NONE;
DeviceToLogical(TempEvent, Panel1.ScreenScale);
Chromium1.SendMouseMoveEvent(@TempEvent, True);
end;
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); Y: Integer);
var var
TempEvent : TCefMouseEvent; TempEvent : TCefMouseEvent;
TempTime : integer;
begin begin
TempEvent.x := x; TempEvent.x := x;
TempEvent.y := y; TempEvent.y := y;

37
source/uCEFApplicationCore.pas
View File

@ -366,9 +366,11 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure AfterConstruction; override; procedure AfterConstruction; override;
procedure AddCustomCommandLine(const aCommandLine : string; const aValue : string = ''); procedure AddCustomCommandLine(const aCommandLine : string; const aValue : string = '');
procedure InitLibLocationFromArgs;
function StartMainProcess : boolean; function StartMainProcess : boolean;
function StartSubProcess : boolean; function StartSubProcess : boolean;
{$IFDEF MACOSX}
procedure InitLibLocationFromArgs;
{$ENDIF}
procedure DoMessageLoopWork; procedure DoMessageLoopWork;
procedure RunMessageLoop; procedure RunMessageLoop;
@ -867,16 +869,17 @@ begin
if (FCustomCommandLineValues <> nil) then FCustomCommandLineValues.Add(aValue); if (FCustomCommandLineValues <> nil) then FCustomCommandLineValues.Add(aValue);
end; end;
{$IFDEF MACOSX}
// This function checks if argv contains // This function checks if argv contains
// --framework-dir-path= // --framework-dir-path=
// --main-bundle-path= // --main-bundle-path=
// It sets the corresponding fields in the config // It sets the corresponding fields in the config
// This params are passed on Mac. // This params are passed on Mac.
// The values can also be calculated, instead of calling this procedure // The values can also be calculated, instead of calling this procedure
var
PARAM_FRAME_PATH : string = '--framework-dir-path';
PARAM_BUNDLE_PATH : string = '--main-bundle-path';
procedure TCefApplicationCore.InitLibLocationFromArgs; procedure TCefApplicationCore.InitLibLocationFromArgs;
const
PARAM_FRAME_PATH = '--framework-dir-path';
PARAM_BUNDLE_PATH = '--main-bundle-path';
var var
i, l : Integer; i, l : Integer;
p : PChar; p : PChar;
@ -887,11 +890,11 @@ begin
p := strscan(argv[i], '='); p := strscan(argv[i], '=');
if p = nil then continue; if p = nil then continue;
l := p - argv[i]; l := p - argv[i];
if (l = Length(PARAM_FRAME_PATH)) and if (l = Length(PARAM_FRAME_PATH)) and
(strlcomp(argv[i], PChar(PARAM_FRAME_PATH), Length(PARAM_FRAME_PATH)) = 0) then (strlcomp(argv[i], PChar(PARAM_FRAME_PATH), Length(PARAM_FRAME_PATH)) = 0) then
begin
FrameworkDirPath := PChar(argv[i] + Length(PARAM_FRAME_PATH) + 1); FrameworkDirPath := PChar(argv[i] + Length(PARAM_FRAME_PATH) + 1);
end;
if (l = Length(PARAM_BUNDLE_PATH)) and if (l = Length(PARAM_BUNDLE_PATH)) and
(strlcomp(argv[i], PChar(PARAM_BUNDLE_PATH), Length(PARAM_BUNDLE_PATH)) = 0) then (strlcomp(argv[i], PChar(PARAM_BUNDLE_PATH), Length(PARAM_BUNDLE_PATH)) = 0) then
begin begin
@ -899,17 +902,16 @@ begin
MainBundlePath := MBPath; MainBundlePath := MBPath;
end; end;
end; end;
if (MBPath <> '') and (FrameworkDirPath = '') then if (MBPath <> '') and (FrameworkDirPath = '') then
begin begin
MBPath := IncludeTrailingPathDelimiter(MBPath); MBPath := IncludeTrailingPathDelimiter(MBPath) + LIBCEF_PREFIX;
{$IFDEF MACOSX}
MBPath := MBPath + LIBCEF_PREFIX; if FileExists(MBPath + LIBCEF_DLL) then
{$ENDIF}
if FileExists(MBPath + LIBCEF_DLL) then begin
FrameworkDirPath := MBPath; FrameworkDirPath := MBPath;
end; end;
end;
end; end;
{$ENDIF}
// This function must only be called by the main executable when the application // This function must only be called by the main executable when the application
// is configured to use a different executable for the subprocesses. // is configured to use a different executable for the subprocesses.
@ -1035,11 +1037,13 @@ end;
function TCefApplicationCore.GetResourcesDirPath: ustring; function TCefApplicationCore.GetResourcesDirPath: ustring;
begin begin
Result := FResourcesDirPath; Result := FResourcesDirPath;
{$IFNDEF MACOSX}
if (Result = '') and (FrameworkDirPath <> '') then if (Result = '') and (FrameworkDirPath <> '') then
begin begin
if FileExists(IncludeTrailingPathDelimiter(FrameworkDirPath) + LIBCEF_PAK) then if FileExists(IncludeTrailingPathDelimiter(FrameworkDirPath) + LIBCEF_PAK) then
Result := FrameworkDirPath; Result := FrameworkDirPath;
end; end;
{$ENDIF}
end; end;
procedure TCefApplicationCore.SetCache(const aValue : ustring); procedure TCefApplicationCore.SetCache(const aValue : ustring);
@ -1657,8 +1661,7 @@ begin
FOnScheduleMessagePumpWork(delayMs); FOnScheduleMessagePumpWork(delayMs);
end; end;
function TCefApplicationCore.Internal_GetLocalizedString(stringId: Integer; function TCefApplicationCore.Internal_GetLocalizedString(stringid: Integer; var stringVal: ustring) : boolean;
var stringVal: ustring): boolean;
begin begin
Result := False; Result := False;
@ -1819,8 +1822,7 @@ begin
FOnGetPDFPaperSize(deviceUnitsPerInch, aResult); FOnGetPDFPaperSize(deviceUnitsPerInch, aResult);
end; end;
procedure TCefApplicationCore.AppendSwitch(var aKeys, aValues: TStringList; procedure TCefApplicationCore.AppendSwitch(var aKeys, aValues : TStringList; const aNewKey, aNewValue : ustring);
const aNewKey: ustring; const aNewValue: ustring);
var var
TempKey, TempHyphenatedKey : ustring; TempKey, TempHyphenatedKey : ustring;
i : integer; i : integer;
@ -1924,8 +1926,7 @@ begin
FreeAndNil(TempDisabledValues); FreeAndNil(TempDisabledValues);
end; end;
procedure TCefApplicationCore.ReplaceSwitch(var aKeys, aValues: TStringList; procedure TCefApplicationCore.ReplaceSwitch(var aKeys, aValues : TStringList; const aNewKey, aNewValue : ustring);
const aNewKey: ustring; const aNewValue: ustring);
var var
TempKey, TempHyphenatedKey : ustring; TempKey, TempHyphenatedKey : ustring;
i : integer; i : integer;

4
source/uCEFBufferPanel.pas
View File

@ -270,6 +270,10 @@ type
property OnMouseEnter; property OnMouseEnter;
property OnMouseLeave; property OnMouseLeave;
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
property OnMouseEnter;
property OnMouseLeave;
{$ENDIF}
{$IFDEF DELPHI12_UP} {$IFDEF DELPHI12_UP}
property ShowCaption; property ShowCaption;
property ParentDoubleBuffered; property ParentDoubleBuffered;

2
source/uCEFChromiumCore.pas
View File

@ -1957,7 +1957,7 @@ begin
WindowInfoAsChild(FWindowInfo, aParentHandle, aParentRect, aWindowName, FDefaultWindowInfoExStyle); WindowInfoAsChild(FWindowInfo, aParentHandle, aParentRect, aWindowName, FDefaultWindowInfoExStyle);
{$ELSE} {$ELSE}
if FIsOSR then if FIsOSR then
WindowInfoAsWindowless(FWindowInfo, 0) WindowInfoAsWindowless(FWindowInfo, aParentHandle)
else else
WindowInfoAsChild(FWindowInfo, aParentHandle, aParentRect); WindowInfoAsChild(FWindowInfo, aParentHandle, aParentRect);
{$ENDIF} {$ENDIF}

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 251, "InternalVersion" : 252,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "88.2.4.0" "Version" : "88.2.4.0"
} }