pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-05-13 21:46:53 +02:00
Code Issues Actions Releases Activity

Merge pull request #247 from ahausladen/FMXFormMove

Browse Source 
Fixed #246: FMX doesn't have a OnMove event
This commit is contained in:
Salvador Díaz Fau 2019-11-14 10:58:43 +01:00 committed by GitHub
commit 5e3e1bd23c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
demos/Delphi_FMX/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.pas
View File

@ -137,6 +137,7 @@ type
procedure HandleSYSCHAR(const aMessage : TMsg);
procedure HandleSYSKEYDOWN(const aMessage : TMsg);
procedure HandleSYSKEYUP(const aMessage : TMsg);
procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override;
end;
var
@ -791,6 +792,16 @@ begin
end;
end;
procedure TFMXExternalPumpBrowserFrm.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
var
PositionChanged: Boolean;
begin
PositionChanged := (ALeft <> Left) or (ATop <> Top);
inherited SetBounds(ALeft, ATop, AWidth, AHeight);
if PositionChanged then
NotifyMoveOrResizeStarted;
end;
procedure TFMXExternalPumpBrowserFrm.NotifyMoveOrResizeStarted;
begin
if (chrmosr <> nil) then chrmosr.NotifyMoveOrResizeStarted;
@ -934,4 +945,5 @@ begin
chrmosr.SendFocusEvent(False);
end;
end.

11
demos/Delphi_FMX/FMXToolBoxBrowser/uChildForm.pas
View File

@ -79,6 +79,7 @@ type
procedure NotifyMoveOrResizeStarted;
procedure DoDestroyParent;
procedure SendCloseMsg;
procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override;
property Closing : boolean read FClosing;
property Homepage : string read FHomepage write FHomepage;
@ -227,6 +228,16 @@ begin
end;
end;
procedure TChildForm.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
var
PositionChanged: Boolean;
begin
PositionChanged := (ALeft <> Left) or (ATop <> Top);
inherited SetBounds(ALeft, ATop, AWidth, AHeight);
if PositionChanged then
NotifyMoveOrResizeStarted;
end;
procedure TChildForm.NotifyMoveOrResizeStarted;
begin
// This is needed to display some HTML elements correctly

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

@ -105,6 +105,7 @@ type
procedure DoBrowserCreated;
procedure DoDestroyParent;
procedure NotifyMoveOrResizeStarted;
procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override;
end;
var
@ -318,6 +319,16 @@ begin
LoadURL;
end;
procedure TSimpleFMXBrowserFrm.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
var
PositionChanged: Boolean;
begin
PositionChanged := (ALeft <> Left) or (ATop <> Top);
inherited SetBounds(ALeft, ATop, AWidth, AHeight);
if PositionChanged then
NotifyMoveOrResizeStarted;
end;
procedure TSimpleFMXBrowserFrm.NotifyMoveOrResizeStarted;
begin
if (FMXChromium1 <> nil) then FMXChromium1.NotifyMoveOrResizeStarted;