pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-02-12 10:26:05 +02:00
Code Issues Actions Releases Activity

fixed: SimpleFMXBrowser: compilation failure with Delphi 10 Seattle

Browse Source 
TCommonCustomForm.SetBounds(TRect) overloaded method is since Delphi
10.1 Berlin.
This commit is contained in:
Alexey Shumkin 2019-03-06 16:35:17 +03:00
parent 299c9ec0b1
commit def9ab8a83
No known key found for this signature in database
GPG Key ID: 48EFA0A7C5DF6943
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
demos/SimpleFMXBrowser/uSimpleFMXBrowser.pas
View File

@ -207,18 +207,9 @@ begin
end; end;
procedure TSimpleFMXBrowserFrm.ResizeChild; procedure TSimpleFMXBrowserFrm.ResizeChild;
var
TempRect : System.Types.TRect;
begin begin
if (FMXWindowParent <> nil) then if (FMXWindowParent <> nil) then
begin FMXWindowParent.SetBounds(0, round(AddressPnl.Height), ClientWidth - 1, ClientHeight - 1);
TempRect.Top := round(AddressPnl.Height);
TempRect.Left := 0;
TempRect.Right := ClientWidth - 1;
TempRect.Bottom := ClientHeight - 1;
FMXWindowParent.SetBounds(TempRect);
end;
end; end;
procedure TSimpleFMXBrowserFrm.CreateFMXWindowParent; procedure TSimpleFMXBrowserFrm.CreateFMXWindowParent;