pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Update to CEF 80.0.4

Browse Source 
- Added GlobalCEFApp.DisableNewBrowserInfoTimeout property
- Removed remaining TCEFSentinel from all the demos.
- Fixed mouse coordinates in FMX demos with OSR browsers before sending a mouse wheel event.
This commit is contained in:
Salvador Díaz Fau
2020-02-26 13:28:29 +01:00
parent a20752eb53
commit feaeb772cb
149 changed files with 7651 additions and 929 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
demos/Lazarus/JavaScript/JSExecutingFunctions/JSExecutingFunctions.lps
View File

@ -22,8 +22,8 @@
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="194"/>
<CursorPos X="22" Y="200"/>
<TopLine Value="260"/>
<CursorPos Y="283"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -53,7 +53,7 @@
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit4>
</Units>
<JumpHistory Count="11" HistoryIndex="10">
<JumpHistory Count="15" HistoryIndex="14">
<Position1>
<Filename Value="uJSExecutingFunctions.pas"/>
</Position1>
@ -97,6 +97,22 @@
<Filename Value="uJSExecutingFunctions.pas"/>
<Caret Line="145" Column="82" TopLine="143"/>
</Position11>
<Position12>
<Filename Value="uJSExecutingFunctions.pas"/>
<Caret Line="200" Column="22" TopLine="194"/>
</Position12>
<Position13>
<Filename Value="uJSExecutingFunctions.pas"/>
<Caret Line="199" Column="22" TopLine="193"/>
</Position13>
<Position14>
<Filename Value="uJSExecutingFunctions.pas"/>
<Caret Line="187" Column="95" TopLine="181"/>
</Position14>
<Position15>
<Filename Value="uJSExecutingFunctions.pas"/>
<Caret Line="200" Column="31" TopLine="181"/>
</Position15>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>

7
demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.lfm
View File

@ -15,7 +15,7 @@ object JSExecutingFunctionsFrm: TJSExecutingFunctionsFrm
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.4.0'
LCLVersion = '2.0.6.0'
object NavControlPnl: TPanel
Left = 0
Height = 21
@ -72,9 +72,4 @@ object JSExecutingFunctionsFrm: TJSExecutingFunctionsFrm
left = 32
top = 288
end
object CEFSentinel1: TCEFSentinel
OnClose = CEFSentinel1Close
left = 32
top = 352
end
end

7
demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas
View File

@ -64,7 +64,6 @@ type
{ TJSExecutingFunctionsFrm }
TJSExecutingFunctionsFrm = class(TForm)
CEFSentinel1: TCEFSentinel;
NavControlPnl: TPanel;
Edit1: TEdit;
GoBtn: TButton;
@ -197,7 +196,8 @@ end;
procedure TJSExecutingFunctionsFrm.Chromium1BeforeClose(Sender: TObject;
const browser: ICefBrowser);
begin
CEFSentinel1.Start;
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
procedure TJSExecutingFunctionsFrm.Chromium1BeforeContextMenu(
@ -280,8 +280,7 @@ end;
procedure TJSExecutingFunctionsFrm.CEFSentinel1Close(Sender: TObject);
begin
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
procedure TJSExecutingFunctionsFrm.WMMove(var aMessage : TWMMove);