pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions 1 Releases Activity

Changed some Windows API imports to improve compatibility with C++ Builder

Browse Source
This commit is contained in:
salvadordf
2021-10-27 12:18:33 +02:00
parent f9b7447094
commit e3cee7cf9b
5 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
View File

@@ -1114,12 +1114,13 @@ end;
procedure TMiniBrowserFrm.Useragent1Click(Sender: TObject);
var
TempUA : string;
TempOldUA, TempNewUA : string;
begin
TempUA := inputbox('MiniBrowser demo', 'Set new user agent string', '');
TempOldUA := GetDefaultCEFUserAgent;
TempNewUA := inputbox('MiniBrowser demo', 'Set new user agent string', TempOldUA);
if (length(TempUA) > 0) then
Chromium1.SetUserAgentOverride(TempUA);
if (length(TempNewUA) > 0) and (TempOldUA <> TempNewUA) then
Chromium1.SetUserAgentOverride(TempNewUA);
end;
procedure TMiniBrowserFrm.BrowserCreatedMsg(var aMessage : TMessage);