pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Code Issues Actions Releases Activity

Removed WM_MOVE and WM_MOVING handling from the application service

Browse Source 
- 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
Download Patch File Download Diff File Expand all files Collapse all files

7
demos/Delphi_FMX/FMXExternalPumpBrowser/uFMXApplicationService.pas
View File

@ -156,13 +156,6 @@ begin
{$IFDEF MSWINDOWS}
if PeekMessage(TempMsg, 0, 0, 0, PM_NOREMOVE) then
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_CANCELMODE :
if not(Application.Terminated) and

7
demos/Delphi_FMX/FMXToolBoxBrowser/uFMXApplicationService.pas
View File

@ -158,13 +158,6 @@ begin
{$IFDEF MSWINDOWS}
if PeekMessage(TempMsg, 0, 0, 0, PM_NOREMOVE) then
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 :
if not(Application.Terminated) and
(TempMsg.wParam = 0) and

7
demos/Delphi_FMX/SimpleFMXBrowser/uFMXApplicationService.pas
View File

@ -156,13 +156,6 @@ begin
{$IFDEF MSWINDOWS}
if PeekMessage(TempMsg, 0, 0, 0, PM_NOREMOVE) then
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 :
if not(Application.Terminated) and
(TempMsg.wParam = 0) and

2
demos/Delphi_FMX/SimpleFMXBrowser/uSimpleFMXBrowser.pas
View File

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

2
update_CEF4Delphi.json
View File

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