1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00

Removed WM_MOVE and WM_MOVING handling from the application service

- Updated internal version
This commit is contained in:
Salvador Díaz Fau
2019-11-14 11:03:04 +01:00
parent f96a7bc4f9
commit 2ea56f3f52
5 changed files with 2 additions and 23 deletions

View File

@ -156,13 +156,6 @@ begin
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
if PeekMessage(TempMsg, 0, 0, 0, PM_NOREMOVE) then if PeekMessage(TempMsg, 0, 0, 0, PM_NOREMOVE) then
case TempMsg.Message of case TempMsg.Message of
WM_MOVE,
WM_MOVING :
if not(Application.Terminated) and
(Application.MainForm <> nil) and
(Application.MainForm is TFMXExternalPumpBrowserFrm) then
TFMXExternalPumpBrowserFrm(Application.MainForm).NotifyMoveOrResizeStarted;
WM_CAPTURECHANGED, WM_CAPTURECHANGED,
WM_CANCELMODE : WM_CANCELMODE :
if not(Application.Terminated) and if not(Application.Terminated) and

View File

@ -158,13 +158,6 @@ begin
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
if PeekMessage(TempMsg, 0, 0, 0, PM_NOREMOVE) then if PeekMessage(TempMsg, 0, 0, 0, PM_NOREMOVE) then
case TempMsg.Message of case TempMsg.Message of
WM_MOVE,
WM_MOVING :
if not(Application.Terminated) and
(screen.ActiveForm <> nil) and
(screen.ActiveForm is TChildForm) then
TChildForm(screen.ActiveForm).NotifyMoveOrResizeStarted;
WM_ENTERMENULOOP : WM_ENTERMENULOOP :
if not(Application.Terminated) and if not(Application.Terminated) and
(TempMsg.wParam = 0) and (TempMsg.wParam = 0) and

View File

@ -156,13 +156,6 @@ begin
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
if PeekMessage(TempMsg, 0, 0, 0, PM_NOREMOVE) then if PeekMessage(TempMsg, 0, 0, 0, PM_NOREMOVE) then
case TempMsg.Message of case TempMsg.Message of
WM_MOVE,
WM_MOVING :
if not(Application.Terminated) and
(Application.MainForm <> nil) and
(Application.MainForm is TSimpleFMXBrowserFrm) then
TSimpleFMXBrowserFrm(Application.MainForm).NotifyMoveOrResizeStarted;
WM_ENTERMENULOOP : WM_ENTERMENULOOP :
if not(Application.Terminated) and if not(Application.Terminated) and
(TempMsg.wParam = 0) and (TempMsg.wParam = 0) and

View File

@ -48,7 +48,7 @@ uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Edit, FMX.Controls.Presentation, uCEFFMXWindowParent, uCEFFMXChromium, FMX.Edit, FMX.Controls.Presentation, uCEFFMXWindowParent, uCEFFMXChromium,
uCEFInterfaces, uCEFConstants, uCEFTypes; uCEFInterfaces, uCEFConstants, uCEFTypes, uCEFChromiumCore;
const const
MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS = MENU_ID_USER_FIRST + 1; MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS = MENU_ID_USER_FIRST + 1;

View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 64, "InternalVersion" : 65,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "78.3.1.0" "Version" : "78.3.1.0"
} }