You've already forked CEF4Delphi
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:
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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;
|
||||||
|
@ -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"
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user