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

Bug fixes : #18 #26

Browse Source 
Bug fix #18 : Random crashes using custom schemes
Bug fix #26 : Dropdown control appearing in wrong place after form moved
This commit is contained in:
Salvador Diaz Fau
2017-04-24 12:57:16 +02:00
parent f912c6d5ec
commit 6842559661
23 changed files with 673 additions and 515 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
demos/SimpleBrowser/uSimpleBrowser.pas
View File

@@ -60,7 +60,8 @@ type
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
public
{ Public declarations }
end;
@@ -82,4 +83,22 @@ begin
ChromiumWindow1.CreateBrowser;
end;
procedure TForm1.WMMove(var aMessage : TWMMove);
begin
inherited;
if (ChromiumWindow1 <> nil) and
(ChromiumWindow1.ChromiumBrowser <> nil) then
ChromiumWindow1.ChromiumBrowser.NotifyMoveOrResizeStarted;
end;
procedure TForm1.WMMoving(var aMessage : TMessage);
begin
inherited;
if (ChromiumWindow1 <> nil) and
(ChromiumWindow1.ChromiumBrowser <> nil) then
ChromiumWindow1.ChromiumBrowser.NotifyMoveOrResizeStarted;
end;
end.