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 Releases Activity

Fixed CookieVisitor demo issue with cookies not written

Browse Source 
Added New Delphi and Lazarus versions and MacOS info to Readme.md.
This commit is contained in:
Salvador Díaz Fau
2021-02-27 12:55:29 +01:00
parent ce5384b108
commit 2838b7964e
57 changed files with 597 additions and 279 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
demos/Delphi_VCL/PopupBrowser/uChildForm.pas
View File

@@ -621,28 +621,32 @@ procedure TChildForm.WMMove(var aMessage : TWMMove);
begin
inherited;
Chromium1.NotifyMoveOrResizeStarted;
if (Chromium1 <> nil) then
Chromium1.NotifyMoveOrResizeStarted;
end;
procedure TChildForm.WMMoving(var aMessage : TMessage);
begin
inherited;
Chromium1.NotifyMoveOrResizeStarted;
if (Chromium1 <> nil) then
Chromium1.NotifyMoveOrResizeStarted;
end;
procedure TChildForm.WMCaptureChanged(var aMessage : TMessage);
begin
inherited;
Chromium1.SendCaptureLostEvent;
if (Chromium1 <> nil) then
Chromium1.SendCaptureLostEvent;
end;
procedure TChildForm.WMCancelMode(var aMessage : TMessage);
begin
inherited;
Chromium1.SendCaptureLostEvent;
if (Chromium1 <> nil) then
Chromium1.SendCaptureLostEvent;
end;
procedure TChildForm.WMEnterMenuLoop(var aMessage: TMessage);
@@ -664,8 +668,11 @@ begin
if (GlobalCEFApp <> nil) then
GlobalCEFApp.UpdateDeviceScaleFactor;
Chromium1.NotifyScreenInfoChanged;
Chromium1.WasResized;
if (Chromium1 <> nil) then
begin
Chromium1.NotifyScreenInfoChanged;
Chromium1.WasResized;
end;
end;
procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);