pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-10-30 23:07:52 +02:00
Code Issues Actions 1 Releases Activity

Fix FMX demos compilation failures with Delphi 10 Seattle and XE7

Browse Source
This commit is contained in:
Salvador Díaz Fau
2019-03-06 15:08:17 +01:00
parent 376606779a
commit 0172c6e1e3
3 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
demos/FMXExternalPumpBrowser/uFMXApplicationService.pas
View File

@@ -106,7 +106,11 @@ end;
function TFMXApplicationService.GetVersionString: string;
begin
{$IFDEF DELPHI22_UP}
Result := OldFMXApplicationService.GetVersionString;
{$ELSE DELPHI22_UP}
Result := 'unsupported yet';
{$ENDIF DELPHI22_UP}
end;
procedure TFMXApplicationService.Run;

11
demos/FMXToolBoxBrowser/uChildForm.pas
View File

@@ -136,18 +136,9 @@ begin
end;
procedure TChildForm.ResizeChild;
var
TempRect : System.Types.TRect;
begin
if (FMXWindowParent <> nil) then
begin
TempRect.Top := 0;
TempRect.Left := 0;
TempRect.Right := ClientWidth - 1;
TempRect.Bottom := ClientHeight - 1;
FMXWindowParent.SetBounds(TempRect);
end;
FMXWindowParent.SetBounds(0, 0, ClientWidth - 1, ClientHeight - 1);
end;
procedure TChildForm.FMXChromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);

4
demos/FMXToolBoxBrowser/uFMXApplicationService.pas
View File

@@ -107,7 +107,11 @@ end;
function TFMXApplicationService.GetVersionString: string;
begin
{$IFDEF DELPHI22_UP}
Result := OldFMXApplicationService.GetVersionString;
{$ELSE DELPHI22_UP}
Result := 'unsupported yet';
{$ENDIF DELPHI22_UP}
end;
procedure TFMXApplicationService.Run;