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

Fixed backwards compatibility issue in FMXTabbedBrowser demo

Browse Source
This commit is contained in:
salvadordf 2022-07-04 15:41:27 +02:00
parent 317e4eae16
commit 15cb66e1f1
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
demos/Delphi_FMX_Windows/FMXTabbedBrowser/uBrowserFrame.pas
View File

@ -93,7 +93,7 @@ type
function GetParentForm : TCustomForm;
function GetParentTab : TTabItem;
function GetFMXWindowParentRect : TRectF;
function GetFMXWindowParentRect : TRect;
procedure CreateFMXWindowParent;
public
@ -140,18 +140,17 @@ begin
FMXWindowParent := nil;
end;
function TBrowserFrame.GetFMXWindowParentRect : TRectF;
function TBrowserFrame.GetFMXWindowParentRect : TRect;
var
TempRect : TRectF;
TempPoint : TPointF;
TempScale : single;
begin
TempScale := FMXChromium1.ScreenScale;
TempPoint := LocalToAbsolute(WindowParentLay.Position.Point);
Result.Left := TempPoint.x;
Result.Top := TempPoint.y;
Result.Right := TempPoint.x + (WindowParentLay.Width * TempScale);
Result.Bottom := TempPoint.y + (WindowParentLay.Height * TempScale);
Result.Left := round(TempPoint.x);
Result.Top := round(TempPoint.y);
Result.Right := round(TempPoint.x + (WindowParentLay.Width * TempScale));
Result.Bottom := round(TempPoint.y + (WindowParentLay.Height * TempScale));
end;
procedure TBrowserFrame.ReloadBtnClick(Sender: TObject);
@ -162,7 +161,7 @@ end;
procedure TBrowserFrame.ResizeBrowser;
begin
if (FMXWindowParent <> nil) then
FMXWindowParent.SetBoundsF(GetFMXWindowParentRect);
FMXWindowParent.SetBounds(GetFMXWindowParentRect);
end;
procedure TBrowserFrame.ShowBrowser;

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 411,
"InternalVersion" : 412,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "103.0.8.0"
}