pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-09-30 21:28:55 +02:00
Code Issues Actions Releases Activity

Added transparency test code to SimpleOSRBrowser in QT

Browse Source
This commit is contained in:
Salvador Díaz Fau
2025-09-21 17:15:22 +02:00
parent ed15f1cca3
commit 4a33371558
3 changed files with 45 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
demos/Lazarus_Linux_QT5/SimpleOSRBrowser/umainform.pas
View File

@@ -10,7 +10,12 @@ uses
{$IFDEF LCLQT}qt4,{$ENDIF}
{$IFDEF LCLQT5}qt5,{$ENDIF}
{$IFDEF LCLQT6}qt6,{$ENDIF}
uCEFBufferPanel, uCEFChromium, uCEFInterfaces, uCEFTypes;
uCEFBufferPanel, uCEFChromium, uCEFInterfaces, uCEFTypes;
const
// Set this constant to True and load "file:///<path-to-CEF4Delphi>/bin/transparency.html" to test a
// transparent browser.
TRANSPARENT_BROWSER = True;
type
@@ -219,6 +224,13 @@ begin
GlobalCEFApp.DisableZygote := True;
GlobalCEFApp.WindowlessRenderingEnabled := True;
GlobalCEFApp.OnContextInitialized := @GlobalCEFApp_OnContextInitialized;
// If you need transparency leave the GlobalCEFApp.BackgroundColor property
// with the default value or set the alpha channel to 0
if TRANSPARENT_BROWSER then
GlobalCEFApp.BackgroundColor := CefColorSetARGB($00, $00, $00, $00)
else
GlobalCEFApp.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF);
end;
function StartMainProcess: boolean;
@@ -612,11 +624,16 @@ begin
// monitor where the main application form is located.
GlobalCEFApp.UpdateDeviceScaleFactor;
UpdatePanelOffset;
UpdatePanelOffset;
// opaque white background color
Chromium1.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF);
Chromium1.DefaultURL := UTF8Decode(AddressCb.Text);
// If you need transparency leave the Chromium1.Options.BackgroundColor property
// with the default value or set the alpha channel to 0
if TRANSPARENT_BROWSER then
Chromium1.Options.BackgroundColor := CefColorSetARGB($00, $00, $00, $00)
else
Chromium1.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF);
Chromium1.DefaultURL := UTF8Decode(AddressCb.Text);
Chromium1.CreateBrowser;
end;

27
demos/Lazarus_Linux_QT6/SimpleOSRBrowser/umainform.pas
View File

@@ -11,6 +11,11 @@ uses
{$IFDEF LCLQT5}qt5,{$ENDIF}
{$IFDEF LCLQT6}qt6,{$ENDIF}
uCEFBufferPanel, uCEFChromium, uCEFInterfaces, uCEFTypes;
const
// Set this constant to True and load "file:///<path-to-CEF4Delphi>/bin/transparency.html" to test a
// transparent browser.
TRANSPARENT_BROWSER = True;
type
@@ -218,7 +223,14 @@ begin
GlobalCEFApp.RootCache := 'RootCache';
GlobalCEFApp.SetCurrentDir := True;
GlobalCEFApp.DisableZygote := True;
GlobalCEFApp.OnContextInitialized := @GlobalCEFApp_OnContextInitialized;
GlobalCEFApp.OnContextInitialized := @GlobalCEFApp_OnContextInitialized;
// If you need transparency leave the GlobalCEFApp.BackgroundColor property
// with the default value or set the alpha channel to 0
if TRANSPARENT_BROWSER then
GlobalCEFApp.BackgroundColor := CefColorSetARGB($00, $00, $00, $00)
else
GlobalCEFApp.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF);
end;
function StartMainProcess: boolean;
@@ -612,11 +624,16 @@ begin
// monitor where the main application form is located.
GlobalCEFApp.UpdateDeviceScaleFactor;
UpdatePanelOffset;
UpdatePanelOffset;
// opaque white background color
Chromium1.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF);
Chromium1.DefaultURL := UTF8Decode(AddressCb.Text);
// If you need transparency leave the Chromium1.Options.BackgroundColor property
// with the default value or set the alpha channel to 0
if TRANSPARENT_BROWSER then
Chromium1.Options.BackgroundColor := CefColorSetARGB($00, $00, $00, $00)
else
Chromium1.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF);
Chromium1.DefaultURL := UTF8Decode(AddressCb.Text);
Chromium1.CreateBrowser;
end;

2
update_CEF4Delphi.json
View File

@@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 791,
"InternalVersion" : 792,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "140.1.14"
}