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

Replace the SetPEFlags code

Browse Source 
Remove the outdated license text.
Use the main cef.inc file in all Delphi demos.
Fixed issue #493.
This commit is contained in:
Salvador Díaz Fau
2023-11-26 19:28:28 +01:00
parent 90db9ab70d
commit f764c39cc1
431 changed files with 13125 additions and 43508 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
demos/Delphi_VCL/SubProcess/uSimpleBrowser.pas
View File

@ -1,43 +1,6 @@
// ************************************************************************
// ***************************** CEF4Delphi *******************************
// ************************************************************************
//
// CEF4Delphi is based on DCEF3 which uses CEF to embed a chromium-based
// browser in Delphi applications.
//
// The original license of DCEF3 still applies to CEF4Delphi.
//
// For more information about CEF4Delphi visit :
// https://www.briskbard.com/index.php?lang=en&pageid=cef
//
// Copyright � 2023 Salvador Diaz Fau. All rights reserved.
//
// ************************************************************************
// ************ vvvv Original license and comments below vvvv *************
// ************************************************************************
(*
* Delphi Chromium Embedded 3
*
* Usage allowed under the restrictions of the Lesser GNU General Public License
* or alternatively the restrictions of the Mozilla Public License 1.1
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
* the specific language governing rights and limitations under the License.
*
* Unit owner : Henri Gourvest <hgourvest@gmail.com>
* Web site : http://www.progdigy.com
* Repository : http://code.google.com/p/delphichromiumembedded/
* Group : http://groups.google.com/group/delphichromiumembedded
*
* Embarcadero Technologies, Inc is not permitted to use or redistribute
* this source code without explicit permission.
*
*)
unit uSimpleBrowser;
{$I cef.inc}
{$I ..\..\..\source\cef.inc}
interface
@ -61,12 +24,14 @@ type
Timer1: TTimer;
procedure GoBtnClick(Sender: TObject);
procedure ChromiumWindow1AfterCreated(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure ChromiumWindow1Close(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure ChromiumWindow1AfterCreated(Sender: TObject);
procedure ChromiumWindow1Close(Sender: TObject);
private
// You have to handle this two messages to call NotifyMoveOrResizeStarted or some page elements will be misaligned.
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
@ -105,11 +70,6 @@ uses
// or the domain "google.com". If you don't live in the US, you'll be redirected to
// another domain which will take a little time too.
// ATTENTION!!!!
// *************
// The 2 projects in this group share the same uCEFLoader.pas unit and this causes issues with the "Build All" option.
// Build the "SimpleBrowser_sp.exe" project first and then build the "SimpleBrowser.exe" project.
// Destruction steps
// =================
// 1. The FormCloseQuery event sets CanClose to False and calls TChromiumWindow.CloseBrowser, which triggers the TChromiumWindow.OnClose event.